Macro for redirecting keyboard in Word

Question

Macro for redirecting keyboard in Word

FH (Mechanical)

(OP)

28 Aug 02 01:11

Hi everybody,
Is there any way to change the input character in Word?
I need to redirect the keyboard so that every time I press the 'D' key on keyboard, the 'Shift + X' character typed in Word document.
Any macro?

Any prompt reply would be highly appreciated.
:)
Farzad

PaulWeal (Automotive) · Answer 1 · 2002-08-29 18:54:53

Use the following to assign key "D" to "Macro2":
Sub Macro1()
    CustomizationContext = ActiveDocument
    aCode = BuildKeyCode(wdKeyD)
    KeyBindings.Add KeyCode:=aCode,_
        KeyCategory:=wdKeyCategoryMacro, _
        Command:="Macro2"
End Sub

Use the following to type "X" in the document:
Sub Macro2()
    Selection.TypeText Text:="X"
End Sub

Run Macro1 once to initialize the KeyBindings. Now everytime you press key "D" it types "X" in the document.

Note that you could store the binding in the normal template by replacing:
    CustomizationContext = ActiveDocument
with:
    CustomizationContext = NormalTemplate

Paul

FH (Mechanical) · Answer 2 · 2002-09-11 11:06:48

Dear PaulWeal,
Your answer is perfect.
Thanks a lot.
The macro works as I mentioned, but as I use the arabic fonts, there is some problems to insert arabic characters in VBA editor.
:)
Farzad

Come Join Us!

Posting Guidelines

Macro for redirecting keyboard in Word