![]() |
||
![]() |
UpdateDateien bequem per Kontextmenü verschlüsseln, Ausgabe 03/2003, Tipp 2, Seite 184: Selection.HeaderFooter.Range.Text•=•”Seite ”an verschiedenen Stellen des Makros fügen den Text zwar ein, jedoch nur hinter der Seitenzahl, also »2Seite«. Lösung: Man muss den Text separat definieren und im Makro unmittelbar hinter der Bedingung »If X>1« noch vor dem Befehl zum Einfügen des Feldes folgende Anweisung ergänzen: Selection.TypeText Text:=“Seite”Nach dem Einfügen des Feldes mit der Seitenzahl können Sie zum Beispiel das Makro auch noch zusätzlich wie folgt erweitern: Selection.TypeText•Text:=”•von•” Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldNumPagesDamit fügt das Makro nach dem ersten Feld für die Seitenzahl die Zeichenkette » von « ein und ergänzt dann noch ein weiteres Feld, welches die Gesamtzahl der Seiten des Dokumentes angibt. Redaktion CHIP |
![]() |