version 6.5
WR Lire police feuillestyle (zone; numFeuille) Alpha
Paramètre | Type | Description | |
zone | Entier long | Zone 4D Write | |
numFeuille | Entier long | Numéro de la feuille de style | |
Résultat | Alpha | Nom de la police de caractères définie | |
pour numFeuille |
Description
La commande WR Lire police feuillestyle retourne le nom de la police de caractères qui a été définie pour la feuille de style numFeuille. Si aucune police n'est définie pour cette feuille de style, une chaîne vide est retournée.
Exemple
Vous souhaitez enlever l'attribut Police des feuilles de style pour lesquelles il a été défini, et lorsque la police n'est pas installée dans votre système :
TABLEAU ALPHA(80;TabPolice) WR POLICES INSTALLEES(TabPolice) $nbFeuilleStyle:=WR Compter(LaZone;wr nb feuilles de style) Boucle ($i;1;$nbFeuilleStyle) $Police:=WR Lire police feuillestyle(LaZone;$i) Si (($Police#"") & (Chercher dans tableau(TabPolice;$Police)=0)) WR FIXER POLICE FEUILLESTYLE(LaZone;$i;"") Fin de si Fin de boucle
Référence
WR FIXER POLICE FEUILLESTYLE, WR Lire police.