WR DELETE TAB

4D Write v16

WR DELETE TAB


WR DELETE TAB ( zone ; numTab )

Paramètre	Type	Description
zone	Entier long	Zone 4D Write
numTab	Entier long	Numéro de tabulation

Description

La commande WR SUPPRIMER TAB permet de supprimer la tabulation de numéro numTab.

Attention : Si la sélection comporte plusieurs paragraphes, la numérotation est relative au dernier paragraphe sélectionné. Si d'autres tabulations sont situées à la même position que la tabulation supprimée, elles seront également supprimées.

Exemple

Vous voulez supprimer toutes les tabulations présentes dans votre document :

 C_LONGINT(LaZone;$i;$Nbtab;$uniforme)

 

  `Plaçons le curseur au début de la zone

 WR SET SELECTION(LaZone;0;0)

  `Comptons le nombre de paragraphes contenus dans le document

 NbParag:=WR Count(LaZone;wr nb paragraphs)

  `Traitons les paragraphes un par un

 For($i;1;NbParag)

  `Récupérons la position du paragraphe

    WR GET PARAGRAPHS(LaZone;Debut;Pos)

  `Placons-nous à l'intérieur du paragraphe

    WR SET SELECTION(LaZone;Debut+1;Debut+1)

  `Récupérons le nombre de tabulations

    $Nbtab:=WR Get text property(LaZone;wr tab;$uniforme)

    While($Nbtab#0)

       WR DELETE TAB(LaZone;1)

       $Nbtab:=$Nbtab-1

    End while

  `Repositionnons-nous après le dernier paragraphe traité

    WR SET SELECTION(LaZone;Pos;Pos)

 End for

Voir aussi

WR ADD TAB
WR DELETE STYLESHEET TAB