Commande WMENU

Construit une barre de menu personnalisée sous Word.

WMENU doit être utilisé avec les commandes WADDINS et WORDWAIT.

Syntaxe

CHGVAR	VAR(&CMD) VALUE('WMENU')
CHGVAR	VAR(&PARM1) VALUE(' Captions="Libellés des boutons" [;Tips="Bulles d’aide"] [;Remove] ')
CHGVAR	VAR(&PARM2) VALUE(' ')
CALL	PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 + &PARM2 &RESULT)

Paramètres

Parm1

Captions : Permet de donner le libellé de chaque bouton de la nouvelle barre de menu.
Les libellés sont séparés entre eux par un point virgule ( ;).
Le nombre de libellés détermine le nombre de boutons de la barre de menu.

Tips : Permet d’afficher une bulle d’aide pour chaque bouton.

Les tips sont séparés entre eux par un point virgule ( ;). Leur nombre doit correspondre au nombre de libellés.

Remove : supprime le précédent menu.

Remarques

Le complément « LNCWordAddin.dot » doit être chargé par la commande WADDINS avant d’utiliser WMENU.
Lors de l’appel de la commande WORDWAIT, le programme AS/400 se met en attente d’une action de la part de l’utilisateur. Il reprend la main quand Word est fermé, ou sur l’action d’un des boutons du nouveau menu.
Au retour de la commande WORDWAIT, la variable &RESULT contient le numéro sur 5 chiffres du bouton actionné (de 1 à n).

Le menu personnalisé apparaîtra dans l'onglet "Complément" du menu Word.

Exemple

CHGVAR	VAR(&CMD) VALUE('WADDINS')
CHGVAR	VAR(&PARM1) VALUE(‘%LNCDIR%\ LNCWordAddin.dot’)
CHGVAR	VAR(&PARM2) VALUE(' ')
CALL	PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 + &PARM2 &RESULT)

CHGVAR	VAR(&CMD) VALUE('WMENU')
CHGVAR	VAR(&PARM1) VALUE('Captions="Valider;Annuler";Tips="Valider le document;Abandonner le document"')
CHGVAR	VAR(&PARM2) VALUE(' ')
CALL	PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 + &PARM2 &RESULT)

CHGVAR	VAR(&CMD) VALUE('WORDWAIT')
CHGVAR	VAR(&PARM1) VALUE(‘ ’)
CHGVAR	VAR(&PARM2) VALUE(' ')
CALL	PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 + &PARM2 &RESULT)