![]() |
||
![]() |
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 |
![]() |