如何设置VBA查找替换对话框 激活状态下仍可编辑Word文档

Dialogs(wdDialogEditReplace).Show默认弹出的是模态对话框，会阻塞Word主窗口消息循环，暂停VBA执行的同时禁止用户编辑文档，这是Office内置对话框的默认调用特性。

方案1：调用原生非模态替换面板（推荐，适配Word 2013及以上版本，稳定性最好） #

不要手动预执行查找、也不要用Dialogs集合的模态Show方法，提前配置好查找规则后，直接调用功能区上原生的替换命令，弹出的面板和手动按Ctrl+H调出的完全一致，打开后可自由编辑文档内容，编辑完成后点面板上的「查找下一处」即可继续按规则搜索。
修改后的完整代码如下：

Sub 查找5位以上数字()
    ' 配置查找规则
    With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "[0-9]{5,}"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = True ' 开启通配符匹配
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    ' 调用原生非模态替换面板
    Application.CommandBars.ExecuteMso "Replace"
End Sub

• 该方案不需要提前执行Find.Execute，面板打开后会自动读取预设的查找规则，点「查找下一处」即可定位第一个匹配项，定位后可随时点击文档任意位置编辑内容，面板不会消失，也不会锁死编辑权限。

方案2：全版本兼容实现（适配Word 2007/2010等老版本） #

老版本Word没有停靠式功能区面板，可以通过OnTime延迟触发对话框调用，让当前VBA过程先执行完毕释放主线程，此时弹出的对话框就不会锁死文档编辑权限：

Sub 查找5位以上数字_兼容老版本()
    ' 配置查找规则
    With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "[0-9]{5,}"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = True
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    ' 延迟0.1秒调用弹框过程，让当前宏先执行完释放主线程
    Application.OnTime When:=Now + TimeValue("00:00:00.1"), Name:="ShowReplaceDlg"
End Sub

' 单独定义弹框过程，不要和配置逻辑写在同一个过程中
Sub ShowReplaceDlg()
    ' 定位第一个匹配项
    Selection.Find.Execute
    If Selection.Find.Found Then
        Dialogs(wdDialogEditReplace).Show
    End If
End Sub

• 注意两个过程必须放在同一个标准模块中，不要写在ThisDocument类模块或窗体模块里，否则OnTime无法正常调用。
• 该方法弹出的替换对话框支持不关闭窗口直接编辑文档内容，修改完成后点对话框内的「查找下一处」即可继续按规则搜索。

• 不要在配置完Find规则后立刻在同一个过程里调用Dialogs.Show，只要当前VBA过程还处于运行状态，弹出的对话框就会是模态锁死状态。
• 如果需要调整匹配规则，直接修改Selection.Find的对应参数即可，面板/对话框打开后会自动加载最新的规则配置。

内容的提问来源于stack exchange，提问作者Michael