怎样在Word中用VBA的Find对象查找被设置了批注的文本？

gbgbxgb

本帖附件中的Word文档含有下列字符串内容：
（一）社会工作者的知识素养

想用VBA代码查找该字符串以便获得其在文档中的Start和End的位置值；由于该字符串被设置了批注，绞尽脑汁也无法找到。
EH友们，如果你们曾碰到这种情况，请不吝告知原因和解决方案。


提示：用Word界面的“查找”对话框是可以找到的。



问题已经解决。


下列附件（即名称为“附件文件.rar”）中的代码系应实际场景需求而写的完整代码，供EH友们参考。

追风少年丶斌

Sub Word中查找指定字符串()
    Dim strText As String
    Dim intPos As Integer
    Dim intStart As Integer
    Dim strFind As String
    Dim i As Integer
   
    strFind = "街道办"
   
    '查找文中内容
    strText = ActiveDocument.Range.Text
    intStart = 1
    Do
        intPos = InStr(intStart, strText, strFind)
        If intPos > 0 Then
            MsgBox strFind & "出现在第 " & intPos & " 位，结束位置是第 " & intPos + Len(strFind) - 1 & " 位"
            intStart = intPos + 1
        Else
            Exit Do
        End If
    Loop
   
    '查找批注中的内容
    For i = 1 To ActiveDocument.Comments.Count
        strText = ActiveDocument.Comments.Item(i).Range.Text
        intStart = 1
        Do
            intPos = InStr(intStart, strText, strFind)
            If intPos > 0 Then
                MsgBox strFind & "出现在第 " & i & " 条批注中的第 " & intPos & " 位，结束位置是第 " & intPos + Len(strFind) - 1 & " 位"
                intStart = intPos + 1
            Else
                Exit Do
            End If
        Loop
    Next
    MsgBox "查找完毕"
End Sub

182197315

Sub 宏3()
Selection.HomeKey 6
Selection.Find.ClearFormatting
With Selection.Find
    .Text = "社会工作者的知识素养"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindAsk
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = True
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
End With
Selection.Find.Execute
End Sub

gbgbxgb

追风少年丶斌 发表于 2023-2-26 09:38
Sub Word中查找指定字符串()
    Dim strText As String
    Dim intPos As Integer

感谢帮助。
你误解我的意思了。

gbgbxgb

182197315 发表于 2023-2-26 11:07
Sub 宏3()
Selection.HomeKey 6
Selection.Find.ClearFormatting

感谢你的帮助。
受你录制的宏的启发，我想我找到原因了，那就是必须使用Selection这一对象。

奇怪的是，我也曾录了宏，但当时没起作用。为什么当时不起作用，情形想不起来了。

我原来的代码没用到Selection这一对象，怎么设置参数都没效果：
Sub lkjj()
    Dim theStr$
    '
    theStr = "（一）社会工作者的知识素养"
    With ActiveDocument.Content.Find
        .ClearFormatting
        .Text = theStr
        .Format = False
        .Execute
        If .Found Then
            MsgBox "Find it!" & vbLf & .Parent.Start
        Else
            MsgBox "Found nothing!"
        End If
    End With
End Sub

用了Selection对象就成功了：
Sub lkjj()
    Dim theStr$
    '
    theStr = "（一）社会工作者的知识素养"
    With ActiveDocument.Windows(1).Selection.Find
        .ClearFormatting
        .Text = theStr
        .Format = False
        .Execute
        If .Found Then
            MsgBox "Find it!" & vbLf & .Parent.Start
        Else
            MsgBox "Found nothing!"
        End If
    End With
End Sub

追风少年丶斌

把街道办换成你想要文字

smiletwo

gbgbxgb

smiletwo 发表于 2023-2-27 09:42

你误解了我意思。
我说了，要查找的是“（一）社会工作者的知识素养”这一完整的字符串，而不是“社会工作者的知”。
我注意到了“社会工作者的知”，这用我原有代码就能找到的，恰恰是查找的目标字符串中仅部分字符串被设置了标注，从而造成查找失败。
此外，我也想过用正则，但琢磨了下，感觉麻烦，而且，Word字符串的定位问题用Word自身的查找定位功能可避免意料之外的细节问题。

总之，该问题用Selection对象来查找就可解决了。
感谢你关注此帖。

后续补注：实际应用中，待查找字符串内容不确定，正则表达式直接引用目标字符串作为Pattern，往往造成正则式表达错误。故正则法在此帖对要解决的实际问题不适用。

smiletwo

gbgbxgb 发表于 2023-2-27 10:00
你误解了我意思。
我说了，要查找的是“（一）社会工作者的知识素养”这一完整的字符串，而不是“社会工 ...

zldccmx

1. Sub zldccmx()
   
2.     Dim C As Comment
   
3.     For Each C In ActiveDocument.Comments
   
4.         Debug.Print C.Scope.Text & "[Start:" & C.Scope.Start & "End:" & C.Scope.End & ")"
   
5.     Next
   
6. End Sub

复制代码