It's taken me many years but I've finally found a vba use for the Navigation Pane Results panel, but I'm having problems with the code.



I can show it with either
CommandBars("Navigation").Visible = True
or
CommandBars.ExecuteMso "NavigationPaneFind"

I can also game it to find a string by selecting that text in the document before running the executemso line.

I can change find options via the GUI (by clicking the dropdown arrow in the field entry > Options ) which opens a built-in dialogbox titled "Find Options". Via the GUI I can set options as Default. Setting these options carries over into the regular find/replace dialog.

What I can't do is find a direct way to set these find options. Recording the Find Options dialog doesn't produce any code whatsoever. Nor can I find it in the wdDialog constants. It appears the only way I might be able to do it is by running a dummy find/replace and maybe make use of the stickiness of those settings.

FWIW: a google search gave me a very old post which didn't look too hopeful but maybe the collective knowledge has increased since then. https://social.msdn.microsoft.com/Fo...?forum=worddev

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia