Hallo,

ich suche eine Funktion, die mehrere Word-Dokumente zu einem Dokument verbindet, so dass die Formatierung der einzelnen Dateien erhalten bleibt. Bis jetzt habe ich diesen Code in meiner Anwendung:

Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
    
    DatPfad = "C:\MeineDokumente"
    Set wrdApp = CreateObject("Word.Application")
    Set wrdDoc = wrdApp.Documents.Add
    With wrdApp
        With .ActiveWindow.Selection
            AktEinfDat = Dir(DatPfad & "\" & "*.docx")
            While AktEinfDat <> ""
                .InsertFile (DatPfad & "\" & AktEinfDat)
                .InsertBreak Type:=wdPageBreak
                AktEinfDat = Dir
            Wend
        End With
    End With

Das Problem dabei ist, dass alle Dateien gleich formatiert werden und zwar so, wie Word voreingestellt ist. Ich möchte aber, dass jeder Abschnitt (jedes Word-Dokument) eigene Formatierung beibehält.

Gruß NochEinGast