ClearFormatting方法有什么用处？

sqhsqhli

总是可有可无的感觉，什么时候才是必不可少的？总有个存在的理由吧

Sub 越来越糊涂()
With ActiveDocument.Content.Find
    '    .ClearFormatting
        .Text = "你"
        .MatchWildcards = False
     '   .Replacement.ClearFormatting
        .Replacement.Text = "我"
        .Execute Replace:=wdReplaceAll
    End With
End Sub

李甲

录制的东西，有默认的东西，也有暗自操作的东西

413191246se

我也有此同感！建议楼主老弟，先在一篇文档中，手动查找与替换操作，操作多次以后，再想使用 VBA 代码（不包含 clearformatting 语句），可能会发现，明明文中有某个词，硬是替换不了，这时，可能就需要该语句了。你先试试手动替换几次，然后试试如下代码：

1. Sub 查找关键词()
   
2. ' 当查找条件紊乱时，此宏失灵！
   
3.     Dim i As String
   
4.     i = InputBox("请输入关键词：", "查找关键词", "素质教育")
   
5.     If i = "" Then Exit Sub
   
6.     Selection.HomeKey Unit:=wdStory
   
7.     Do
   
8.         Selection.Find.Execute findtext:=i
   
9.         Selection.Font.Color = wdColorRed
   
10.     Loop Until Selection.Find.Found = False
    
11.     Selection.HomeKey Unit:=wdStory
    
12. End Sub
    
13. Sub 查找关键词2()
    
14. ' 当查找条件紊乱时，此宏失灵！
    
15.     Dim i As String
    
16.     i = InputBox("请输入关键词：", "查找关键词", "素质教育")
    
17.     If i = "" Then Exit Sub
    
18.     With ActiveDocument.Content.Find
    
19.         .Text = i
    
20.         With .Replacement
    
21.             .Font.Color = wdColorRed
    
22.         End With
    
23.         .Execute Replace:=wdReplaceAll
    
24.     End With
    
25. End Sub

复制代码

sylun

我觉得这是一种初始化动作。对于Range对象，在过程中初次使用find或Replacement时格式本身就是初始化的，也就无需用此方法。但对Selection对象就不一定，因它是全局性的，且与前面手工查找替换操作关联，为保证不会出现意外，有必要用此方法。另外，就算是Range，如果之前进行了格式设置而后续操作不再需要格式设置时，就可用此方法去除所有格式设置。

sqhsqhli

谢谢指教。

yanmingwuyu

本示例在将活动文档中的单词“Inc.”替换为“incorporated”之前，清除查找或替换条件的格式设置

4楼说得通俗些，读了好几遍才懂

是清除find对象里内容本身的格式，清除find对象的内容格式不会影响word里文本的格式，因为对象不一样（find对象和document.content对象），换言而之，就是查找纯文本。