Word VBA教程:AutoTextEntries集合对象

   
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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号