4D Doc Center : WR SUPPRIMER TAB

4D Write v14

WR SUPPRIMER TAB


WR SUPPRIMER 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_ENTIER LONG(LaZone;$i;$Nbtab;$uniforme)

 

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

 WR FIXER SELECTION(LaZone;0;0)

  `Comptons le nombre de paragraphes contenus dans le document

 NbParag:=WR Compter(LaZone;wr nb paragraphes)

  `Traitons les paragraphes un par un

 Boucle($i;1;NbParag)

  `Récupérons la position du paragraphe

    WR LIRE PARAGRAPHES(LaZone;Debut;Pos)

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

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

  `Récupérons le nombre de tabulations

    $Nbtab:=WR Lire propriete texte(LaZone;wr tabulation;$uniforme)

    Tant que($Nbtab#0)

       WR SUPPRIMER TAB(LaZone;1)

       $Nbtab:=$Nbtab-1

    Fin tant que

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

    WR FIXER SELECTION(LaZone;Pos;Pos)

 Fin de boucle