Dialog box for EditFind

How on earth does that work for what you have asked for. I do not see that it allows your special characters, nor the multiple use of the Enter key.

In fact, as is, that does not even search for any specific text.

In fact, this is not something new, as you ALREADY posted using FindControl.

Code:

---

CommandBars.FindControl(ID:=141).Execute

---

Quote:

---

The "CommandBars.FindControl" command works to bring up the Advanced Find dialog box - fine, but I don't know how to pre-program preferences (such as WholeWord:=True).

---

For me, this works as advertised and meets my needs. I also tested it in Word 2003 and it works in that version too.

The simple test:

• Create a new Word document with text that can be searched in it, and save it as "My Document.docx".
• Open a new blank document and create a macro with the code in my previous post.
• Run the macro.
• The EditFind dialog box comes up in "My Document."
• Type in the text to be searched and press "Enter" as normal for the EditFind dialog box. Continue to press "Enter" to find further occurrences of the text.

As far as special characters, as mentioned before, I have assigned keyboard shortcuts to these characters using "Insert, Symbol, More Symbols, Shortcut Key." Then when using these shortcut keys while the EditFind dialog box is displayed, the special characters are inserted into the "Find What" line. These shortcut keys do NOT work in the Navigation Find feature, which is one reason I wanted to use the EditFind dialog.

The "Whole Word" or other parameters desired can be established in the "With Selection.Find" code preceding the CommandBars.FindControl, which is what I missed the first time using that command.

Hope that brings it back down to earth!