1.7k Aufrufe
Gefragt in Textverarbeitung von
Wer kann mir bitte bei dem folgenden Problem helfen? Ich möchte über ein Makro in der Fußzeile angeben „Seitenzahl von Gesamtseitenzahl“, also z. B. „Seite 2 von5“.

Ich gehe über „Entwicklertools“ zu „Makro aufzeichnen“, vergebe einen Makronamen und einen Tastaturschlüssel und starte die Makroaufzeichnung. Dann gehe ich auf "Einfügen" und "Seitenzahl"; dann auf "Seitenende"; in dem sich öffnenden Fenster gehe ich ganz nach unten zu "Seite X von Y" und wähle "Fett formatierte Zahlen 1". Es wird dann in der Fußzeile z. B. eingeblendet "Seite 1 von 1". Ich beende dann die Makroaufzeichnung.

Wenn ich dann diese Makro anwenden will öffnet sich das Fenster „Microsoft Visual Basic“ mit der Meldung: „Laufzeitfehler ´5941´: Das angeforderte Element ist nicht in der Sammlung vorhanden“. Wenn ich dann auf „Debuggen“ klicke ist der folgende Text gelb markiert: „WordBasic.ViewFooterOnly
ActiveDocument.AttachedTemplate.BuildingBlockEntries("Einfache Zahl 2").
Insert Where:=Selection.Range, RichText:=True”

Was mache ich falsch? Wie komme ich zu dem gewünschten lauffähigen Makro?

Vielen Dank für Eure Hilfe.

1 Antwort

0 Punkte
Beantwortet von kjg17 Profi (34.4k Punkte)
Hallo Lothar,

hilft dir auch eine Lösung ohne Makro?

- Gehe in die Fußzeile deines Dokumentes und führe dort einen Doppelklick aus, die Ansicht wechselt in das Register Entwurf
- Auf der linken Seite findest du dann den Punkt 'Schnellbausteine', den öffnest du und klickst dort auf 'Feld'
- Suche unter Feldnamen nach 'Page', markiere den, wähle unter Format den Eintrag '1, 2, 3,...' und klicke auf OK
- Dir wird jetzt in der Fußzeile die Seiten-Nummer angezeigt

Die ganze Sache wiederholst du mit 'NumPages' für die Seiten-Anzahl.

Den zugehörigen Text für 'Seite x von xxx' fügst du ganz normal an entsprechender Position in die Fußzeile ein.

Gruß
Kalle
...