Solved

trigger Word macro by pressing space bar (only).  Don't want to use ctrl, F key, etc.

Posted on 2014-01-09
7
682 Views
Last Modified: 2014-01-14
I have a search and replace macro that I recorded in Word.  To integrate it into the work flow, I'd like to trigger it by a press on the space bar without having to use the ctrl key, etc.  That way, if there is a replacement to be done, it will happen as I type rather than having to interrupt my typing to press a special key combination.

I know about autotext.  I don't like it.  My macro is also for inserting blocks of text as well as individual words.  It's easier to organize what I am doing with the VBA code rather than mix up my text replacement with all the autotext prefab stuff.

This feature would be used on my work computer which is locked down by IT and doesn't allow me to install .exe files.  But I can work within the Office VBA environment.  Or maybe Office applications can use another scripting or programming technique.
0
Comment
Question by:rreiss60
  • 5
7 Comments
 
LVL 32

Expert Comment

by:Paul Sauvé
ID: 39768628
If you use only the "space bar" as a macro shortcut, how do you intend to insert a space in your document? Every time you press the space bar, the macro will execute!
0
 
LVL 76

Expert Comment

by:GrahamSkan
ID: 39768709
Shortcut keystrokes have to begin with Alt or Ctrl, so you could run a macro from some such combination. Not a space, though.

I have looked at the extra events that can be used by creating a WithEvents application object, but the closest is SelectionChange, which is not triggered when typing in characters.
0
 

Author Comment

by:rreiss60
ID: 39769094
I figure that if there is no text to replace, the macro may execute but there is no visible effect since the find part of the macro doesn't find anything.  I just go on typing.
 
I found this code, but instead of Alt + 0, what would I put in for spacebar?

' \\ Code for Module1
Option Explicit
 
Sub AddKeyBinding()
    With Application
         ' \\ Do customization in THIS document
        .CustomizationContext = ThisDocument
         
         ' \\ Add keybinding to this document Shorcut: Alt+0
        .KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt, wdKey0), _
        KeyCategory:=wdKeyCategoryCommand, _
        Command:="TestKeybinding"
    End With
End Sub



 ' \\ Code for Module2
Option Explicit
 
 ' \\ Test sub for keybinding
Sub TestKeybinding()
    MsgBox "We have a winner", vbInformation, "Succes"
End Sub

My find and replace function would go in module 2.
0
Salesforce Made Easy to Use

On-screen guidance at the moment of need enables you & your employees to focus on the core, you can now boost your adoption rates swiftly and simply with one easy tool.

 

Author Comment

by:rreiss60
ID: 39769106
wdKeySpacebar is the answer.

Now I will put in my find and replace in module 2 instead of the msgbox.
0
 

Author Comment

by:rreiss60
ID: 39769982
Oops.  Need to disable keybinding after text replacement to restore normal spacebar function.  Any help appreciated.
0
 

Accepted Solution

by:
rreiss60 earned 0 total points
ID: 39770017
With FindKey(BuildKeyCode(wdKeySpacebar)
 MsgBox .Command & " is assigned to spacebar"
 .Disable

End With

This code doesn't restore spacebar to normal behavior.  Not sure what else to try.  Would code go in module 1 or 2?
0
 

Author Closing Comment

by:rreiss60
ID: 39778800
expert comments didn't lead to successful resolution. I was able to come up with a portion of the answer I needed. Would have liked someone to follow up on what I started.
0

Featured Post

Salesforce Made Easy to Use

On-screen guidance at the moment of need enables you & your employees to focus on the core, you can now boost your adoption rates swiftly and simply with one easy tool.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

The new Microsoft OS looks great, is easier than ever to upgrade to, it is even free.  So what's the catch?  If you don't change the privacy settings, Microsoft will, in accordance with the (EULA) you clicked okay to without reading, collect all the…
Having trouble getting your hands on Dynamics 365 Field Service or Project Service trial? Worry No More!!!
This video shows and describes the main difference between both orientations in Microsoft Word. Viewers will understand when to use each orientation and how to get the most out of them.
The viewer will learn how to use the =DISCRINV command to create a discrete random variable, use this command to model a set of probabilities and outcomes in a Monte Carlo simulation, and learn how to find the standard deviation of a set of probabil…

821 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question