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

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

Синтаксис

выражение. FirstLetterExceptions

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

Замечания

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

Пример

В этом примере добавляется "apt." в список исключений автозамены из первой буквы.

AutoCorrect.FirstLetterExceptions.Add "apt."

В этом примере удаляется указанное исключение автозамены "Первая буква", если оно существует.

Dim strException As String 
Dim fleLoop As FirstLetterException 
Dim blnMatch As Boolean 
Dim intConfirm As Integer 
 
strException = _ 
 InputBox("Enter the First Letter exception to delete.") 
blnMatch = False 
 
For Each fleLoop in AutoCorrect.FirstLetterExceptions 
 If fleLoop.Name = strException Then 
 blnMatch = True 
 intConfirm = MsgBox("Are you sure you want to delete " _ 
 & fleLoop.Name, 4) 
 If intConfirm = vbYes Then 
 fleLoop.Delete 
 End If 
 End If 
Next fleLoop 
 
If blnMatch <> True Then 
 MsgBox "There was no First Letter exception: " _ 
 & strException 
End If

См. также

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

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

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