|
|
|
|
|
|
|
|
|
|
Version 6.5
WR INSERT PAGE NUMBER (Bereich; Format{; NrTyp})
| Parameter | Typ | Beschreibung | |
| Bereich | Lange Ganzzahl |  | 4D Write Bereich |
| Format | Ganzzahl | | Formattyp |
| NrTyp | Ganzzahl | | Einzufügende Nummer |
Beschreibung
Mit dem Befehl WR INSERT PAGE NUMBER fügen Sie an der Cursor-Position eine Referenz mit der aktuellen Seitennummer oder der Gesamtanzahl der Seiten ein. Die Referenz kann im Haupttext, Fuß- oder Kopfteil stehen. Mit dem Befehl WR SET FRAME setzen Sie den Cursor in einen dieser Bereiche.
Mit Format wählen Sie das Anzeigeformat für die einzufügende Referenz. Diese Formate sind identisch mit den Formaten im Dialog für Seitennumerierung.
| Format | Wert |
| 1, 2, 3 | 0 |
| a, b, c | 1 |
| A, B, C | 2 |
| i, ii, iii | 3 |
| I, II, III | 4 |
Mit dem optionalen Parameter NrTyp fügen Sie entweder die aktuelle Seitennummer oder die Gesamtanzahl der Seiten ein. Übergeben Sie keinen Parameter bzw. den Wert 0 (Null), wird die aktuelle Seitennummer eingefügt. Übergeben Sie 1, wird die Gesamtanzahl der Seiten eingefügt.
Beispiel
Die Methode OddPages ist einer Variablen zugeordnet, die sich im Fußteil des aktuellen Dokuments befindet:
`Prüfe, ob der Modus "Unterschiedlich auf linker und rechter Seite" bereits aktiviert ist
If(WR Get doc property(Bereich;wr different left right pages)#1)
`Wenn nicht, aktiviere diesen Modus
WR SET DOC PROPERTY(Bereich;wr different left right pages;1)
ALERT("Warnung: Dok. ist nun im Modus Unterschiedlich auf linker u.rechter Seite!")
End if
`Setze Cursor in linken Fußteil
WR SET FRAME(Bereich;wr left footer)
`Füge 'Seite X' in großen römischen Ziffern ein
WR INSERT TEXT(Bereich;"Seite ")
WR INSERT PAGE NUMBER(Bereich;4)
WR INSERT TEXT(Bereich;" von ")
WR INSERT EXPRESSION(Bereich;"WR Count(Bereich;11)")
`Berechnet Gesamtseitenzahl
Referenz
|
|
|
|
|
|
|
|
|
|