Question

插入一个 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