macro to import expansion list into MSWord Autocorrect

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.

• Word Expander for Word? - Emily Ayn
  • Look up AutoCorrect and AutoText in the help file. - sm
  • Helpfull information on Word. - Hope
    • word expander for MS Word - alsuz
  • Conversion programs (see message) - mt1982
    • macro to import expansion list into MSWord Autocorrect - TheMacroDiva
      • Re companion macro. Do you know there is already a macro - sm
      • Again, quote mark problem in macro - TheMacroDiva

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

Hi Patty,

You can import your AutoCorrect list into Instant Text so you can continue using the list that you have already created.

IT will expand using the font that is currently active in your document.  If you have an entry that you want to be in a certain font every time you expand, you can do that as well using Formatted Entries.

For more information on IT V Pro, please see the link below.  Or you can always give us a call at 800-355-5251.

Kind regards,

Kristen

Okay..I went to the Escription site the other day and searched the knowledgebase on how to backup and save your autocorrect files..but that information didn't help me. It didn't work on my machine, because it said to do a bunch of steps andthen told me to find the Macros folder in the office program files folder.. but I didn't have a macros folder on my machine and the file it told me to find wasn't installed on my machine anywhere.. anyway, I contacted support at Escription and they told me how to do it, so I figured I'd post here for anyone else who needs the information. Hope it helps!

You can navigate to the following directory to back up your auto correct file for Word.

C:/Documents and Settings/your name/Application Data/MicroSoft/Office/

and back up the file named MSO1033.acl.

This is the auto correct file.

If you do not see the Application Data directory click on the 'Tools' option on the top menu and select 'Folder options'. From here click on the 'View' tab and click on the radio button that says 'Show hidden files and folders'.

Thanks,

oh..and just in case you can't figure it out how to import it to the new machine...once you save that file to a CD or disk or whatever, you just navigate to the same folder on your new machine and paste it, click yes to overwrite the existing file and you're done .  I know you all probably know that part, but you just never should assume that people know things. LOL

I've been Googling it and there is some info about going from WordPerfect to Word, but I can't find anything about importing them from Word to WordPerfect.

I just got really screwy account where we have to transcribe the reports in WordPerfect to get the line count, then save them in Word to send to the client. 

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.

Hi everyone!  I'm working on about 20+ reports by the same doctor.  I have a template that I saved for him under MSOffice, Templates, his name.  In the past, I've been going to explore (right clicking on the start menu) and physically pulling up the template for each and every report.

Is there a way I can just open the template once.  Finish the first report and then automatically when a new Word document opens it will open that template?

Thanks,

Chickadee

Finally have given in and am switching from WP to MSWord. I work from home. If anyone has any encouraging words about MSWord, I certainly would like to hear them. So far, I am going crazy, i.e., I have put in "gray boxes" but when I enter my autocorrect short cut for the "shell", my cursor goes to the bottom of the page and I have to page up 2-3 times. I am missing something?

Any help would be so very much appreciated

Thank you.... bw...

When I do clinic notes I need to make a log, so have been copying the heading over to another document.

However, someone told me that in WP8 there is a macro that can do this automatically. If true, is there such a thing in Word?

If anyone keeps a separate log, can you tell me how you do it.

Thank you.

is there a way to make a * hard hypen * in Word?

TIA for any help.

I make normals of my own for reports I do on a company platform.  I save my normals in the My Documents folder under the hospital number. 

Some of my normals are saved in blue letters and some in black letters.  Can anyone tell me what the difference is and how I can make them all black.

Sounds trivial, I know, but.....

TIA

I would just turn off ESP as suggested below and use your Shorthand.  I didn't do that because the hospital I work for provided my equipment and were told in no uncertain terms we could not load any software on our PCs without it being approved by the IT department and since EXText comes with its own abbreviation expander, there was not reason to approve mine.  I had to input each and every Expander from scratch!  It sucked, but in the long run it was a good thing.  My ShortHand file was geared more towards radiology because that's basically all I did on my last job.  So a lot of it would not have been helpful for the medical records stuff I'm doing now. 

Like you care why I don't use my Shorthand still!  Sorry to go on and on.  I get so bored by myself here at home, I can't help myself from virtually gabbing every chance I get.