Fixe la valeur d’une propriété sur le document Word courant ou sur l’application.
Syntaxe 1
|
CHGVAR |
VAR(&CMD) VALUE('WSETPROP') |
|
CHGVAR |
VAR(&PARM1) VALUE('Propriété') |
|
CHGVAR |
VAR(&PARM2) VALUE('Valeur') |
|
CALL |
PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 + &PARM2 &RESULT)) |
|
MONMSG |
MSGID(LNC0000) EXEC(GOTO CMDLBL(ERROR)) |
Paramètres
|
Paramètres |
|
|
Parm1 |
Le chemin complet vers la propriété à modifier. Exemple : Selection.Font.Bold
|
|
Parm2 |
Valeur à affecter à la propriété.
Exemples :
TRUE : Valeur Vrai.
FALSE : Valeur Faux.
INT(chaîne) : Quand Word attend une valeur entière.
|
Exemples 1
1) L’exemple ci-dessous fixe la couleur de police de la sélection en rouge.
|
CHGVAR |
VAR(&CMD) VALUE('WSETPROP') |
|
CHGVAR |
VAR(&PARM1) VALUE('Selection.Font.Color') |
|
CHGVAR |
VAR(&PARM2) VALUE('INT(255)') |
|
CALL |
PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 + &PARM2 &RESULT)) |
Remarque : Parm2 = INT(255) : Couleur rouge
2) Cet exemple insère du texte dans l’entête et pied de page.
LNCCMD CMD(WORDOPEN)
LNCCMD CMD(WOPENFILE) +
PARM1('%LNCDIR%\SAMPLES\MODELE_STYLE.DOC')
LNCCMD CMD(WSETPROP) +
PARM1(activewindow.activepane.view.seekview+
) PARM2(wdseekcurrentpageheader)
LNCCMD CMD(WTYPETEXT) PARM1('CECI EST UNE ENTETE DE PAGE')
LNCCMD CMD(WSETPROP) +
PARM1(ACTIVEWINDOW.ACTIVEPANE.VIEW.SEEKVIEW+
) PARM2(WDSEEKCURRENTPAGEFOOTER)
LNCCMD CMD(WTYPETEXT) PARM1('CECI EST UN PIED DE PAGE')
LNCCMD CMD(WORDSHOW)
3) Cet exemple met la sélection en gras.
LNCCMD CMD(WSETPROP) PARM1('Selection.Font.Bold') +
PARM2('True')
4) Cet exemple désactive l’affichage de popups Word.
LNCCMD CMD(WSETPROP) +
PARM1('application.displayalerts') +
PARM2('wdalertsnone')
Syntaxe 2
|
CHGVAR |
VAR(&CMD) VALUE('WSETPROP') |
|
CHGVAR |
VAR(&PARM1) VALUE(' Property= "Propriété"; |
|
Value="Valeur" ') |
|
|
CALL |
PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 + &PARM2 &RESULT)) |
|
MONMSG |
MSGID(LNC0000) EXEC(GOTO CMDLBL(ERROR)) |
Paramètres
|
Paramètres |
|
|
Parm1 |
Property = Le chemin complet vers la propriété à modifier. |
|
ou Parm2 |
Value = Valeur à affecter à la propriété
|
Exemple 2
LNCCMD CMD(WSETPROP) PARM1('Property= "SELECTION.STYLE" ;Value=" ACCENTUATION"') +
Remarque
Le chemin vers la propriété respecte la syntaxe utilisée en Visual Basic.
Quelques exemples :
Selection.Font.Color : Change la couleur de la sélection.
Selection.Borders.Item(wdBorderLeft).LineStyle: Change le style de la bordure gauche.
Selection.Font.Bold : Permet de mettre en gras la sélection.
Il est possible d'utiliser toutes les constantes de Word et Visual Basic Application ou bien la valeur de la constante elle-même.
Quand le chemin vers la propriété inclut un élément d’une collection (tel que Selection.Borders, qui a 4 bordures), il faut préciser l’élément concerné (Item).