Um von Excel aus auf Word zuzugreifen und den Wert aus beispielsweise der Zelle A1 an eine vordefinierte Stelle in einem Worddokument zu platzieren, kann folgender Code genutzt werden.

In der Wordvorlage muss eine Textmarke vorhanden sein. In diesem Beispiel heißt sie "Hier". Der Wert wird dann an dieser Stelle im Worddokument eingefügt.

 

 

Option Explicit

 

 

Public Sub ZugriffaufWord()

'Unter Extras - Verweise muss ein Häkchen bei

'Microsoft Word 11.0 Object Library gesetzt sein.

Dim WordObj As Object

Dim strPfad As String

 

'Pfad zur Vorlage. Die Vorlage muss zuvor erstellt werden.

strPfad = "C:\Wordvorlage.doc"

'Prüfen ob Word bereits offen ansonsten öffnen

On Error Resume Next

Set WordObj = GetObject(, "Word.Application")

If WordObj Is Nothing Then

  Set WordObj = CreateObject("Word.Application")

  Else

End If

'Kopie der Vorlage öffnen

WordObj.Documents.Add Template:=strPfad

WordObj.Visible = True

'Anspringen einer Textstelle in Word mittels Textmarke.

'Prüfen, ob diese existiert

'Den Wert aus Tabelle1 Zelle A1 an Textmarke einfügen

If WordObj.ActiveDocument.Bookmarks.Exists("Hier") Then

With WordObj.Selection

    .Goto what:=wdGoToBookmark, Name:="Hier"

    .TypeText Worksheets("Tabelle1").Range("A1").Value

End With

Else

MsgBox "Die Textmarke [Hier] ist nicht vorhanden"

End If

Set WordObj = Nothing

 

End Sub