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

Возвращает объект автозамены , содержащий текущие параметры автозамены, записи и исключения. Только для чтения.

Синтаксис

выражение. AutoCorrect

выражение: переменная, представляющая объект Application.

Пример

В этом примере добавляется запись замены автозамены. После выполнения этого кода каждый экземпляр sr, введенный в документе, будет автоматически заменен на Stella Richards.

AutoCorrect.Entries.Add Name:= "sr", Value:= "Stella Richards"

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

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

См. также

Объект Application

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

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