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