Question

返回一个 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