![]() |
||
![]() |
Fußzeile automatisch einfügenIch 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. |
![]() |