WR UPDATE STYLESHEET

Version 6.5

WR UPDATE STYLESHEET (Bereich; StilvorlageNr)

Der Befehl WR UPDATE STYLESHEET aktualisiert die angezeigte Formatierung des Textes mit der Stilvorlage StilvorlageNr im 4D Write Dokument Bereich. Nach Ausführen dieses Befehls ist der Text mit dem zugewiesenen Stil gemäß seiner aktuellen Definition formatiert.

Sie möchten den Tabulator in der Stilvorlage "Tabelle" ändern und alle Textbereiche aktualisieren, wo diese Stilvorlage vorkommt:

      `Suche nach der Nummer der Stilvorlage
   $StyleSheetNb:=WR Count(Bereich;wr nb stylesheets)
   For ($i;1;$StyleSheetNb)
      WR GET STYLESHEET INFO(Bereich;$i;$Name;$ApplyTo;$Prot;$Shortcut)
      If ($Name="Tabelle")
         Stilvorlagenr:=$i
      End if 
   End for 
      `Erhalte Nummern der Tabulatoren dieser Stilvorlage
   $NbTab:=WR Get stylesheet text prop(Bereich;SheetNumber;wr tab;Apply)
      `Lösche alle Tabulatoren
   For ($i;1;$NbTab)
      WR DELETE STYLESHEET TAB(Bereich;SheetNumber;1)
   End for 
      `Füge neuen Tabulator ein
   WR ADD STYLESHEET TAB(Bereich;SheetNumber;10;wr left tab;Char(126))
   ...
      `Aktualisiere jeden Absatz mit dieser Stilvorlage
   WR UPDATE STYLESHEET(Bereich;SheetNumber)

WR APPLY STYLESHEET.