Comment puis-je créer des champs Word avec VBA

Question

En plus d'insérer et d'analyser du texte dans un champ Word vierge, existe-t-il un moyen de créer par programmation des champs et des codes de champ définis par l'utilisateur dans mes propres modèles avec VBA? De plus, existe-t-il un moyen de faire apparaître ces champs dans la liste des champs disponibles?

Answer 1

J'ai récemment développé une solution qui utilisait les types de champs MACROBUTTON et ADDIN de Word.

J'ai trouvé MACROBUTTON utile parce que la troisième entrée délimitée par des espaces blancs à l'intérieur du champ (par programme field.code.text) est affichée dans Word. Cela permet à mes utilisateurs de regarder les champs lorsqu'ils se déplacent. {MACROBUTTON NoMacro *} affichera un "*" dans Word, par ex. Et cela ne servirait à rien si l'utilisateur double-cliquait dessus, car je n'ai volontairement pas défini de macro nommée "NoMacro".

Le champ ADDIN ne s'affiche pas (sauf lorsque les codes de champ d'affichage sont activés) et stocke une chaîne cachée dans sa propriété field.data. En utilisant ce champ je pourrais avoir un champ caché dont le contenu ne pourrait pas être vu ou modifié par les utilisateurs (excepté que s'ils activent des "codes de champ d'affichage" ils peuvent voir qu'il s'agit d'un champ ADDIN (mais ils ne peuvent pas voir/éditer propriété "données"), et qu'ils peuvent supprimer ce champ comme tout autre domaine)

J'ai trouvé ces pages utiles:.

• Using MacroButton fields
• Using Addin Fields

Answer 2

Qu'aviez-vous en tête? Il est possible d'ajouter des propriétés de document personnalisées manuellement ou avec VBA. Ce sont les accessibles champs sous DOCPROPERTY:

{ DOCPROPERTY "Test" \* MERGEFORMAT } 

Vous pouvez utiliser une macro pour faire en sorte que la propriété personnalisée est ajoutée aux documents:

Sub AutoNew() 
Dim objCustomProperties As DocumentProperties 

Set objCustomProperties = ActiveDocument.CustomDocumentProperties 

objCustomProperties.Add Name:="Test", _ 
    Type:=msoPropertyTypeString, Value:="Blah", _ 
    LinkToContent:=False 

End Sub 

Informations complémentaires

automacros: http://msdn.microsoft.com/en-us/library/aa263747(office.10).aspx Présentation des propriétés de document personnalisées dans Microsoft Office Word 2003:

http://msdn.microsoft.com/en-us/library/aa537154.aspx