4D Doc Center : WR DELETE TAB

4D Write v13

WR DELETE TAB


WR DELETE TAB ( Bereich ; TabNr )

Parameter	Typ	Beschreibung
Bereich	Lange Ganzzahl	4D Write Bereich
TabNr	Lange Ganzzahl	Nummer des Tabulators

Beschreibung

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.

Beispiel

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

4D v13

WR DELETE TAB

WR DELETE TAB

Beschreibung

Beispiel