version 6.5
WR SUPPRIMER FEUILLESTYLE (zone; numFeuille)
Paramètre | Type | Description | |
zone | Entier long | Zone 4D Write | |
numFeuille | Entier long | Numé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