WR DELETE TAB

Version 6.5

WR DELETE TAB (Bereich; TabNr)

Der Befehl WR DELETE TAB löscht den Tabulator mit der Nummer TabNr aus dem 4D Write Dokument Bereich (von links nach rechts). Gibt es an dieser Position andere Tabulatoren, werden sie auch gelöscht.

Hinweis: Enthält die Auswahl mehrere Absätze, gilt die Numerierung des Tabulators für den zuletzt gewählten Absatz.

Sie möchten alle Tabulatoren aus Ihrem Dokument entfernen:

   C_LONGINT(Bereich;$i;$TabNum;$uniforme)
      `Fügt den Cursor am Beginn des Bereichs ein
   WR SET SELECTION(Bereich;0;0)
      `Zählt die Anzahl der Absätze im Dokument
   NbParag:=WR Count(Bereich;wr nb paragraphs)
      ` Berechne jeden Absatz
   For ($i;1;NbParag)
         `Erhalte Position des Absatzes
      WR GET PARAGRAPHS(Bereich;Start;Pos)
         `Gehe in den Absatz
      WR SET SELECTION(Bereich;Erstes+1;Letztes)
         `Erhalte Anzahl der Tabulatoren
      $TabNum:=WR Get text property(Bereich;wr tab;$uniforme)
      While ($TabNum#0)
         WR DELETE TAB(Bereich;1)
         $TabNum:=$TabNum-1
      End while 
         `Gehe direkt nach den zuletzt berechneten Absatz
      WR GET SELECTION(Bereich;Pos;Pos)
   End for 

WR ADD TAB, WR DELETE STYLESHEET TAB.