lahagod.blogg.se

You can download a complete working sample from GitHub. Using ( WordDocument document = new WordDocument ()) 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. 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.