Entries Property

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