View Single Post
 
Old 11-04-2013, 05:19 PM
fumei fumei is offline Windows 7 64bit Office XP
Expert
 
Join Date: Jan 2013
Posts: 440
fumei is on a distinguished road
Default

Deleting AutoCorrects is easy. It is a single instruction.
Code:
AutoCorrect.Entries("TheString").Delete
Or in your case:

Code:
AutoCorrect.Entries("Jane Doe").Delete


So. If you have a list, AND the list is made up of single paragraphs you can:

a) build an array of the list and process through it
OR
b) process through each paragraph in the list with something like:
Code:
Dim oPara As Paragraph
Dim AC_String As String
Code:
For Each oPara In ActiveDocument.Paragraphs
   AC_String = Left(oPara.Range.Text, InStr(1, oPara.Range.Text, "=") - 1)
   AutoCorrect.Entries("AC_String").Delete
Next
Reply With Quote