Sub Example() With ActiveDocument.Content.Find .ClearFormatting '清除格式设置 .Font.Name = "华文细黑" '查找的字体格式 With .Replacement '替换条件 .ClearFormatting '清除格式设置 .Font.Name = "黑体" '替换成黑体 End With .Execute FindText:="", ReplaceWith:="", Format:=True, _ Replace:=wdReplaceAll '是格式替换,全部替换 End With End Sub '----------------------