WR SUPPRIMER FEUILLESTYLE

4D - Documentation   Français   English   German   4D Write, Commandes par thèmes   4D Write, Liste alphabétique des commandes   4D Write, Constantes par thèmes   Retour   Précédent   Suivant

version 6.5


WR SUPPRIMER FEUILLESTYLE (zone; numFeuille)

ParamètreTypeDescription
zoneEntier longZone 4D Write
numFeuilleEntier longNuméro de la feuille de style

Description

La commande WR SUPPRIMER FEUILLESTYLE permet de supprimer la feuille de style spécifiée par numFeuille.

Attention : Les feuilles de style système ne peuvent pas être supprimées. La commande WR LIRE INFO FEUILLESTYLE vous permet de savoir si la feuille de style numéro numFeuille est une feuille de style protégée.

Exemple

Vous souhaitez supprimer toutes les feuilles de style non protégées contenues dans votre document :

   C_ENTIER LONG(LaZone)
   C_ENTIER(NbFeuilleStyle;$NumFeuille)
      `Comptons le nombre de feuille de style
   NbFeuilleStyle:=WR Compter(LaZone;wr nb feuilles de style)
   $NumFeuille:=1
   Boucle ($i;1;NbFeuilleStyle)
      WR LIRE INFO FEUILLESTYLE(LaZone;$NumFeuille;$LeNom;$AppliqueSur;$Protégée;$Raccourci)
      Si ($Protégée=0)   `Si la feuille de style n'est pas protégée, on la supprime
         WR SUPPRIMER FEUILLESTYLE (LaZone;$NumFeuille)
      Sinon 
         $NumFeuille:=$NumFeuille+1
      Fin de si 
   Fin de boucle

Référence

WR Creer feuillestyle.


4D - Documentation   Français   English   German   4D Write, Commandes par thèmes   4D Write, Liste alphabétique des commandes   4D Write, Constantes par thèmes   Retour   Précédent   Suivant