Объект AutoTextEntries (Word)

Коллекция объектов AutoCorrectEntry , представляющих записи автотекста в шаблоне. Коллекция AutoTextEntries содержит все записи, перечисленные на вкладке Автотекст диалогового окна Автозамена .

Замечания

Используйте свойство AutoTextEntries , чтобы вернуть коллекцию AutoTextEntries . В следующем примере определяется, находится ли объект AutoTextEntry с именем test в коллекции AutoTextEntries .

For Each i In NormalTemplate.AutoTextEntries 
 If LCase(i.Name) = "test" Then MsgBox "AutoText entry exists" 
Next i

Используйте метод Add , чтобы добавить запись автотекста в коллекцию AutoTextEntries . В следующем примере добавляется запись автотекста с именем Blue на основе текста выделенного фрагмента.

NormalTemplate.AutoTextEntries.Add Name:="Blue", _ 
 Range:=Selection.Range

Используйте AutoTextEntries (index), где index — это имя или номер индекса автотекста, чтобы вернуть один объект AutoTextEntry . Вы должны точно соответствовать написанию (но не обязательно прописной) имени, как показано на вкладке Автотекст в диалоговом окне Автозамена . В следующем примере задается значение существующей записи автотекста с именем "cName".

NormalTemplate.AutoTextEntries("cName").Value = _ 
 "The Johnson Company"

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

Set myTemplate = ActiveDocument.AttachedTemplate 
MsgBox "Name = " & myTemplate.AutoTextEntries(1).Name & vbCr _ 
 & "Value " & myTemplate.AutoTextEntries(1).Value

Методы

• Add
• AppendToSpike
• Item

Свойства

• Приложение
• Count
• Creator
• Parent

См. также

• Справочник по объектной модели Word

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

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