Font.Duplicate (Word)

Renvoie une copie d’un objet font qui représente la mise en forme de caractères de la police spécifiée.

Vous pouvez utiliser la propriété Duplicate pour collecter les paramètres de toutes les propriétés d'un objet Font dupliqué.

Set myDupFont = Selection.Font.Duplicate 
With myDupFont 
 .Bold = False 
 .Italic = True 
End With 
Documents.Add 
Selection.InsertAfter "This is some text." 
Selection.Font = myDupFont