vba - 使用宏管理 MS Word 2010 中的查找和替换对话框

Question

下面的代码显示查找和替换对话框。但问题是 Find 选项卡和 Go To 选项卡被禁用。
如何使所有三个选项卡保持启用状态？

是否可以将 Find 和 Replace 组合框的 Editable 属性设置为 False？

Public Sub EditReplace()
    On Error Resume Next
    With Dialogs(wdDialogEditReplace)
    Selection.HomeKey Unit:=wdStory
        .Find = "[ ^13^t]{1,};"
        .Replace = ";"
        .Show
    End With
End Sub

Answer 1

尝试(假设“Ctrl H”仍然是菜单中“替换”的快捷方式):

Public Sub AnotherName()   
       On Error Resume Next
       Selection.HomeKey Unit:=wdStory       
       Selection.Find.Text = "[ ^13^t]{1,};"
       Selection.Find.Replacement.Text = ";"
       SendKeys "+^%H", True
End Sub

名称最好不要是“EditReplace”，否则以后所有的替换操作都在这里。