Partager via


Bookmark.Footnotes Property

Definition

Gets a Footnotes collection that represents all the footnotes in a Bookmark control.

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

Applies to