Fußzeile automatisch einfügen

Ich möchte eine Dokumentvorlage mit bestimmten Formatierungen in Word 97 einrichten. Falls ein auf dieser Vorlage basierendes, neu geschriebenes Dokument nur eine Seite lang ist, soll die Fußzeile leer bleiben. Sobald sich das Dokument über mehrere Seiten erstreckt, soll in der Fußzeile die Seitenzahl erscheinen, beginnend mit 2 auf der ersten Seite. Wie kann ich diese Aufgabe lösen?

Mit Hilfe eines Makros können Sie diese Aufgabe automatisieren. Nachdem Sie ein neues Dokument geschrieben haben, starten Sie das kleine Programm. Die richtige Fußzeile erscheint dann automatisch.
Um das Makro einzugeben, führen Sie den Befehl »Extras | Makro | Makros« aus und geben einen Namen für das neue Makro ein, zum Beispiel »Auto_Fusszeile«. Im Kombinationsfeld »Makros in« wählen Sie die Dokumentvorlage, die später das Makro enthalten soll. Nun klicken Sie auf den Button »Erstellen« und gelangen in den Visual-Basic-Editor. Dort geben Sie folgendes Makro ein oder kopieren die Zeilen aus der TXT-Datei auf der Heft-CD CHIP-Code FUSSZEIL.

Sub Auto_Fusszeile()Dim XX = ActiveDocument.Co mpute Statistics (wdStatisticPages)If ActiveWindow.View.Split Special <> wdPaneNone Then  ActiveWindow.Panes(2).CloseEnd IfIf ActiveWindow.ActivePane.View.Type = wdNormalView Or  ActiveWindow. ActivePane.View.Type = wdOutlineView Or  ActiveWindow.ActivePane.View.Type = wdMasterView Then  ActiveWindow. ActivePane.View.Type = wdPageViewEnd IfActiveWindow.ActivePane.View.See kView = wdSeekCurrentPageFooterSelection.HeaderFooter.Range. Text = „“If X > 1 Then  Selection.Fields.Add Range:= Selection.Range, Type:=wdField Page WithSelection.HeaderFooter.Page Numbers     .StartingNumber = 2End WithEnd IfActiveWindow.ActivePane.View. SeekView = wdSeekMainDocumentEnd Sub