PreviousNext
Help > Programmation avec LAUNCHER Office > Les commandes LNCCMD > Liste des commandes > Commande WMENU
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

 

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

 

1)

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).

2)

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)