Font.Duplicate (Word)

Returns a copy of a Font object that represents the character formatting of the specified font.

You can use the Duplicate property to pick up the settings of all the properties of a duplicated Font object. You can assign the object returned by the Duplicate property to another Font object to apply those settings all at once. Before assigning the duplicate object to another object, you can change any of the properties of the duplicate object without affecting the 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