Question

Application Templates (Template) AutoTextEntries (AutoTextEntry)

由 AutoTextEntry 对象所组成集合，该集合代表模板中的“自动图文集”词条。AutoCorrectEntries 集合包括“自动更正”对话框（“工具”菜单）内的“自动图文集”选项卡上列出的所有词条。

使用 AutoTextEntries 对象

用 AutoTextEntries 属性可返回 AutoTextEntries 集合。下列示例判定名为“test”的 AutoTextEntry 对象是否包含在 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) 可返回单个 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