AutoTextEntries 属性

       

返回一个 AutoTextEntries 集合,该集合代表指定模板中的所有“自动图文集”词条,只读。

有关返回集合中单个成员的内容,请参阅返回集合中的对象

示例

本示例实现的功能是:如果在附加模板中存在名为“Hello”的“自动图文集”词条,则将其删除。

Dim atEntry As AutoTextEntry

For Each atEntry In _
        ActiveDocument.AttachedTemplate.AutoTextEntries
    If atEntry.Name = "asdf" Then atEntry.Delete
    Debug.Print atEntry.Name
Next atEntry

本示例在 Normal 模板中添加一个名为“Temp”的自动图文集词条,然后在一个消息框中显示该自动图文集词条的内容(文档中的第一个单词)。

Dim atEntry As AutoTextEntry

Set atEntry = _
    NormalTemplate.AutoTextEntries.Add(Name:="Temp", _
    Range:=ActiveDocument.Words(1))

MsgBox atEntry.Value

本示例将选定部分的内容存储为附加模板中一个名为“Address”的“自动图文集”词条。

If Len(Selection.Text) > 1 Then
    ActiveDocument.AttachedTemplate.AutoTextEntries.Add _
        Range:=Selection.Range, Name:="Address"
End If