AutoCorrect Property

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

Example

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
                .Delete
            End If
        End If
    End With
Next aceLoop

If blnMatch <> True Then
    MsgBox "There was no AutoCorrect entry: " & strInput
End If