Word via Excel
HansP
Mein Makro soll - über Excel - 2 Worddateien zusammenfügen und als PDF speichern. Neues _ Dokument klappt, Export als PDF klappt. Nur Doc1 und Doc2 kriege ich nicht reinkopiert. Was mache ich falsch?
Sub Test ()
Dim myWord As Object
On Error Resume Next
Set myWord = GetObject("Word.Application.12")
If Err.Number 0 Then
Err.Clear
Set myWord = CreateObject("Word.Application.12")
myWord.Visible = True: myWord.WindowState = wdWindowStateMinimize
Else
myWord.Activate
myWord.Visible = True: myWord.WindowState = wdWindowStateMaximize
End If
myWord.Application.Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0
myWord.ActiveDocument.Selection.InsertFile Filename:="doc1.docx", Range:="", _
ConfirmConversions:=False, Link:=False, Attachment:=False
myWord.ActiveDocument.Selection.InsertFile Filename:="doc2.docx", Range:="", _
ConfirmConversions:=False, Link:=False, Attachment:=False
myWord.ActiveDocument.ExportAsFixedFormat OutputFileName:="Test.pdf", ExportFormat:= _
wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
wdExportAllDocument, From:=1, To:=1, Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:=True, UseISO19005_1:=False
myWord.Application.Quit (True)
Set myWord = Nothing
End Sub ()