A community of 30,000 US Transcriptionist serving Medical Transcription Industry
Can anyone help me with making a jump code in Word 2010? I am so frustrated and can't find any info on what I need. I use shorthand and I need to be able to create a "macro" that will allow me to press Ctl +J to jump to the ??'s in my documents. For example, the patient is a ??-year-old ??male. I want to be able to jump to those question marks with a keyboard command.
Noone seems to know how to do this. HELP!!
I assume you are using chartscript.
Here is my macro to do this, which you will need to cut & paste into your normal.dot, and then set up a Hot-Key to control-J. If this macro does not find "??" to the right of the insertion point, then it looks to the left. If there are no more "??" then nothing appears to happen on the screen. This macro will ignore one question mark.
You need to block and copy everything in black tex below t to your clipboard, and paste to your normal dot. I will include instructions on how to paste a macro to normal.dot following this macro.
Sub Jump()
Dim J As Long: Dim T As String: Dim JumpAgain As Boolean
Top:
JumpAgain = False
GoSub Jump1
If J = 0 Then
Selection.TypeText "??"
Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=1, Name:=""
GoSub Jump1
End If
GoSub Jump2
If JumpAgain = True Then
GoTo Top
End If
GoSub Tvalue
While T = "?"
Selection.Delete: GoSub Tvalue
Wend
Exit Sub
Jump1:
J = Selection.MoveUntil(cset:="?", Count:=wdForward)
Selection.MoveRight unit:=wdCharacter
Return
Jump2:
GoSub Tvalue
If T = "?" Then
Selection.Delete: Selection.TypeBackspace
Else: JumpAgain = True
End If
Tvalue:
T = Selection.Text
Return
End Sub
Now that you have copied the above macro to the clipboard (black text above only) you need to open word, click on Tools, click on "macro," then click on "record new macro," this should open your macro screen. Click on Edit. Go to the very bottom of the screen, and paste (control-V) your macro. Now click on the Red X in the corner. This should take you back to your word screen.
Click on Tools again, click on macro, now click on record new macro, now click on keyboard, your insertion point should be in a field that reads "Press new shortcut key."
Now press Control and J. Now click on "Assign" at the bottom left hand corner. Now click on close at the bottom right hand corner. Now click on tools again, click on macro, type in Jump, and click on "run." This will close the screen and take you back to your main document. Now click on tools again, click on "macro," click on "Stop Recording."
If you have any problems doing this, please let me know and I will try to help.