使用宏在MS Word 2010中管理“查找和替换”对话框

Question

以下代码显示查找和替换对话框。但问题是查找标签和转到标签已被禁用。
如何启用所有三个选项卡？

是否可以将查找和替换组合框可编辑属性设置为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

尝试（假设＆＃34; Ctrl H＆＃34;仍然是＆＃34的快捷方式;替换＆＃34;在菜单中）：

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

名称不应该是＆＃34; EditReplace＆＃34;，或者您将在此处指导所有替换操作。