Classe Fields (Word VBA)
Collection d'objets Field qui représentent tous les champs contenus dans une sélection, une plage ou un document. Pour utiliser une variable de classe Fields, elle doit d'abord être instanciée, par exemple
Dim flds as Fields
Set flds = ActiveDocument.Fields
For Each
Voici un exemple de traitement des éléments Fields dans une collection
Dim fld As Field
For Each fld In ActiveDocument.Fields
Next fld
Add
Ajoute un objet Field à la collection Fields .
Vous ne pouvez pas insérer certains champs (par exemple, wdFieldOCX et wdFieldFormCheckBox) à l’aide de la méthode Add de la collection Fields .
Add (Range, Type, Text, PreserveFormatting)
Selection.Collapse Direction:=wdCollapseStart
Set myField = ActiveDocument.Fields.Add(Range:=Selection.Range, _
Type:=wdFieldUserName)
Arguments
Un argument nommé
Range (Range) - Plage où vous souhaitez ajouter le champ.
Optional arguments
Les arguments suivants sont facultatifs
Type (WdFieldType) - Il peut s’agir de n’importe quelle constante WdFieldType .
Ici on trouve valeurs possible pour
Text (String) - Texte supplémentaire qui peut être nécessaire pour le champ.
PreserveFormatting (Boolean) - True : pour conserver le format du champ lors des mises à jour.
Count
Renvoie un type long qui représente le nombre de champs dans la collection.
Dim lngCount As Long
lngCount = ActiveDocument.Fields.Count
Item
Renvoie un objet Field spécifique appartenant à une collection.
Item (Index)
Index: Objet spécifique qui doit être renvoyé.
Dim fld As Field
Set fld = ActiveDocument.Fields(Index:=1)
Locked
True si tous les champs de la collection Fields sont verrouillés.
Cette propriété peut avoir la valeur true, falseou wdUndefined (si certains champs de la collection sont verrouillés et d’autres non).
Selection.Fields.Locked = True
ToggleShowCodes
Active l'affichage des champs entre les codes de champ et les résultats de champ.
Selection.Fields.ToggleShowCodes
Unlink
Remplace tous les champs de la collection Fields par leur valeur la plus récente.
Lorsque vous annulez la liaison d'un champ, la valeur actuelle est convertie en texte ou en graphique et ne peut plus être automatiquement mise à jour.
With ActiveDocument.Sections(1).Range.Fields
.Update
.Unlink
End With
Update
Met à jour le résultat de l'objet Fields.
Renvoie 0 (zéro) si aucune erreur n'est générée lors de la mise à jour des champs ou renvoie un type long qui représente l'index du premier champ qui contient une erreur.
If ActiveDocument.Fields.Update = 0 Then
MsgBox "Update Successful"
Else
MsgBox "Field " & ActiveDocument.Fields.Update & _
" has an error"
End If
UpdateSource
Enregistre dans le document source les modifications apportées aux valeurs d'un champ INCLUDETEXT.
Le document source doit avoir le format document Word.
ActiveDocument.Fields.UpdateSource