Keystroke formatting in Find box not working

[Larry]

With the Find and Replace box active in my Word 97, I used to be able to
press Ctrl+U, Ctrl+I, and Ctrl+B to put bold, underline and italic
formatting parameters in the Find and Replace But now that doesn't
work. The only way to assign the formatting parameters is to dig down
into the Format, Font buttons, which takes way too long.

However, when I open a pristine copy of Word, the keystrokes do work.

As far as I can tell, I have not intercepted the built in EditFind
command with a macro. So I have no idea what could be interfering with
this functionality.

Larry

 

[Larry]

I found the source of the problem. I have created macros that intercept
the built-in Underine, Italic and Bold commands, and this changed their
functionality so that pressing the keystrokes no longer registers in the
Find box.

I like the improvements I've made to the built-in commands. For one
thing, I've changed them so that the cursor doesn't have to be inside a
word in order to underline or italicize it. The cursor can be just
touching the first or last character of the word and the command will
still format the word. So I want to keep my customizations while also
retaining the functionality of these commands when they are run in the
Find box.

So the question is, is there a way I can determine through VBA if the
focus is on the Find box? If there is, then I would run the standard
code for these commands if the Find box is active, and I would run my
customized code if it's not.

Any ideas?

I'm copying this message to the vba group.

Larry

 

[Klaus Linke]

Hi Larry,

If you really intercepted the built-in commands -- Sub Bold() for bold... --
the keyboard shortcuts should still work in all contexts.
If you created your own macros [say Sub myBold()] and assigned the keyboard
shortcuts to those macros, I don't think you can make those shortcuts work
in dialogs.

Greetings,
Klaus