Excel Makro - Word Speichern unter (PDF, Docx)
17.12.2017 18:49:20
Peter
ich habe eine Frage zu folgendem Code. Hier wird eine Word datei geöffnet und die Textmarken werden durch Zelleninhalte ersetzt.
Anschließend soll das geöffnete Word Dokument automatisch als .docx und .pdf gespeichert werden. Der Dateiname soll dabei der Zelleninhalt aus der Zelle A2 sein.
Kann mir da jemand helfen?
Das abspeichern soll an die Stelle %%%%%%%%%%.
Danke euch und einen schönen Advent.
Sub neu()
Dim appWord As Object
Dim docTest As Object
Dim i As Integer
Dim a As String
For i = 1 To 1
Set appWord = CreateObject("Word.Application")
Set docTest = appWord.documents.Open("C:\test.docx")
appWord.Visible = True
a = "ExcelW1"
docTest.Activate
docTest.Bookmarks(a).Range.Text = Cells(1, i)
i = i + 1
a = "ExcelW2"
docTest.Activate
docTest.Bookmarks(a).Range.Text = Cells(1, i)
Set docTest = Nothing
Set appWord = Nothing
Next i
End Sub