Expansion help

• Increasing Line Count-Shortcuts - MT
  • more characters - southernmt
    • Beg to differ with the adding of words - T
  • From what I have read - slooowMT
    • Expansion help - anon

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

formula looks like, but if you can open it up in Notepad and manipulate the formula to look like this, tp=the patient, then you can import them into EXText.  I don't have my EXText in front of me so this is from rough memory.  Once you have your expansions in the above formula, save them in Notepad on your desktop.  In EXtext click on Options, Import file from Text(?), in the drop down box click on Desktop, click on your saved list, put an = sign in the delimiter box, click on Ok or import or whatever the next step is (lol...told you it was from rough memory).  Once these are imported you'll need to save your ESP list.  It is really simple to import once you have your expansions in the right formula.  I'll check back here in a little bit and answer any questions I can.  I'll be working tonight and may be able to give better step-by-step instructions once I have the actual program up and running.

CW

Yikes! I need expansion software help. Can someone tell me how Instant Text works? Do I need to enter words into the program to in order to use it? I have downloaded a free trial of ShortHand for Windows, but it doesn't come with very many words. How does a newbie MT use expansion software if it doesn't have any words in the glossary?

Sorry, I know this is very basic. Unfortunately my MT program has not covered this, and I'm not trying to figure it out!

Thanks in advance!

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.