Bold = True 'Adds footnote text paragraph = footnote. AppendText ( 'Sample content for footnotes' ). SuperScript 'Inserts the text into the paragraph paragraph. Footnote ), WFootnote ) 'Sets the footnote character format footnote. AddParagraph () 'Appends the footnotes Dim footnote As WFootnote = DirectCast ( paragraph. Heading1 ) 'Adds a paragraph to a section paragraph = section. AppendText ( 'Working with footnotes' ) 'Formats the text paragraph. AddParagraph () 'Appends the text to paragraph paragraph. AddSection () 'Adds a paragraph to a section Dim paragraph As IWParagraph = section. 'Creates a new Word document Dim document As New WordDocument () 'Creates a section Dim section As IWSection = document. AppendText ( 'AdventureWorks Cycles, the fictitious company on which the AdventureWorks sample databases are based, is a large, multinational manufacturing company.' ) //Saves and closes the Word document instance document.

Bold = true //Adds footnote text paragraph = footnote. SuperScript //Inserts the text into the paragraph paragraph.

Footnote ) //Sets the footnote character format footnote. AddParagraph () //Appends the footnotes WFootnote footnote = ( WFootnote ) paragraph. Heading1 ) //Adds a paragraph to a section paragraph = section. AppendText ( 'Working with footnotes' ) //Formats the text paragraph. AddParagraph () //Appends the text to paragraph paragraph.

AddSection () //Adds a paragraph to a section IWParagraph paragraph = section. Creates a new Word document WordDocument document = new WordDocument () //Creates a section IWSection section = document.

Removing an endnote in word