MarkCitation Method
Inserts a TA (Table of Authorities Entry) field and returns the field as a Field object.
expression.MarkCitation(Range, ShortCitation, LongCitation, LongCitationAutoText, Category)
expression Required. An expression that returns a TablesOfAuthorities object.
Range Required Range object. The location of the table of authorities entry. The TA field is inserted after Range.
ShortCitation Required String. The short citation for the entry as it will appear in the Mark Citation dialog box (Insert menu, Index and Tables command).
LongCitation Optional Variant. The long citation for the entry as it will appear in the table of authorities.
LongCitationAutoText Optional Variant. The name of the AutoText entry that contains the text of the long citation as it will appear in the table of authorities.
Category Optional Variant. The category number to be associated with the entry: 1 corresponds to the first category in the Category box in the Mark Citation dialog box, 2 corresponds to the second category, and so on.
Example
This example inserts a table of authorities entry (a TA field) that references the selected text. The long citation text is set to "Forrester v. Craddock" and the category is set to Other Cases.
ActiveDocument.TablesOfAuthorities.MarkCitation _
Range:=Selection.Range, ShortCitation:=Selection.Range.Text, _
LongCitation:="Forrester v. Craddock", Category:=1
This example inserts a table of authorities entry that references the selected text. The entry text that appears in the table of authorities is the text typed into the input box and the category is set to Other Authorities.
Dim strCitation As String
strCitation = InputBox("Type citation text")
ActiveDocument.TablesOfAuthorities.MarkCitation _
Range:=Selection.Range, ShortCitation:=Selection.Range.Text, _
LongCitation:=strCitation, Category:=3