Microsoft Office Forums - View Single Post - [Solved] Calling for an action when typing a character

ACA · 06-16-2011, 04:19 AM

Thank you Paul.
No, it’s not something Word’s AutoText can do. It’s this:
I do translations. For that I keep two Word documents open, Doc.1 (on which I type my translation) and Doc.2 (with the original). My macro does this:
- It goes to the original text, picks a chunk, say15 words, and pastes that on my doc.1.
- When I’ve translated that chunk (by overtyping the original) I execute the macro again and it goes, picks the next 15 words and adds them to my doc.1, and so on.
- Besides, on the original Doc.2, it turns a different color the part of the text already done, so if I need to check something it is easy for my eyes to fall near the spot I’ve reached. Here’s the code:

Code:

 
    Windows("Doc.2").Activate
    Selection.MoveRight Unit:=wdWord, Count:=15, Extend:=wdExtend
    Selection.Copy
    Selection.Font.Color = wdColorBlue
    Selection.MoveRight Unit:=wdCharacter, Count:=1
 
    Windows("Doc.1").Activate
    Selection.PasteAndFormat (wdPasteDefault)
    Selection.MoveLeft Unit:=wdWord, Count:=15
    Overtype = Overtype

What I would like is for that macro (or any other I may think of in the future) to be called automatically by juust entering a given single character in my doc.1.
Thank you again for your interest.
ACA