Use the Note.BeginUpdate() - Note.EndUpdate() paired methods to initiate the update session and access the note content (the SubDocument object). Use buttons on the References Ribbon tab to insert a footnote or endnote.Īccess notes by their index in the NoteCollection. 'Insert an endnote at the end of the second last paragraph with a custom mark:ĭim endnoteWithCustomMarkPosition As DocumentPosition =ĭocument.CreatePosition(document.Paragraphs( - 2).() - 1)ĭ(endnoteWithCustomMarkPosition, ChrW(&H0060).ToString())
'Insert an endnote at the end of the last paragraph:ĭim endnotePosition As DocumentPosition =ĭocument.CreatePosition(document.Paragraphs( - 1).() - 1)ĭ(endnotePosition)
Shared Sub InsertEndnotes(ByVal document As Document) the second last paragraph with a custom mark:ĭocumentPosition endnoteWithCustomMarkPosition =ĭocument.CreatePosition(.ToInt() - 2) ĭ(endnoteWithCustomMarkPosition, "\u002a")
Insert an endnote at the end of the last paragraph:ĭ(endnotePosition) Private void InsertEndnotes(Document document) ' Insert a footnote at the last paragraphĭim l As Integer = document.Sections(0).Paragraphs.Count - 1ĭim footnoteWithCustomMarkPosition As DocumentPosition = document.CreatePosition(document.Paragraphs(l).Range.ToInt() - 1)ĭ(footnoteWithCustomMarkPosition, "º") 'Insert a footnote at the end of the 6th paragraph:ĭim footnotePosition As DocumentPosition =ĭocument.CreatePosition(document.Paragraphs(5).() - 1)ĭ(footnotePosition) Shared Sub InsertFootnotes(ByVal document As Document)ĭocument.LoadDocument("Documents//Grimm.docx") Int l = - 1 ĭocumentPosition footnoteWithCustomMarkPosition =ĭ(footnoteWithCustomMarkPosition, "\u00BA") Insert a footnote at the last paragraph Insert a footnote at the end of the 6th paragraph:ĭocument.CreatePosition(.ToInt() - 1) ĭ(footnotePosition)
Private void InsertFootnotes(Document document)ĭocument.LoadDocument("Documents//Grimm.docx")
0 kommentar(er)
