Wenn Sie mit Dokumenten arbeiten, die Sie von anderen Personen erhalten, müssen Sie möglicherweise routinemäßig alle Kopf- und Fußzeilen in den Dokumenten löschen. Eine Möglichkeit, dies zu tun, besteht darin, einfach die verschiedenen Kopf- und Fußzeilen auszuwählen und zu löschen. Wenn das Dokument jedoch viele Abschnitte enthält, kann dies sehr zeitaufwändig sein. (Insbesondere, wenn Sie bedenken, dass jeder Abschnitt bis zu drei verschiedene Kopf- und Fußzeilen haben kann.)

Wiederholte, zeitaufwändige Aufgaben sind immer ein Hauptkandidat für Makros. Dies ist keine Ausnahme. Das folgende Makro durchläuft jeden Abschnitt eines Dokuments und löscht alle definierten Kopf- und Fußzeilen.

Sub RemoveHeadAndFoot()

Dim oSec As Section     Dim oHead As HeaderFooter     Dim oFoot As HeaderFooter

For Each oSec In ActiveDocument.Sections         For Each oHead In oSec.Headers             If oHead.Exists Then oHead.Range.Delete         Next oHead

For Each oFoot In oSec.Footers             If oFoot.Exists Then oFoot.Range.Delete         Next oFoot     Next oSec End Sub

Dieses Makro ist sehr leistungsfähig – es fragt weder, ob Sie fortfahren möchten, noch berücksichtigt es, was in den Kopf- und Fußzeilen enthalten sein kann. Es werden einfach alle gelöscht, sodass Ihr Dokument keine enthält. Wenn Sie regelmäßig einige Dokumente verarbeiten, können Sie das Makro problemlos einer Symbolleistenschaltfläche, einem Menüelement oder einer Tastenkombination zuweisen.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (1777) gilt für Microsoft Word 97, 2000, 2002 und 2003. Sie finden eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Word (Word 2007) und später) hier:

Alle Kopf- und Fußzeilen löschen.