AutoTextEntry 对象

Application Templates (Template) AutoTextEntries (AutoTextEntry)

代表单个“自动图文集”词条。AutoTextEntry 对象是 AutoTextEntries 集合中的元素。AutoTextEntries 集合包括指定模板中的“自动图文集”词条。这些词条都列在“自动更正”对话框（“工具”菜单）内的“自动图文集”选项卡上。

使用 AutoTextEntry 对象

用 AutoTextEntries(index) 可返回单个 AutoTextEntry 对象，其中 index 是“自动图文”词条的名称或索引序号。名称的拼写必须与“自动更正”对话框内的“自动图文集”选项卡上所显示的完全匹配（但大小写不必匹配）。下列示例为原有的名为“cName”的“自动图文集”词条设置替换内容。

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

下列示例显示活动文档选用的模板中第一个“自动图文集”词条的名称和值。

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

下列示例在插入点插入名为“TheWorld”的共用“自动图文集”词条。

Selection.Collapse Direction:=wdCollapseEnd
NormalTemplate.AutoTextEntries("TheWorld").Insert _
    Where:=Selection.Range

用 Add 方法可在 AutoTextEntries 集合中添加 AutoTextEntry 对象。下列示例根据选定部分的文字添加一个名为“Blue”的“自动图文集”词条。

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