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