View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Torstein S. Johnsen[_2_] Torstein S. Johnsen[_2_] is offline
external usenet poster
 
Posts: 4
Default 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