Classe MailMergeField - champ de fusion et publipostage (Word VBA)

La classe MailMergeField représente un champ de fusion et publipostage unique dans un document. Pour utiliser une variable de classe MailMergeField, elle doit d'abord être instanciée, par exemple


Dim mmf as MailMergeField
Set mmf = ActiveDocument.MailMerge.Fields(Index:=1)

Code

Renvoie un objet Range qui représente le code d’un champ.

Un code de champ est constitué de tous les éléments placés entre des caractères de champ ({ }), dont l'espace situé à gauche et celui situé à droite.


Dim fieldLoop As Field 
 
For Each fieldLoop In ActiveDocument.Fields 
 MsgBox Chr(34) & fieldLoop.Code.Text & Chr(34) 
Next fieldLoop

Copy

Copie le champ de publipostage spécifié dans le Presse-papiers.


ActiveDocument.MailMerge.Fields(1).Copy

Cut

Supprime le champ de publipostage spécifié du document et le déplace vers le Presse-papiers.


If ActiveDocument.Fields.Count >= 1 Then 
 ActiveDocument.Fields(1).Cut 
 Selection.Collapse Direction:=wdCollapseEnd 
 Selection.Paste 
End If

Delete

Supprime le champ de publipostage spécifié.


ActiveDocument.MailMerge.Fields(1).Delete

Locked

True si le champ spécifié est verrouillé.

Quand un champ est verrouillé, il est impossible de mettre à jour les valeurs qu'il contient.


ActiveDocument.MailMerge.Fields(1).Locked = True

Renvoie le champ de fusion et publipostage suivant de la collection de champs de fusion et publipostage.


Dim mmfNext As MailMergeField
Set mmfNext = ActiveDocument.MailMerge.Fields(1).Next

Renvoie le champ de fusion et publipostage précédent dans la collection des champs de fusion et publipostage.


Dim mmfPrevious As MailMergeField
Set mmfPrevious = ActiveDocument.MailMerge.Fields(1).Previous

Select

Sélectionne le champ de publipostage spécifié.

Après avoir exécuté cette méthode, utilisez la propriété Selection pour travailler avec les éléments sélectionnés.


ActiveDocument.MailMerge.Fields(1).Select

Type

Renvoie le type de champ. Ici on trouve valeurs possible pour WdFieldType.


Dim wftType As WdFieldType
wftType = ActiveDocument.MailMerge.Fields(1).Type