Returns an AutoCorrectEntries collection that represents the current list of AutoCorrect entries. This list corresponds to the list of AutoCorrect entries on the AutoCorrect tab in the AutoCorrect dialog box (Tools menu). Read-only.
For information about returning a single member of a collection, see Returning an Object from a Collection.
Example
This example displays the total number of AutoCorrect entries.
MsgBox AutoCorrect.Entries.Count
This example deletes the specified AutoCorrect entry if it exists.
Dim strEntry As String
Dim acEntry As AutoCorrectEntry
Dim blnMatch As Boolean
Dim intResponse As Integer
strEntry = InputBox("Enter the AutoCorrect entry to delete.")
blnMatch = False
For Each acEntry in AutoCorrect.Entries
If acEntry.Name = strEntry Then
blnMatch = True
intResponse = _
MsgBox("Are you sure you want to delete " _
& acEntry.Name, 4)
If intResponse = vbYes Then
acEntry.Delete
End If
End If
Next acEntry
If blnMatch <> True Then
MsgBox "There was no AutoCorrect entry: " & strEntry
End If