4D Doc Center : WR Create stylesheet

Home

4D Write v14

WR Create stylesheet


WR Create stylesheet ( Bereich ; Name ; AnwendenAuf ; Tastaturkürzel ) -> Funktionsergebnis

Parameter	Typ	Beschreibung
Bereich	Lange Ganzzahl	4D Write Bereich
Name	String	Name der Stilvorlage
AnwendenAuf	Lange Ganzzahl	0=Zeichen 1=Absatz
Tastaturkürzel	String	Ein Zeichen
Funktionsergebnis	Lange Ganzzahl	Referenznummer der Stilvorlage

Beschreibung

Die Funktion WR Create stylesheet erstellt eine neue Stilvorlage und gibt die zugewiesene Nummer zurück. Die Merkmale der neuen Stilvorlage definieren Sie in den Parametern Name, AnwendenAuf und Tastaturkürzel. Sie können die Stilvorlage ändern mit WR SET STYLESHEET TEXT PROP, WR SET STYLESHEET FONT, WR SET STYLESHEET TAB plus der Referenznummer der Stilvorlage.

Name: Der Name der Stilvorlage kann bis zu 31 Zeichen lang sein.
Im Parameter AnwendenAuf können Sie eine der folgenden Konstanten unter dem Thema WR Parameter übergeben:

Konstante	Typ	Wert	Meldung
wr apply to characters	Lange Ganzzahl	0	Die Stilvorlage bezieht sich auf die Zeichen
wr apply to paragraphs	Lange Ganzzahl	1	Die Stilvorlage bezieht sich auf den Absatz.

Bei Anwenden auf Absätze beginnt die Vorlage mit dem ersten Absatz in Ihrer Auswahl und gilt bis zum Ende des letzten Absatzes in der Auswahl. Ist AnwendenAuf nicht angegeben, bezieht sich die Stilvorlage auf die Zeichen.

Mit dem optionalen Parameter Tastaturkürzel weisen Sie der Stilvorlage ein Tastaturkürzel zu. Es darf nur ein Zeichen haben. Um das Tastaturkürzel anzuwenden, müssen Sie unter Windows die hier festgelegte Taste mit der strg-Taste drücken, auf Macintosh mit der Befehlstaste. Es empfiehlt sich, Zahlen zu verwenden, um jeglichen Konflikt mit den standardmäßigen Tastaturkürzeln in 4D Write zu vermeiden.

Wird Tastaturkürzel nicht bzw. ein leerer String übergeben, erhält die Stilvorlage kein Tastaturkürzel.

Beispiel

Sie möchten jedem Dokument eine eigene Stilvorlage für Zeichen zuweisen und auf die gesamte Auswahl anwenden. Die Stilvorlage erhält unter Windows das Tastaturkürzel strg+1, auf Macintosh das Tastaturkürzel Befehl+1. Der Schriftstil ist Comic Sans MS 12 Punkt.

 $NumSheet:=WR Create stylesheet(Bereich;"MeinStil";wr apply to characters;"1")

 WR SET STYLESHEET FONT(Bereich;$NumSheet;"Comic Sans MS")

 WR SET STYLESHEET TEXT PROP(Bereich;$NumSheet;wr font size;12;1)

 WR EXECUTE COMMAND(Bereich;wr cmd select all)

 WR APPLY STYLESHEET(Bereich;$NumSheet)