4D Write v16WR DELETE TAB |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
4D Write v16
WR DELETE TAB
|
WR DELETE TAB ( Bereich ; TabNr ) | ||||||||
Parameter | Typ | Beschreibung | ||||||
Bereich | Lange Ganzzahl |
![]() |
4D Write Bereich | |||||
TabNr | Lange Ganzzahl |
![]() |
Nummer des Tabulators | |||||
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
Produkt: 4D Write
Thema: WR Tabulatoren
Nummer:
89448
Erstellt: 4D Write 6.5
4D Write Programmiersprache ( 4D Write v16)