本示例将 MyDupFont 变量设为所选内容的字符格式,从 MyDupFont 中删除加粗格式,并添加倾斜格式。然后创建一篇新文档,插入文本,再将 MyDupFont 中保存的格式应用于该文本。

Set myDupFont = Selection.Font.Duplicate
With myDupFont
    .Bold = False
    .Italic = True
End With
Documents.Add
Selection.InsertAfter "这是我插入的文本。"
Selection.Font = myDupFont