Exécute une macro Microsoft Word.
Syntaxe
|
CHGVAR |
VAR(&CMD) VALUE('WEXEMACRO') |
|
CHGVAR |
VAR(&PARM1) VALUE('Nom Macro') |
|
CHGVAR |
VAR(&PARM2) VALUE('[Paramètres de la macro]') |
|
CALL |
PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 + &PARM2 &RESULT) |
Paramètres
|
Paramètres |
|
|
Parm1 |
Nom de la macro. Parfois le nom complet de la macro est nécessaire. Exemple : Modèle.Module.Macro.
|
|
Parm2 |
Paramètres
passés à la macro.
|
Exemple 1
|
CHGVAR |
VAR(&CMD) VALUE('WEXEMACRO') |
|
CHGVAR |
VAR(&PARM1) VALUE('Macro1') |
|
CHGVAR |
VAR(&PARM2) VALUE('"12000";"FRANCE" ') |
|
CALL |
PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 + &PARM2 &RESULT) |
|
MONMSG |
MSGID(LNC0000) EXEC(GOTO CMDLBL(ERROR)) |
Exemple 2
Supposons que nous ayons la macro suivante avec 2 paramètres :
Sub
InsertTextAtEndOfDocument(param1 as string, param2 as string)
ActiveDocument.Content.InsertAfter Text:= param1
ActiveDocument.Content.InsertAfter Text:= param2
End Sub
Pour exécuter la macro, on peut lancer la commande suivante :
LNCCMD CMD(WEXEMACRO) +
PARM1('InsertTextAtEndOfDocument') +
PARM2('"Aura";"Equipements"')
Voir aussi
• WADDINS
• WGETPROP