如何准备和展示；查找“；或；搜索“；用vba实现word中的对话框

我正在准备一个查找对话框，用于查找文档中所有突出显示的文本。 我试着用宏录制器构建它，但它无法显示对话框或找到文本

这是我的代码：

Sub searchForHighlights()

Dim match As Object
Set match = Application.Dialogs(wdDialogEditReplace)

match.Find.ClearFormatting
match.Find.Highlight = True
With match.Find
    .Text = ""
'    .Replacement.Text = ""  <<< I don't want my text to be replaced
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
End With

match.Show

End Sub

---

我提交了搜索突出显示文本的部分。但有一件事。。。我不太明白“查找对话框”背后的功能是什么。你能更清楚地描述一下吗

也许你想在所有选项都设置好的情况下显示“查找对话框”

Sub FindAllHighlighted()
    Selection.Find.ClearFormatting
    Selection.Find.Highlight = True 'searches for highlighted text
    With Selection.Find
        .Text = ""
        .Replacement.Text = "" 'don't bother it wo'nt replace your text
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
Selection.Find.Execute
End Sub

---

我提交了搜索突出显示文本的部分。但有一件事。。。我不太明白“查找对话框”背后的功能是什么。你能更清楚地描述一下吗

也许你想在所有选项都设置好的情况下显示“查找对话框”

Sub FindAllHighlighted()
    Selection.Find.ClearFormatting
    Selection.Find.Highlight = True 'searches for highlighted text
    With Selection.Find
        .Text = ""
        .Replacement.Text = "" 'don't bother it wo'nt replace your text
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
Selection.Find.Execute
End Sub

---

谢谢，但我真正想要的是打开“查找”对话框（带有适当的设置），这可以通过以下操作完成：Dialogs（wdDialogEditFind）。无论如何，显示感谢！很高兴你找到了答案；）谢谢，但我真正想要的是打开“查找”对话框（带有适当的设置），这可以通过以下操作完成：Dialogs（wdDialogEditFind）。无论如何，显示感谢！很高兴你找到了答案；）