Daten aus Excel an Word schicken
23.03.2021 18:54:52
PhilipMcn
ich versuche gerade, die Inhalte meines Excel-Sheets an eine Wordvorlage zu übertragen, das Makro enthält im Prinzip die Anweisung das Dokument zu öffnen, zu einer Textmarke zu springen, und den Inhalt der Zelle aus Excel dort einzufügen. So weit bin ich gekommen:
Sub WordDatei()
Dim xDoc As String
Dim appWord As Object
xDoc = "Pfad"
Set appWord = GetObject(, "Word.Application")
If Dir(xDoc) "" Then
If appWord Is Nothing Then
Set appWord = CreateObject("Word.Application")
Else
End If
appWord.Documents.Open xDoc
appWord.Visible = True
End If
If appWord.ActiveDocument.bookmarks.Exists("MK") Then
With appWord.Selection
.Goto What:=-1, Name:="MK"
.typetext Range("Verketten!B4").Value
End With
End If
End Sub