Document![]() ![]() ![]() |
该集合对象由 TableOfAuthorities 对象(TOA 域)组成,这些对象代表文档中的引文目录。
使用 TablesOfAuthorities 属性可返回 TablesOfAuthorities 集合。下列示例对活动文档中的所有引文目录应用“古典”内置样式。
ActiveDocument.TablesOfAuthorities.Format = wdTOAClassic
使用 Add 方法可将引文目录添至文档。引文目录是基于文档中的 TA(引文目录项)域建立的。下列示例在活动文档的起始处添加一个包含所有类别的引文目录。
Set myRange = ActiveDocument.Range(Start:=0, End:=0)
ActiveDocument.TablesOfAuthorities.Add Range:=myRange, _
Passim:=True, Category:=0, EntrySeparator:= ", "
使用 TablesOfAuthorities(index) 可返回单独的 TableOfAuthorities 对象,其中 index 为索引序号。索引序号表示文档中引文目录的位置。下列示例在活动文档的第一个引文目录中插入分类页眉,然后更新该目录。
With ActiveDocument.TablesOfAuthorities(1)
.IncludeCategoryHeader = True
.Update
End With