Supportnet / Forum / Datenbanken
Word-Dateien verbinden per VBA
Frage
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:
[code]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[/code]
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