Font.Duplicate (Word)

Devuelve una copia de un objeto Font que representa el formato de carácter de la fuente especificada.

Puede utilizar la propiedad Duplicate para seleccionar la configuración de todas las propiedades de un objeto Font duplicado.

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