4D Doc Center : WR INSERT PAGE NUMBER

Home

4D Write v14

WR INSERT PAGE NUMBER


WR INSERT PAGE NUMBER ( Bereich ; Format ; NrTyp )

Parameter	Typ	Beschreibung
Bereich	Lange Ganzzahl	4D Write Bereich
Format	Ganzzahl	Formattyp
NrTyp	Ganzzahl	Einzufügende Nummer, 0 = Seitennummer, 1 = Gesamtanzahl der Seiten

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. In diesem Format können Sie eine der folgenden Konstanten unter dem Thema WR Seitennummern Formate übergeben.

Konstante	Typ	Wert
wr 123	Lange Ganzzahl	0
wr abc	Lange Ganzzahl	1
wr ABC	Lange Ganzzahl	2
wr i ii iii	Lange Ganzzahl	3
wr I II III	Lange Ganzzahl	4

Mit dem optionalen Parameter NrTyp fügen Sie entweder die aktuelle Seitennummer oder die Gesamtanzahl der Seiten ein. Übergeben Sie die Konstante wr page number (Wert 0) oder übergeben Sie diesen Parameter nicht, wird die aktuelle Seitennummer eingefügt. Übergeben Sie die Konstante wr total number of pages (Wert 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;wr i ii iii;wr page number)

 WR INSERT TEXT(Bereich;" von ")

 WR INSERT PAGE NUMBER(Bereich;wr i ii iii;wr total number of pages)