Hallo zusammen,
ich beiß mir gerade an einer, ich schätze mal Kleinigkeit, die Zähne aus.
Ich hab nen kleines script welches mir alle Dateien aus einem Verzeichnis in ein Word Dokument kopiert. Dabei beginnt jede Seite als ein neuer Abschnitt. Problem ist nur das alle einzelnen Dokumente eine eigene Kopf- und Fußzeile besitzen. Trotz eines neuen Abschnitts setzt er aber das Attribut .linkToPrevious und alle Seiten haben die Header/Footer des ersten Dokuments.
Sub Abibuch()
Documents.Add
ChDir "C:\TMP"
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
Vielen Dank für sinnvolle Vorschläge,
sputnick90 |