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 X

X = ActiveDocument.Co mpute Statistics (wdStatisticPages)
If ActiveWindow.View.Split Special <> wdPaneNone Then  ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or  ActiveWindow. ActivePane.View.Type = wdOutlineView Or  ActiveWindow.ActivePane.View.Type = wdMasterView Then  ActiveWindow. ActivePane.View.Type = wdPageView
End If
ActiveWindow.ActivePane.View.See kView = wdSeekCurrentPageFooter
Selection.HeaderFooter.Range. Text = äô
If X > 1 Then
  Selection.Fields.Add Range:= Selection.Range, Type:=wdField Page

 With
Selection.HeaderFooter.Page Numbers
     .StartingNumber = 2
End With
End If
ActiveWindow.ActivePane.View. SeekView = wdSeekMainDocument
End Sub