VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: sputnick90	Datum: 04.07.2011 15:03:36	Views: 1643	Rating:	Antwort:
Thema: LinkToPrevious setzen
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

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen