Font.Duplicate (Word)

Retorna uma cópia de um objeto Font que representa a formatação de caracteres da fonte especificada.

Você pode usar a propriedade Duplicate para pegue as configurações de todas as propriedades de um objeto Font duplicado. Você pode atribuir o objeto retornado pela propriedade Duplicar a outro objeto Font para aplicar essas configurações ao mesmo tempo. Antes de atribuir o objeto duplicado a outro objeto, você pode alterar qualquer uma das propriedades do objeto duplicado sem afetar o original.

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