Appelle une méthode de l’objet Word.Application.
Syntaxe
|
CHGVAR |
VAR(&CMD) VALUE('WMETHOD') |
|
CHGVAR |
VAR(&PARM1) VALUE('Méthode') |
|
CHGVAR |
VAR(&PARM2) VALUE(' ') |
|
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 de la méthode à appeler. Exemple : Documents.Item("Document2").Activate |
|
Parm2 |
|
Remarque 1
La commande WMETHOD permet d'exécuter depuis l'AS/400 des méthodes du langage VBA de Word.
Le contenu de Parm1 respecte la syntaxe utilisée en Visual Basic.
Il est possible d'utiliser toutes les constantes de Word et Visual Basic Application ou bien la valeur de la constante elle-même.
Pour avoir une idée des méthodes à appeler, placez vous sous Word en mode "Enregistrement de macros" : Menu "Outils" – "Macro" – "Nouvelle macro".
Faites les opérations désirées au clavier et souris.
Arrêtez l'enregistrement de macro, et allez voir le code généré par Word : Menu "Outils" – "Macro" – "Macros" – "Modifier".
Remarque 2
Il y a 2 différences à noter entre la syntaxe VB de Word et la syntaxe LAUNCHER :
1) Quand on sélectionne un objet d'une collection, il faut ajouter ".Item" après le nom de la collection.
Documents("Document2").Activate
devient
Documents.Item("Document2").Activate
2) Les noms de paramètres ( Nom:=valeur ) est propre à la syntaxe VB.
Avec LAUNCHER, il faut lister les valeurs de chaque paramètre, dans l'ordre attendu, séparés par ';'
L'instruction suivante
ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
"http://www.easycom-aura.com", SubAddress:="", ScreenTip:="", _
TextToDisplay:="fffff"
Devient
ActiveDocument.Hyperlinks.Add(prop(Selection.Range) ; http://www.easycom-aura.com; "" ; "" ; "Aura")
Et donc la commande est la suivante :
LNCCMD CMD(WMETHOD) + PARM1('ActiveDocument.Hyperlinks.Add(prop(Selection.Range);+ "http://www.easycom-aura.com"; ""; ""; "Aura")')
Sinon, optez pour l'écriture d'une macro sous Word, que vous appellerez par WEXEMACRO.
Exemple
L’exemple ci-dessous active le document "Document2".
|
CHGVAR |
VAR(&CMD) VALUE('WMETHOD') |
|
CHGVAR |
VAR(&PARM1) VALUE('Documents.Item("Document2").Activate') |
|
CHGVAR |
VAR(&PARM2) VALUE(' ') |
|
CALL |
PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 + &PARM2 &RESULT)) |