HI,

I am trying to add a table to a document after a paragraph using "Infragistics.Documents.Word" with the code inserted below.

However, the table always ends up on a second page instead of right after the paragraph. What am I doing wrong? 

Kind regards

Kai-Inge

Private Sub UltraButton2_Click(sender As Object, e As EventArgs) Handles UltraButton2.Click
Dim docTest = New Document()
'doc.DocumentPropertie()

'*****************************************************************************************************
'***** FONTS
'*****************************************************************************************************

Dim font As Infragistics.Documents.Word.Font = docTest.CreateFont()
font.Reset()
font.Bold = False
font.Size = 11
font.Name = "Arial"

' Add a paragraph to the Document
Dim para As Paragraph = docTest.ContentBlocks.AddParagraph()

Dim sec As Section = docTest.Sections.Add(para)
' Header

' Add text to Paragraph
para.ContentRuns.AddNewLine()
para.ContentRuns.AddNewLine()

para.ContentRuns.AddNewLine()
para.ContentRuns.AddTextRun("Some text", font) 
para.ContentRuns.AddNewLine()
para.ContentRuns.AddTextRun("Some text", font) 
para.ContentRuns.AddNewLine()
para.ContentRuns.AddNewLine()

para.ContentRuns.AddNewLine()

para.ContentRuns.AddTextRun("Some text")
para.ContentRuns.AddNewLine()
para.ContentRuns.AddNewLine()
para.ContentRuns.AddTextRun("Some text")
'*******************************************************************************************
' table
'*******************************************************************************************

Dim tblSampleDescr As Table = docTest.ContentBlocks.AddTable

tblSampleDescr.Properties.BorderProperties.Style = TableBorderStyle.[Double]

Dim columnSample As TableColumn = tblSampleDescr.Columns.Add()

Dim rowSample As TableRow = tblSampleDescr.Rows.Add()

Dim cell1forSampleRow As TableCell = tblSampleDescr.Rows(0).Cells.Add()
Dim paraSampleRowCell1 As Paragraph = cell1forSampleRow.ContentBlocks.AddParagraph()
paraSampleRowCell1.Properties.Alignment = ParagraphAlignment.Left

paraSampleRowCell1.ContentRuns.AddTextRun("Sample no.1", font)

Dim cell2forSampleRow As TableCell = tblSampleDescr.Rows(0).Cells.Add()
Dim paraSampleRowCell2 As Paragraph = cell2forSampleRow.ContentBlocks.AddParagraph()

paraSampleRowCell2.Properties.Alignment = ParagraphAlignment.Left
paraSampleRowCell2.ContentRuns.AddTextRun("--Some info on sample no. 1--", font)
'*******************************************************************************************

'*****************************************************************************************************
'**** Footer
'*****************************************************************************************************

Dim footerPara As Paragraph = sec.FooterAllPages.ContentBlocks.AddParagraph()
' The footer text alignment is set to right
footerPara.Properties.Alignment = ParagraphAlignment.Right
' Display Text in Footer
footerPara.ContentRuns.AddTextRun("some strFooterText")
' Add Page numbers to the Footer
footerPara.ContentRuns.AddPageNumberField(PageNumberFieldFormat.Ordinal)

docTest.Save("c:\testfolder\test.docx")

System.Diagnostics.Process.Start("c:\testfolder\test.docx")

End Sub