That list in the macro box is just awesome. Thanks SO much!!! sm

I noticed that the control/alt/L inserts the bulleted list.  Any idea how I can easily insert the numbered list?

Thanks so much for your help.

• Word AutoText, AutoCorrect, and Spellchecker, and other Word features - md-mt
  • Keyboard shortcut for spellcheck is F7 for full doc, Alt + F7 for individual words. - sm
    • that is awesome! Once again, I learned from this board! Thank you so much! - md-mt
    • That list in the macro box is just awesome. Thanks SO much!!! sm - Karen
      • oops, i meant control shift L. nm - Karen

The messages you are viewing are archived/old.
To view latest messages and participate in discussions, select the boards given in left menu

Here is my macro that will import your expansions into MSWord.  Your list needs to be in the following format for this macro to work:

tp=the patient

copd=COPD

chf=CHF

There needs to be a hard return at the end of each entry.  If you have any expansions that contain an equal sign or a hard return, you will need to enter those into your autocorrect manually.  Here is the macro:

Sub Add2AutoCorrectList()
Dim AddName, AddValue As String
Dim W, C, A, L, Y, T, N As Long
Dim CountWords As Boolean
Selection.WholeStory: Selection.Collapse
N = ActiveDocument.Words.Count: C = 0: A = 0: T = 0
ScreenUpdating = False
While N > 0
x = Selection.MoveEndUntil(cset:=("=), Count:=wdForward)
    If x = 0 Then
        End
    End If
Selection.MoveEndUntil cset:=("=), Count:=wdForward
AddName = Trim(Selection.Text)
L = Selection.Words.Count
With Selection
    .Delete: .Delete
    .MoveEndUntil cset:=Chr$(13), Count:=wdForward
End With
AddValue = Trim(Selection.Text)
Y = Selection.Words.Count
AutoCorrect.Entries.Add (AddName), Value:=(AddValue)
Selection.Delete , Count:=2
T = L + 2
N = N - T
C = C + 1
A = A + 1
If N < 1000 Then
ScreenUpdating = True
N = ActiveDocument.Words.Count
End If

If A = 100 Then
Application.ScreenRefresh
'ScreenUpdating = True
StatusBar = N & " " & C & " " & " entries processed!"
A = 0
End If
Wend

  
End Sub

One word of warning:  When I posted a line counting macro here some time ago, I could not get a quote mark in the code to post, so the macro as posted would not work, and I had to followup with a post explaining how to correct that.  This macro is a bit more complicated than the other one was, and although I will look at the code as soon as this posts, if it doesn't come through perfectly, and you don't understand my corrections, you can e-mail and I will send it to you.

Also, I wrote a companion macro that will list your autocorrect into a document so that you can import it into another computer or just keep it as a backup in case you lose your normal.dot.

1.         Open a blank document.

2.         Type 3-4 question marks down in a single line.

3.         Put your cursor back up at the top before the first ? mark.

4.         Open tools Macros – Record new macro.

5.         Click keyboard – type in the combination of keys you want to use to jump (make sure that combination is not assigned to anything else).  I used Shift+Control+Alt J.  Then close that box out.

6.         With your mouse click Edit - Find – type a ? in the find box, click Find Next.  It will take your cursor to the first question mark (make sure it’s highlighted).  Then hit cancel to close out the find box, and click STOP on the macro button.

can someone please tell me how to make a macro in word for go to *?

Can anyone give me instructions on how to create a period macro in word 2003.  I want to make a macro that inserts a period when I need it.  I use ASR, so I need this function to make corrections easier.

Thanks so much!!!!!

In a Word document, type a few words, like a diagnosis on a line.  Leave your cursor at the end of the line.

Click TOOLS, MACRO, RECORD NEW

A window called Record Macro pops up.  I suggest you put a name in the "Macro Name" field.  (Hint:  No spaces allowed in the name.)

Click KEYBOARD to assign it to the keyboard.

A window called "Customize Keyboard" pops up.  In the field "press new shortcut key", press what you want as the shortcut.  (Hint:  I use ALT+N so I can remember it for numbering.)  That key combination you type should populate that field.

Click ASSIGN, CLOSE

You will be back at your document (your cursor still at the end of the line of text you typed) and there will be a small window called "Stop" that has a solid square (the STOP RECORDING button) and another symbol (PAUSE RECORDING button).  At this point, every single thing you do is being recorded!

Press the HOME key (to put cursor at the beginning of the line).

Press the 1. keys and space twice (or however many times you space between your number/period for your account).

Press the END key (to return cursor to end of the line of text).

Press the RETURN key.

Press the 2. keys and space twice (or, again, however many spaces you put between your number/period for your account).

Click the STOP RECORDING button in the little window.

Your macro is complete.  I suggest you try it out.  Skip down a few lines and type a line of text.  At the end of that text, hit your macro shortcut.  It should run (you won't see it do anything but make the changes you recorded) and automatically go to the beginning of the line, number it as 1 with a period and spaces, and return at the end of your text and start the number 2, period, spaces and be ready for more text!!  Email me if you have problems. 

NOTE:  This will only work if the text you type is only 1 line long.  If it word-wraps to a second line, this will not work...you will just have to manually return to the beginning of the line and number. 

More ideas for building macros, at least the ones I use most: 

-- macro to increase the zoom to a certain percentage (I use 110%)

-- macro to scroll down 1 frame or page

-- macro to copy the preoperative diagnosis heading, the 1-line text below it, return a line blank and type postoperative diagnosis heading and paste (for when the dictation is for "postoperative diagnosis same").  I use ALT+; for postoperative diagnosis and ALT+' for postop diagnosis

-- macro to copy the physician names/credentials in the signature block and search for the header for SURGEON and fill it in, putting it in all capitals, etc.

Just a handful of ideas I use.  Hope these help.

I feel like MTs are being nickel and dimed to death with this.

How do you make that type of macro?  Do you type "." space, space?  I'm not sure my Expander recognizes spaces after an entry.  ?

for that.  Following the macro he gives instructions on how to modify the macro for one space.  When you modify the macro you will have to change the name also, so you could change it to read:

Sub OneSpace()

on the first line.

If you don't know how to add a macro, click Tools, Macros, Macro, then in the Macro Name: box put TwoSpaces, then click create.   Paste the macro provided in place of the "Sub TwoSpaces()" and "End Sub" that are there.  Go the end of the End Sub line and hit enter.  Paste the second macro there and click save again.

I assigned my macro to ALT-B, but you can assign any keys you want so long as they are not already in use for another function.

To create a new macro you click:

Tools -> Macros -> Record a new Macro

A window will open up that says:

Macro Name:  In the box type in the name you wish to give your macro. (I simply typed in AltB).

In the middle of the window you will see "Assign Macro to" with two buttons that say "Toolbar"  and "Keyboard".  Click the Keyboard button.

This opens a new window and your cursor will be in the field that says "Press new short cut key".  You will hit the series of keys you want to assign your macro to (in my case it was Alt+B).

Below you should see "Currently assigned to [unassigned}"  If it says it is assigned, you will need to pick other keys to assign your macro to.

Finally, click assign.

Now you are in your document and there will be a little box that has a stop button and pause button.  Every keystroke you make from this point on is recorded and will be assigned to your macro.

Now you want hit Ctrl+F which will bring up the find window and type in a character that you want your cursor to jump to.  I use the asterix (*).  Then click the stop button on the little box.

Then test our your macro.  I have report templates I use that look like this:

CHIEF COMPLAINT:  *

HISTORY OF PRESENT ILLNESS:  *

And every time I hit Alt+B, I jump to the next asterix.

I hope this helps.  It sounds kind of confusing when you are trying to explain how to do it, but once you do it it is really pretty simple.

Could you email it to me too?  I have not had 100% success with this in Word, having typed in WordPerfect for years and years.  I appreciate any help you may provide in this regard. 

I have set up several macros with my docs thank yous, closing and signatures.  They seemed to work fine whenever I set them up and then tried them out but now everytime I try and use one, it plugs in something that I earlier cut and pasted.  For instance, the thank you and closing are there but instead of the docs sig it is something wierd that I cut and pasted earlier.  I go into my macros and it looks right.  Anyone have any suggestions on how to fix this??  As always, thanks!  I don't know what I'd do without this website!!

Since I don't know what platform you are using, this may not work for you --  if the normal dot is open somewhere else.  I do have another solution if this does not work; if you like, you can write me and I will send you the suite of macros and instructions that I use that will work around this problem that occurs with some transcription platforms.

I don't know anything about this acl file that is supposed to be saved but maybe the person who has written me about this will put up a post that will provide some information on what needs to be done to do this.

This macro needs to be posted into your macro editor.  Since I have had problems in the past with macro code not posting to this forum correctly, I will take a quick look at it and make sure it's okay, and post a follow-up note that it is okay to use.

Sub AutoClose()
on error resume next
If NormalTemplate.Saved = False Then NormalTemplate.Save
End sub

I am about to start a job as an IC for the first time.  I thought the company provided a macro program, but now it seems they don't.  I can't be productive without one, but I have never had to purchase one on my own, having used company-supplied programs for the previous 12 years.  Does anyone know a program that will work in Microsoft Works that has macros that will expand with the spacebar?  I need something easy to understand and as inexpensive as possible but that will hold maybe 2,000-3,000 shortcuts!   Thanks!

Hi guys ... I'm having a mental block. Years ago, in WP51, I had set up shortcuts for formats, such as "alt L" for a Letter, or "alt C" for consults, etc.  Now I type in MSWord, but I want to set something up for a new doc Im typing for.  What were those shortcut called?  How do I set them up?  They were not macros ... something else, less complicated.  I either used the ALT key or maybe it was the CTRL key - not sure.

Please help; I want to set up some quick hospital formats, one for an H&P, one for an OP, etc.  Thanks again !

JMK

I need a macro for Word 2003 to jump to ?? as the next field and, even though I've done this before, I cannot for the LIFE of me remember how to do it.  

Any clues? THANKS in advance!