title: Managing Find and Replace dialog box in MS Word 2010 using Macro
body: <p>The below code display <em>Find and Replace</em> dialog box. But the problem is that the <em>Find</em> tab and the <em>Go To</em> tabs are disabled.<br>
  How to keep all the three tabs enabled?</p>
  
  <p>Is it possible to set the <em>Find</em> and <em>Replace</em> combobox Editable property to <code>False</code>?</p>
  
  <pre><code>Public Sub EditReplace()
      On Error Resume Next
      With Dialogs(wdDialogEditReplace)
      Selection.HomeKey Unit:=wdStory
          .Find = "[ ^13^t]{1,};"
          .Replace = ";"
          .Show
      End With
  End Sub
  </code></pre>
  
  <p><img src="https://i.stack.imgur.com/MeGdg.png" alt="Find and Replace dialog box"></p>