Expand Minimize

Application.AutoCorrect Property (Word)

Returns an AutoCorrect object that contains the current AutoCorrect options, entries, and exceptions. Read-only.

expression .AutoCorrect

expression A variable that represents an Application object.

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."

                      AutoCorrect.Entries.Add Name:= "sr", Value:= "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 
 End If 
 End If 
 End With 
Next aceLoop 
If blnMatch <> True Then 
 MsgBox "There was no AutoCorrect entry: " & strInput 
End If
© 2014 Microsoft