Word VBA教程:MarkCitation方法

插入一个 TA(引文目录项)域并作为 Field对象返回该域。

expression.MarkCitation(Range, ShortCitation, LongCitation, LongCitationAutoText, Category)

expression   必需。该表达式返回一个 TablesOfAuthorities对象。

Range   Range对象,必需。引文目录项的位置,在 Range 后插入 TA 域。

ShortCitation   String 类型,必需。在“标记引文”对话框(“插入” 菜单中的“索引和目录”命令)中显示的短引文。

LongCitation   Variant 类型,可选。在引文目录中显示的长引文。

LongCitationAutoText   Variant 类型,可选。在引文目录中显示的“自动图文集”词条名称(该词条包括长引文)。

Category   Variant 类型,可选。与类别相对应的编号:1 与“标记引文”对话框的“类别”框中的第一个类别相对应;2 与第二个类别相对应,以此类推。

VBA示例

本示例插入引用所选文字的引文目录项(TA 域)。将长引文设置为“Forrester v. Craddock”,并将分类设置为“其他事例”。


ActiveDocument.TablesOfAuthorities.MarkCitation _
    Range:=Selection.Range, ShortCitation:=Selection.Range.Text, _
    LongCitation:="Forrester v. Craddock", Category:=1

本示例插入引用所选文字的引文目录项。在引文目录中显示的文本即为在输入框中键入的文本,其类别为“其他引文”。


Dim strCitation As String
strCitation = InputBox("Type citation text")
ActiveDocument.TablesOfAuthorities.MarkCitation _
    Range:=Selection.Range, ShortCitation:=Selection.Range.Text, _
    LongCitation:=strCitation, Category:=3

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号