Recherche un texte dans le document Word actif et le remplace par une nouvelle valeur. Plusieurs propriétés et options peuvent être précisées.
Syntaxe
CHGVAR |
VAR(&CMD) VALUE('WREPLACE') |
CHGVAR |
VAR(&PARM1) VALUE(' Find="Texte à rechercher" [;ReplaceWith="Nouveau texte"] [;MatchCase=True/False] [;MatchWholeWord=True/False] [;MatchWildcards=True/False] [;MatchSoundsLike=True/False] [;Replace=constante] [;Forward=True/False] [;Wrap=constante] ') |
CHGVAR |
VAR(&PARM2) VALUE(' ') |
CALL |
PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 + &PARM2 &RESULT) |
Paramètres
Paramètres |
|
Parm1 |
Find : le texte qui sera recherché.
ReplaceWith : le texte de remplacement. Pour supprimer
toutes les occurrences d'un mot ou d'un texte, indiquez pour cet argument la
chaîne vide ("").
MatchCase: True/False. Vrai si la recherche doit respecter la casse. Faux par défaut.
MatchWholeWord : True/False. Vrai pour rechercher les occurrences constituant des mots entiers et non des parties de mots. Faux par défaut.
MatchWildcards : True/False. Vrai
pour utiliser les caractères génériques et opérateurs spéciaux.
MatchSoundsLike : True/False. Recherche les mots qui ressemblent phonétiquement mais avec une orthographe différente. Faux par défaut.
Replace : indique le nombre de remplacements à effectuer : un, tous ou aucun. Utilise les constantes suivantes : wdReplaceAll (par défaut), wdReplaceNone, ou wdReplaceOne.
Forward : True/False. Recherche en avant, vers la fin du document. True par Défaut.
Wrap : WdFindAsk : Après remplacement dans la sélection, Microsoft affiche un message demandant si vous souhaitez rechercher dans le reste du document. WdFindContinue (par défaut) : L'opération de remplacement continue après la sélection. WdFindStop : l'opération de remplacement de termine dès que la fin de la sélection est atteinte. |
|
Exemple
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('WREPLACE')
CHGVAR VAR(&PARM1) VALUE('FIND="Bonjour";+
REPLACEWITH="Hello"')
CHGVAR VAR(&PARM2) VALUE(' ')
CALL PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 +
&PARM2 &RESULT)
Voir aussi