Kopfzeile kopieren und in neues Dokument einfügen

Hier zeigen wir Ihnen, wie Sie den Inhalt einer Kopfzeile aus einem Dokument kopieren und in ein neu erstelltes Dokument einfügen. Diesen Code können Sie natürlich entsprechend anderen Anforderungen abändern:

001
002
003
004
005
006
007
008
009
010
011
012
013
014

Sub Kopfzeile_kopieren()


   ActiveDocument.StoryRanges(wdPrimaryHeaderStory).Copy

   Documents.Add

   ActiveWindow.View.SeekView = wdSeekCurrentPageHeader
   Selection.PasteAndFormat wdFormatOriginalFormatting
   ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument


End Sub

In Zeile 4 wird der Inhalt der aktuellen Kopfzeile kopiert. Dazu muss sichergestellt sein, dass auch eine Kopfzeile angelegt wurde, da sonst ein Fehler ausgelöst wird.

In Zeile 6 wird ein neues Dokument erzeugt. Da es in einem neuen Dokument noch keine Kopfzeile geben kann, müssen Sie die Ansicht auf die Kopfzeile setzen und den Inhalt der Zwischenablage (die vorher kopierte Kopfzeile) einfügen.

zurück zur Übersicht Kopf- und Fußzeile