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 与第二个类别相对应,以此类推。

示例

本示例插入引用所选文字的引文目录项(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