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)
