Fu▀zeile automatisch einfⁿgen

Ich m÷chte eine Dokumentvor-lage 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 | Mak-ros½ 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 hCHIP-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 Das Makro definiert die Variable X und ermittelt darin die Seitenanzahl des aktiven Dokuments. Ist die Seitenanzahl X gr÷▀er als 1, fⁿgt es ein Feld fⁿr Seitenzahlen in der Fu▀zeile ein und legt fest, dass die ZΣhlung mit 2 beginnt. Nach dem Eingeben beenden Sie den VBA-Editor und speichern die Vorlagen-Datei. Wenn Sie einen Text geschrieben haben, starten Sie das Makro auf Basis dieser Vorlage, um automatisch die richtige Fu▀zeile zu erhalten.