Mass laod of auto correct info

[Guest]

Ihave a long lsit of auto correct items, stored in excel format, that I would
like to load into Word. Is there was way to 'mass load'?
Thanks

 

[Jay Freedman]

Ihave a long lsit of auto correct items, stored in excel format, that I would
like to load into Word. Is there was way to 'mass load'?
Thanks

First, download AutoCorrect.zip from
http://www.word.mvps.org/FAQs/Customization/ExportAutocorrect.htm and
unzip the template into your Templates folder.

In Excel, you should have two columns: the first should contain the
abbreviations to be expanded, and the second should contain the
expansions. Add a third column, and put the word False in each cell of
it (that tells the macro in the template to load the entry as plain
text instead of formatted text).

Copy the data from Excel and paste it into a blank Word document,
where it will appear as a three-column table. Insert one row at the
top as a header row, containing "Name", "Value", and "RTF" as the
labels. Save that document to disk.

Now create a new document based on the AutoCorrect.dot template. It
will display a box containing Backup and Restore buttons. Click the
Restore button, and when it asks for the file to use, point to the
document you saved.

--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the
newsgroup so all may benefit.

 

[Guest]

Thanks Jay,
It worked.
Now, how can I dleete ALL auto correct entries at one time?

Thanks again.

 

[Jay Freedman]

Use this macro -- and be sure to heed the warning it displays.

Sub DeleteAllAutoCorrect()
Dim AC As AutoCorrectEntry
Dim msg As String
Dim resp As VbMsgBoxResult

msg = "WARNING! This macro will delete" & vbCr
msg = msg & "all AutoCorrect entries from Word" & vbCr
msg = msg & "and Office. Be sure you have a backup!"
msg = msg & vbCr & vbCr & "Continue?"
resp = MsgBox(msg, vbYesNo, "Warning!")

If resp = vbYes Then
For Each AC In AutoCorrect.Entries
AC.Delete
Next
End If
End Sub

See http://www.gmayor.com/installing_macro.htm if needed.

--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.