Solved

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

Posted on 2014-01-09
7
673 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 31

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
The Eight Noble Truths of Backup and Recovery

How can IT departments tackle the challenges of a Big Data world? This white paper provides a roadmap to success and helps companies ensure that all their data is safe and secure, no matter if it resides on-premise with physical or virtual machines or in the cloud.

 

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

U.S. Department of Agriculture and Acronis Access

With the new era of mobile computing, smartphones and tablets, wireless communications and cloud services, the USDA sought to take advantage of a mobilized workforce and the blurring lines between personal and corporate computing resources.

Question has a verified solution.

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

Suggested Solutions

User Beware!  This is a rather permanent solution to removing your email from an exchange server.  The only way to truly go back is to have your exchange administrator restore your mailbox from backups.  This is usually the option of last resort.  A…
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…
This video walks the viewer through the process of creating envelopes and labels, with multiple names and addresses. Navigate to the “Start Mail Merge” button in the Mailings tab: Follow the step-by-step process until asked to find the address doc…
This Experts Exchange video Micro Tutorial shows how to tell Microsoft Office that a word is NOT spelled correctly. Microsoft Office has a built-in, main dictionary that is shared by Office apps, including Excel, Outlook, PowerPoint, and Word. When …

770 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