I want to add code to a macro that will:

if next key pressed is "del", will press del key and restart macro

Perhaps you could explain what the macro is doing. How do you propose the macro should sit in a state where it is waiting for a keypress event?

It sounds like you should be using a MsgBox to ask the user if they want to delete something.

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia

The macro is below. It highlights the next set of square brackets when I press + (the closest key to the mouse which was free to reassign). Essentially, it replaces Dragon Dictate verbal commands which require me to turn on the mic when I prefer to keep it off and talk while editing).

If I want to change the text that is highlighted I type in the change, press + and go to the next set of [].

If I want to keep the default text I press + and go to the next set of [....default text].

If I want to delete highlight and move on to the next set of [] want to add code that will: If the next key pressed is "del" press "del" and run the macro again (to continue to the next set of [].

this is my code:
Sub FindBetweenSqBrac()
'
' FindBetweenSqBrac Macro
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "(\[)(*)(\])"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute

End Sub

Thank you.

The simplest way is to use a MsgBox to ask if the user wants to continue on to the next location. You can click Yes (or type Y) to find next or No (or type N) to stop the macro. If you want to change the text, you type N to end the macro, make the desired change and then start the macro again.

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia

Thanks. I had already considered your approach. The problem is that it slows down the work when there are many [default text] in the document

would this work?

Sub FindBetweenSqBrac()
'
' FindBetweenSqBrac Macro
'


Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "(\[)(*)(\])"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute

If the next key pressed is {DEL}
then
SendKeys {DEL}
play FindBetweenSqBrac Macro
OR if the next key pressed is anything else than {DEL}
then
End Sub

Or would reassigning keypresses work? for example:

run FindBetweenSqBrac Macro 'same code as macro above
then
assign {DEL} to "{DEL} and run FindBetweenSqBrac macro"
then
assign {DEL} back to {DEL}
End Sub

Thanks again
Savvy

Thanks so much Guessed.

I tried your suggestion and it works perfectly. I am trying to tweak it to work in the context of the task I am doing. I have assigned the macro to an unused key sequence.

1) can I change the behavior of hitting "N" to: if after I type a word or sentence, when I next press enter, the macro would play again instead of starting a new line, and revert to its normal behavior?

2) how do I change the code to respond to keypress " ' " instead of "N", then
revert " ' " back to " ' "?

Thanks Savvy