Bookmark.Footnotes Property
Definition
Important
Some information relates to prerelease product that may be substantially modified before it’s released. Microsoft makes no warranties, express or implied, with respect to the information provided here.
public:
property Microsoft::Office::Interop::Word::Footnotes ^ Footnotes { Microsoft::Office::Interop::Word::Footnotes ^ get(); };
public Microsoft.Office.Interop.Word.Footnotes Footnotes { get; }
member this.Footnotes : Microsoft.Office.Interop.Word.Footnotes
Public ReadOnly Property Footnotes As Footnotes
Property Value
A Footnotes collection that represents all the footnotes in a Bookmark control.
Examples
The following code example adds a Bookmark control with text to the first paragraph and then sets the starting number of footnotes within the bookmark to 1 and the style of the number to wdNoteNumberStyleArabic. It then inserts a footnote beneath the bookmark text.
This example is for a document-level customization.
private void BookmarkFootnoteOptions()
{
object Text = "This is my footnote text.";
this.Paragraphs[1].Range.InsertParagraphBefore();
Microsoft.Office.Tools.Word.Bookmark bookmark1 =
this.Controls.AddBookmark(this.Paragraphs[1].Range,
"bookmark1");
bookmark1.Text = "This is sample bookmark text.";
bookmark1.FootnoteOptions.NumberStyle =
Word.WdNoteNumberStyle.wdNoteNumberStyleArabic;
bookmark1.FootnoteOptions.StartingNumber = 1;
bookmark1.Footnotes.Location =
Word.WdFootnoteLocation.wdBeneathText;
bookmark1.Footnotes.Add(bookmark1.Range,
ref missing, ref Text);
}
Private Sub BookmarkFootnoteOptions()
Me.Paragraphs(1).Range.InsertParagraphBefore()
Dim Bookmark1 As Microsoft.Office.Tools.Word.Bookmark = _
Me.Controls.AddBookmark(Me.Paragraphs(1).Range, "Bookmark1")
Bookmark1.Text = "This is sample bookmark text."
Bookmark1.FootnoteOptions.NumberStyle = Word.WdNoteNumberStyle.wdNoteNumberStyleArabic
Bookmark1.FootnoteOptions.StartingNumber = 1
Bookmark1.Footnotes.Location = Word.WdFootnoteLocation.wdBeneathText
Bookmark1.Footnotes.Add(Range:=Bookmark1.Range, Text:="This is my footnote text.")
End Sub