Hallo zusammen,

ich muss mehrere Dateien zu einer Datei zusammenfügen und diese dann in eine PDF umwandeln.
Das ganze ist sehr unspektakulär und habe ich schon wunderbar codiert.
Allerdings habe ich noch ein Problem, der nimmt die Formate nicht mit bzw. stört sich an den anderen Makros in den Dateien :-(
Hinter jeder Datei liegt ein Template es kann das selbe sein, es kann aber auch unterschiedlich sein, aber alle Formate müssen mit den dazu gehörigen Inhalten in eine Datei. 

Kann mir einer einen Tipp geben oder ein entsprechendes Skript das mir die Dateien zusammenfügt mit Formaten? 

Ich währe euch sehr verbunden.
Vg Jens

Dieser fügt die Inhalte zusammen - wunderbar nur ohne Format :-(

Sub abc()
Documents.Add
ChDir "C:\TEST"
myName = Dir("*.DOC")
While myName <> ""
With Selection
.InsertFile FileName:=myName, ConfirmConversions:=False
.InsertParagraphAfter
.InsertBreak Type:=wdSectionBreakNextPage
.Collapse Direction:=wdCollapseEnd
End With
myName = Dir()
Wend
End Sub

Dieser erstellt aus allen Dateien einzelne PDF's nur leider stört er sich an den im Schreiben enthaltene Makros :-/

Sub PDF_Erzeugen_Koppieren()
'
' PDF_Erzeugen_Koppieren Makro
'
'
Dim Datei(15) As String
Dim i
i = 0
Datei(0) = "Bewilligung_"
Datei(1) = "BeWo_r"
Datei(2) = "Hinweise"

Datei(3) = "Bewilligung"
Datei(4) = "HinweiseBew"

Datei(5) = "Bewilligung_mit_anöT"
Datei(6) = "BeWo_Durchschrift_anÖT"
Datei(7) = "HinweiseBewilligung_anÖT"

While i <= 11
    Documents.Open FileName:="C:\TEST" & Datei(i) & ".doc", _
        ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
        PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
        WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
        wdOpenFormatAuto, XMLTransform:=""
    ActiveDocument.ExportAsFixedFormat OutputFileName:="C:\TEST" & Datei(i), _
        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

i = i + 1

 Wend
        
        
        

End Sub