Question

我可以添加到Sub的底部，只需打开“查找/替换”对话框，这样我就可以使用＆＃34;查找下一个＆＃34;按钮。

 Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "Section 01 40 00 - Quality Requirements"
        .Replacement.Text = "Section 01 73 00 - Execution"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
End Sub

Answer 1

要显示Word的内置对话框之一，请查询Application.Dialogs集合。当您输入左括号(时，应显示WdWordDialog成员的列表。找到您需要的那个。（注意：它们按照过去所在的菜单名称进行排序，返回到前带状星期，有时返回Word 2.0天 - 具体取决于对话框的年龄。这就是为什么查找是EditFind。）

Application.Dialogs(wdDialogEditFind).Show

或

Application.Dialogs(wdDialogEditReplace).Show

“运行”对话框有三个基本命令：Display，Execute和Show。最后一个是运行它的方式，就像你在Word中的用户一样。第一个将它放在屏幕上但没有做任何事情（您可以使用它来从对话框中获取信息），Execute运行带有您传递给它的设置的对话框而不显示它。

显示对话框的另一种方法：

Application.CommandBars.ExecuteMso("ReplaceDialog")

请注意，命令名称是区分大小写！

vba打开查找并替换对话框

1 个答案: