Application.AutoCorrect Property (Word)
Returns an AutoCorrect object that contains the current AutoCorrect options, entries, and exceptions. Read-only.
This example adds an AutoCorrect replacement entry. After this code runs, every instance of "sr" that's typed in a document will automatically be replaced with "Stella Richards."
This example deletes the specified AutoCorrect entry it if it exists.
Dim strInput as String Dim aceLoop as AutoCorrectEntry Dim blnMatch as Boolean Dim intConfirm as Integer blnMatch = False strInput = InputBox("Enter the AutoCorrect entry to delete.") For Each aceLoop in AutoCorrect.Entries With aceLoop If .Name = strInput Then blnMatch = True intConfirm = _ MsgBox("Are you sure you want to delete " & _ .Name, 4) If intConfirm = vbYes Then .Delete End If End If End With Next aceLoop If blnMatch <> True Then MsgBox "There was no AutoCorrect entry: " & strInput End If