Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
how to control word from excel
I have never tried to work with VBA controlling two programs. After good
help form MVP and a lot of testing I'm at the level that things start to work. I copy an area from excel, open a document in word based on a template and like to copy the text to a bookmark in the new document in Word. Everything works until the pasting. I have tried several things - here is my last trial that does not work. I think there is an easy answer to this: Sub åpneword() Range("adrbedrift").Copy Dim oWord As Word.Application Dim oDoc As Word.Document Dim wordwasnotrunning As Boolean On Error Resume Next Set oWord = GetObject(, "Word.Application") If Err Then Set oWord = New Word.Application wordwasnotrunning = True End If oWord.Visible = True oWord.Activate Set oDoc = oWord.Documents.Add("g:\Maler\Excel\Brev som hentes fra excel.dot") ' oDoc.Range.Text = "hi" oDoc.Bookmarks("adresse").Select Selection.PasteSpecial Link:=False, DataType:=wdPasteText, Placement:= wdInLine, DisplayAsIcon:=False End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
how to control word from excel
Since you are running this from Excel, the unqualified Selection will refer to the selection in Excel. You need to qualify it with the word application. Assuming this is where you are having a problem. Sub åpneword() Range("adrbedrift").Copy Dim oWord As Word.Application Dim oDoc As Word.Document Dim wordwasnotrunning As Boolean On Error Resume Next Set oWord = GetObject(, "Word.Application") If Err Then Set oWord = New Word.Application wordwasnotrunning = True End If oWord.Visible = True oWord.Activate Set oDoc = oWord.Documents.Add("g:\Maler\Excel\Brev som hentes fra excel.dot") ' oDoc.Range.Text = "hi" oDoc.Bookmarks("adresse").Select oWord.Selection.PasteSpecial Link:=False, _ DataType:=wdPasteText, Placement:= _ wdInLine, DisplayAsIcon:=False End Sub -- Regards, Tom Ogilvy "Torstein S. Johnsen" wrote in message ... I have never tried to work with VBA controlling two programs. After good help form MVP and a lot of testing I'm at the level that things start to work. I copy an area from excel, open a document in word based on a template and like to copy the text to a bookmark in the new document in Word. Everything works until the pasting. I have tried several things - here is my last trial that does not work. I think there is an easy answer to this: Sub åpneword() Range("adrbedrift").Copy Dim oWord As Word.Application Dim oDoc As Word.Document Dim wordwasnotrunning As Boolean On Error Resume Next Set oWord = GetObject(, "Word.Application") If Err Then Set oWord = New Word.Application wordwasnotrunning = True End If oWord.Visible = True oWord.Activate Set oDoc = oWord.Documents.Add("g:\Maler\Excel\Brev som hentes fra excel.dot") ' oDoc.Range.Text = "hi" oDoc.Bookmarks("adresse").Select Selection.PasteSpecial Link:=False, DataType:=wdPasteText, Placement:= wdInLine, DisplayAsIcon:=False End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
2007 Form Control/ActiveX Control font difference | Excel Discussion (Misc queries) | |||
Excel spin box - no Control tab in Format Control dialong box | Excel Worksheet Functions | |||
Word wrapping in Text Box Control feature | Excel Worksheet Functions | |||
Print Control in Word/Excel | Excel Programming | |||
Print Control in Word/Excel | Excel Programming |