Word VBA查找替换宏新增按钮、倒计时及适配选中文本问题咨询

问题1：新增「全部替换」按钮 #

• 解决方案：使用VBA MsgBox扩展按钮组合支持的vbYesToAll参数，新增自动替换标记位，触发后跳过后续所有确认弹窗，直接完成剩余匹配项的替换。

问题2：实现3秒倒计时自动确认 #

• 解决方案：原生VBA MsgBox不支持倒计时，改用WScript.Shell.Popup方法实现，该方法支持自定义超时时间，超时后自动返回默认按钮的执行结果，满足3秒无操作自动执行替换的需求。

问题3：限定仅在选中文本范围内执行替换 #

• 解决方案：先判断当前是否存在选中的文本区域，若有则将查找范围绑定到选中区域的Range对象，同时将缓存的查找结束位置限定为选中区域的末尾，避免查找超出选区边界。

完整优化后代码 #

Sub Want2Replace()
    Dim myRange As Range
    Dim cached As Long
    Dim autoReplace As Boolean
    Dim wshShell As Object
    Dim MyAnswer As Integer
    Const timeoutSeconds As Integer = 3 ' 自定义倒计时秒数
    
    ' 初始化查找范围：有选中文本则限定在选区，否则执行全局查找
    If Selection.Type = wdSelectionNormal Then
        Set myRange = Selection.Range
    Else
        Set myRange = ActiveDocument.Content
    End If
    cached = myRange.End
    autoReplace = False ' 初始关闭自动替换模式
    Set wshShell = CreateObject("WScript.Shell")
    
    myRange.Find.ClearFormatting
    myRange.Find.MatchWildcards = True
    
    Do While myRange.Find.Execute("åÀ")
        ' 已开启全部替换则直接跳过确认环节
        If Not autoReplace Then
            myRange.Select
            ' 弹出带倒计时的确认框：按钮为【是/全部替换/否/取消】，默认选中「是」
            MyAnswer = wshShell.Popup("替换 " & myRange.Find.Text & "？" & vbCrLf & "3秒无操作将自动确认替换", _
                timeoutSeconds, "查找替换确认", vbYesNoCancel + vbYesToAll + vbDefaultButton1 + vbQuestion)
            
            Select Case MyAnswer
                Case vbYes ' 确认单次替换
                    Call Shva_Na
                Case vbYesToAll ' 开启全部替换模式
                    autoReplace = True
                    Call Shva_Na
                Case vbNo ' 跳过当前匹配项
                Case vbCancel ' 终止宏运行
                    Set wshShell = Nothing
                    Exit Sub
                Case -1 ' 超时自动执行替换
                    Call Shva_Na
            End Select
        Else
            ' 自动替换模式直接执行替换
            Call Shva_Na
        End If
        
        ' 移动查找起始位置，避免重复匹配同一内容
        myRange.Start = myRange.Start + Len(myRange.Find.Text)
        myRange.End = cached
    Loop
    Set wshShell = Nothing
    MsgBox "查找替换已完成！", vbInformation
End Sub

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