WR DELETE STYLESHEET

Home

4D Write v16


WR DELETE STYLESHEET ( Bereich ; StilvorlageNr )

Parameter	Typ	Beschreibung
Bereich	Lange Ganzzahl	4D Write Bereich
StilvorlageNr	Lange Ganzzahl	Nummer der Stilvorlage

Beschreibung

Der Befehl WR DELETE STYLESHEET löscht die Stilvorlage mit der Nummer StilvorlageNr aus dem 4D Write Dokument Bereich.

Warnung: Stilvorlagen des Systems können Sie nicht löschen. Mit dem Befehl WR GET STYLESHEET INFO stellen Sie fest, ob die Stilvorlage geschützt ist und demzufolge nicht gelöscht werden kann.

Beispiel

Sie möchten alle nicht geschützten Stilvorlagen in Ihrem Dokument löschen:

 C_LONGINT(Bereich)

 C_LONGINT(NbStyleSheet;$SheetNum) `Zähle Anzahl der Stilvorlagen

 NbStyleSheet:=WR Count(Bereich;wr nb stylesheets)

 $SheetNum:=1

 For($i;1;NbStyleSheet)

    WR GET STYLESHEET INFO(Bereich;$SheetNum;$Name;$ApplyTo;$Protected;$Shortcut)

    If($Protected=0) `Ist Stilvorlage nicht geschützt...

       WR DELETE STYLESHEET(Bereich;$SheetNum)

    Else

       $SheetNum:=$SheetNum+1

    End if

 End for