Insère un champ dans un document Microsoft Word.
Syntaxe
|
CHGVAR |
VAR(&CMD) VALUE('WFIELDS') |
|
CHGVAR |
VAR(&PARM1) VALUE(' Text="Expression à
insérer" ') |
|
CHGVAR |
VAR(&PARM2) VALUE(' ') |
|
CALL |
PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 + &PARM2 &RESULT) |
Paramètres
|
Paramètres |
|
|
Parm1 |
Text = Texte additionnel pour la création du champ.
Type = Type de champ à
ajouter. (Défaut = wdFieldTypeEmpty).
Bookmark = désigne un signet existant dans le document, où l’insertion du nouveau champ doit se faire.
PreserveFormat = permet de conserver le format du champ lors de chaque mise à jour.
Update = permet de mettre à jour tous les champs du document.
|
|
|
Remarque
Valeurs acceptées pour le type de champ :
|
wdFieldAdvance |
wdFieldAsk |
|
|
wdFieldAuthor |
wdFieldAutoNum |
wdFieldAutoNumLegal |
|
wdFieldAutoNumOutline |
wdFieldAutoText |
wdFieldAutoTextList |
|
wdFieldBarCode |
wdFieldComments |
wdFieldCompare |
|
wdFieldCreateDate |
wdFieldData |
wdFieldDatabase |
|
wdFieldDate |
wdFieldDDE |
wdFieldDDEAuto |
|
wdFieldDocProperty |
wdFieldDocVariable |
wdFieldEditTime |
|
wdFieldEmbed |
wdFieldEmpty |
wdFieldExpression |
|
wdFieldFileName |
wdFieldFileSize |
wdFieldFillIn |
|
wdFieldFootnoteRef |
wdFieldFormCheckBox |
wdFieldFormDropDown |
|
wdFieldFormTextInput |
wdFieldFormula |
wdFieldGlossary |
|
wdFieldGotoButton |
wdFieldHTMLActiveX |
wdFieldHyperlink |
|
wdFieldIf |
wdFieldImport |
wdFieldInclude |
|
wdFieldIncludePicture |
wdFieldIncludeText |
wdFieldIndex |
|
wdFieldIndexEntry |
wdFieldInfo |
wdFieldKeyWord |
|
wdFieldLastSavedBy |
wdFieldLink |
wdFieldListNum |
|
wdFieldMacroButton |
wdFieldMergeField |
wdFieldMergeRec |
|
wdFieldMergeSeq |
wdFieldNext |
wdFieldNextIf |
|
wdFieldNoteRef |
wdFieldNumChars |
wdFieldNumPages |
|
wdFieldNumWords |
wdFieldOCX |
wdFieldPage |
|
wdFieldPageRef |
wdFieldPrint |
wdFieldPrintDate |
|
wdFieldPrivate |
wdFieldQuote |
wdFieldRef |
|
wdFieldRefDoc |
wdFieldRevisionNum |
wdFieldSaveDate |
|
wdFieldSection |
wdFieldSectionPages |
wdFieldSequence |
|
wdFieldSet |
wdFieldSkipIf |
wdFieldStyleRef |
|
wdFieldSubject |
wdFieldSubscriber |
wdFieldSymbol |
|
wdFieldTemplate |
wdFieldTime |
wdFieldTitle |
|
wdFieldTOA |
wdFieldTOAEntry |
wdFieldTOC |
|
wdFieldTOCEntry |
wdFieldUserAddress |
wdFieldUserInitials |
|
wdFieldUserName |
|
|
Exemples
Cet
exemple ajoute le champ variable Word "Variable1" et lui affecte la
valeur "Monsieur".
Les guillemets sont doublés autour de la valeur.
CHGVAR VAR(&CMD) VALUE('WORDOPEN')
CHGVAR VAR(&PARM1) VALUE('FILE="C:\TEMP\TEST.DOCX"')
CHGVAR VAR(&PARM2) VALUE('VISIBLE')
CALL PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 +
&PARM2 &RESULT)
CHGVAR VAR(&CMD) VALUE('WFIELDS')
CHGVAR VAR(&PARM1) VALUE('TEXT="SET variable1 ""MONSIEUR""";+
TYPE= WDFIELDDOCVARIABLE;BOOKMARK="\STARTOFDOC"')
CHGVAR VAR(&PARM2) VALUE(' ')
CALL PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 +
&PARM2 &RESULT)
L’ exemple suivant met à jour tous les champs du document.
|
CHGVAR |
VAR(&CMD) VALUE('WFIELDS') |
|
CHGVAR |
VAR(&PARM1) VALUE('Update =True') |
|
CHGVAR |
VAR(&PARM2) VALUE(' ') |
|
CALL |
PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 + &PARM2 &RESULT) |
Enfin cet exemple crée un bookmark et assigne un champ de fusion nommé CUST_ID sur ce bookmark :
PARM1('BOOKMARK="Name";TEXT="Aura"')
LNCCMD CMD(WFIELDS) +
PARM1('Text="CUST_ID";Type=wdFieldMergeField;Bookmark="Name"')