Copie la sélection courante ou le contenu d’un signet, dans le presse-papiers ou dans un autre signet.
Syntaxe
CHGVAR |
VAR(&CMD) VALUE('WCOPY') |
CHGVAR |
VAR(&PARM1) VALUE(' [Count=Nombre] ') |
CHGVAR |
VAR(&PARM2) VALUE(' ') |
CALL |
PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 + &PARM2 &RESULT) |
Paramètres
Paramètres |
|
Parm1 |
From : Désigne un
signet dans le document, dont le contenu doit être copié.
To : Désigne un
signet dans le document, vers lequel doit se faire la copie.
Count : Indique le nombre
de copies à faire.
|
|
Exemples
L’exemple suivant copie la valeur 123 456,78 de "Ligne1" vers le presse papier
CHGVAR VAR(&CMD) VALUE('WORDOPEN')
CHGVAR VAR(&PARM1) VALUE('FILE ="C:\TEMP\TEST.DOC"')
CHGVAR VAR(&PARM2) VALUE('VISIBLE')
CALL PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 +
&PARM2 &RESULT)
CHGVAR VAR(&CMD) VALUE('WBOOKMADD')
CHGVAR VAR(&PARM1) VALUE('Ligne1')
CHGVAR VAR(&PARM2) VALUE(' ')
CALL PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 +
&PARM2 &RESULT)
CHGVAR VAR(&CMD) VALUE('WBOOKMARK')
CHGVAR VAR(&PARM1) VALUE('Ligne1;NUMFMT(2 DECPOINT=, GRPPOINT=.)')
CHGVAR VAR(&PARM2) VALUE('12345678')
CALL PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 +
&PARM2 &RESULT)
CHGVAR VAR(&CMD) VALUE('WSELECT')
CHGVAR VAR(&PARM1) VALUE('*LINE')
CHGVAR VAR(&PARM2) VALUE(' ')
CALL PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 +
&PARM2 &RESULT)
CHGVAR VAR(&CMD) VALUE('WCOPY')
CHGVAR VAR(&PARM1) VALUE(' ')
CHGVAR VAR(&PARM2) VALUE(' ')
CALL PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 +
&PARM2 &RESULT)
L’exemple suivant copie 10 fois le contenu de "Ligne1" à l’emplacement de "Ligne2".
CHGVAR |
VAR(&CMD) VALUE('WCOPY) |
CHGVAR |
VAR(&PARM1) VALUE('From ="Ligne1";To="Ligne2";Count=10') |
CHGVAR |
VAR(&PARM2) VALUE(' ') |
CALL |
PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 + &PARM2 &RESULT)) |
MONMSG |
MSGID(LNC0000) EXEC(GOTO CMDLBL(ERROR))
|
L’exemple suivant copie la sélection courante vers le presse papier.
CHGVAR |
VAR(&CMD) VALUE('WCOPY) |
CHGVAR |
VAR(&PARM1) VALUE(' ') |
CHGVAR |
VAR(&PARM2) VALUE(' ') |
CALL |
PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 + &PARM2 &RESULT)) |
MONMSG |
MSGID(LNC0000) EXEC(GOTO CMDLBL(ERROR)) |
Voir aussi
• WPASTE
• WSELECT