查找并替换批注中的内容 VBA

thunor

这是用于查找和替换批注中内容而录制的宏，运行它时却不能查找和替换批注中的内容。不知道什么原因。
Sub Macro26()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "SSS"
        .Replacement.Text = "TTT"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll  
End Sub

守柔

请参考:
Private Sub Example()
    If ActiveDocument.Comments.Count > 0 Then    ''''活动文档具有批注时
        With ActiveDocument.StoryRanges(wdCommentsStory).Find    ''''对批注视图(内容)的查找
            .ClearFormatting
            .Text = "EH"
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchByte = True
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
            .Replacement.ClearFormatting
            .Replacement.Text = "ExcelHome"    ''''替换为相关内容
            .Execute Replace:=wdReplaceAll ''''全部替换
        End With
    End If
End Sub

dafanshu1

守柔 发表于 2016-10-21 14:53
请参考:
Private Sub Example()
    If ActiveDocument.Comments.Count > 0 Then    ''''活动文档具有批 ...

加入论坛以来第一次见到传说中的守柔顾问现身指导，好激动……

thunor

谢谢守望柔顾问的亲自指导，今天晚上试试，谢谢你。以前也学习过你不少的代码。

thunor

现在又发现了一个问题，如果在批注中加入通配符则不能替换了。另外，如果我只想查找这个内容的话，这段代码怎么写？找到内容并选中，但不替换。谢谢。

duquancai

thunor 发表于 2016-10-28 18:41
现在又发现了一个问题，如果在批注中加入通配符则不能替换了。另外，如果我只想查找这个内容的话，这段代码 ...

你既然看过守老大的不少代码，那你应该知道啊！

thunor

已经解决，解决比较有趣。总之用通配符是可以发现、查找和替换批注内容的，但是与一般的方法比，真的又不尽相同。