Word VBA教程:AutoTextEntries属性

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

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

VBA示例

本示例实现的功能是:如果在附加模板中存在名为“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

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号