Свойство AutoCorrect.Entries (Word)

Возвращает коллекцию AutoCorrectEntries , представляющую текущий список записей автозамены.

Синтаксис

выражение. Entries

выражение Переменная, представляющая объект "Автозамена".

Замечания

Этот список соответствует списку записей автозамены на вкладке Автозамена диалогового окна Автозамена . Только для чтения. Сведения о возврате одного члена коллекции см. в разделе Возвращение объекта из коллекции.

Пример

В этом примере отображается общее количество записей автозамены.

MsgBox AutoCorrect.Entries.Count

В этом примере указанная запись автозамены удаляется, если она существует.

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

См. также

Объект автозамены

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.