Version 6.5
WR Create stylesheet (Bereich; Name{; AnwendenAuf{; Tastaturkürzel}}) Lange Ganzzahl
| Parameter | Typ | Beschreibung | |
| Bereich | Lange Ganzzahl | 4D Write Bereich | |
| Name | Alpha | 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.
AnwendenAuf ist ein optionaler Parameter
- Bei AnwendenAuf gleich 0 bezieht sich die Stilvorlage auf die Zeichen.
- Bei AnwendenAuf gleich 1 bezieht sich die Stilvorlage auf den Absatz.
- 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";0;"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)
Referenz
WR APPLY STYLESHEET, WR UPDATE STYLESHEET.