Program.vb

Imports DevExpress.XtraRichEdit
Imports DevExpress.XtraRichEdit.API.Native
Imports DevExpress.Office.Utils
Imports System.Drawing

Namespace TablesSimpleExample

    Friend Class Program

        Shared Sub Main(ByVal args As String())
            Using wordProcessor As RichEditDocumentServer = New RichEditDocumentServer()
                CreateTable(wordProcessor.Document)
                SetColumnWidth(wordProcessor.Document.Tables(0))
                WrapTextAroundTable(wordProcessor.Document)
                MergeAndSplit(wordProcessor.Document)
                FillData(wordProcessor.Document)
                FormatData(wordProcessor.Document)
                CustomizeTable(wordProcessor.Document)
                TableStyle(wordProcessor.Document)
                AdjustTableRows(wordProcessor.Document)
                'DeleteElements(wordProcessor.Document);
                wordProcessor.SaveDocument("DocumentWithTables.docx", DocumentFormat.OpenXml)
            End Using

            Dim processor As New Process()
            processor.StartInfo = New ProcessStartInfo("DocumentWithTables.docx") With {.UseShellExecute = True}
            processor.Start()
        End Sub

        Private Shared Sub CreateTable(ByVal document As Document)
            'Create a new table and specify its layout type
            Dim table As Table = document.Tables.Create(document.Range.Start, 2, 2)
            'Add new rows to the table
            Dim newRowBefore As TableRow = table.Rows.InsertBefore(0)
            Dim newRowAfter As TableRow = table.Rows.InsertAfter(0)
            'Add a new column to the table
            Dim newLastColumn As TableCell = table.Rows(0).Cells.Append()
        End Sub

        Private Shared Sub SetColumnWidth(ByVal table As Table)
            'Set the width of the first column
            table.Rows(0).FirstCell.PreferredWidthType = WidthType.Fixed
            table.Rows(0).FirstCell.PreferredWidth = Units.InchesToDocumentsF(0.8F)
            'Set the second column width and cell height
            table(0, 1).PreferredWidthType = WidthType.Fixed
            table(0, 1).PreferredWidth = Units.InchesToDocumentsF(5F)
            table(0, 1).HeightType = HeightType.Exact
            table(0, 1).Height = Units.InchesToDocumentsF(0.5F)
            'Set the third column width 
            table.Rows(0).LastCell.PreferredWidthType = WidthType.Fixed
            table.Rows(0).LastCell.PreferredWidth = Units.InchesToDocumentsF(0.8F)
        End Sub

        Private Shared Sub MergeAndSplit(ByVal document As Document)
            Dim table As Table = document.Tables(0)
            table.BeginUpdate()
            'Split cell into 8
            table(3, 1).Split(4, 2)
            'Merge cells
            table.MergeCells(table(4, 1), table(4, 2))
            table.MergeCells(table(6, 1), table(6, 2))
            table.EndUpdate()
        End Sub

        Private Shared Sub FillData(ByVal document As Document)
            Dim table As Table = document.Tables(0)
            'Insert the header data
            document.InsertSingleLineText(table.Rows(0).Cells(1).Range.Start, "Active Customers")
            document.InsertSingleLineText(table(2, 0).Range.Start, "Photo")
            document.InsertSingleLineText(table(2, 1).Range.Start, "Customer Info")
            document.InsertSingleLineText(table(2, 2).Range.Start, "Rentals")
            'Insert the customer photo
            document.Images.Insert(table(3, 0).Range.Start, DocumentImageSource.FromFile("photo.png"))
            'Insert the customer info
            document.InsertText(table(3, 1).Range.Start, "Ryan Anita W")
            document.InsertText(table(3, 2).Range.Start, "Intermediate")
            document.InsertText(table(4, 1).Range.Start, "3/28/1984")
            document.InsertText(table(5, 1).Range.Start, "anita_ryan@dxvideorent.com")
            document.InsertText(table(5, 2).Range.Start, "(555)421-0059")
            document.InsertText(table(6, 1).Range.Start, "5119 Beryl Dr, San Antonio, TX 78212")
            document.InsertSingleLineText(table(3, 3).Range.Start, "18")
        End Sub

        Private Shared Sub FormatData(ByVal document As Document)
            Dim table As Table = document.Tables(0)
            'Apply formatting to the "Active Customers" cell
            Dim properties As CharacterProperties = document.BeginUpdateCharacters(table(0, 1).ContentRange)
            properties.FontName = "Segoe UI"
            properties.FontSize = 16
            document.EndUpdateCharacters(properties)
            Dim alignment As ParagraphProperties = document.BeginUpdateParagraphs(table(0, 1).ContentRange)
            alignment.Alignment = ParagraphAlignment.Center
            document.EndUpdateParagraphs(alignment)
            table(0, 1).VerticalAlignment = TableCellVerticalAlignment.Center
            'Apply formatting to the header cells
            Dim headerRowProperties As CharacterProperties = document.BeginUpdateCharacters(table.Rows(2).Range)
            headerRowProperties.FontName = "Segoe UI"
            headerRowProperties.FontSize = 11
            headerRowProperties.ForeColor = Color.FromArgb(212, 236, 183)
            document.EndUpdateCharacters(headerRowProperties)
            Dim headerRowParagraphProperties As ParagraphProperties = document.BeginUpdateParagraphs(table.Rows(2).Range)
            headerRowParagraphProperties.Alignment = ParagraphAlignment.Center
            document.EndUpdateParagraphs(headerRowParagraphProperties)
            'Apply formatting to the customer info cells
            Dim targetRange As DocumentRange = document.CreateRange(table(3, 1).Range.Start, table(6, 2).Range.Start.ToInt() - table(3, 1).Range.Start.ToInt())
            Dim infoProperties As CharacterProperties = document.BeginUpdateCharacters(targetRange)
            infoProperties.FontSize = 8
            infoProperties.FontName = "Segoe UI"
            infoProperties.ForeColor = Color.FromArgb(111, 116, 106)
            document.EndUpdateCharacters(infoProperties)
            'Format "Rentals" cells
            Dim rentalFormat As CharacterProperties = document.BeginUpdateCharacters(table(3, 3).Range)
            rentalFormat.FontSize = 28
            rentalFormat.Bold = True
            document.EndUpdateCharacters(rentalFormat)
            Dim rentalAlignment As ParagraphProperties = document.BeginUpdateParagraphs(table(3, 3).Range)
            rentalAlignment.Alignment = ParagraphAlignment.Center
            document.EndUpdateParagraphs(rentalAlignment)
            table(3, 3).VerticalAlignment = TableCellVerticalAlignment.Center
        End Sub

        Private Shared Sub CustomizeTable(ByVal document As Document)
            Dim table As Table = document.Tables(0)
            table.BeginUpdate()
            'Call the ChangeCellBorderColor method for every cell in the first two rows
            For i As Integer = 0 To 2 - 1
                For j As Integer = 0 To table.Rows(i).Cells.Count - 1
                    ChangeCellBorderColor(table(i, j))
                Next
            Next

            'Specify the background color for the third row
            Dim targetRow As TableRow = table.Rows(2)
            targetRow.Cells(0).BackgroundColor = Color.FromArgb(99, 122, 110)
            targetRow.Cells(1).BackgroundColor = Color.FromArgb(99, 122, 110)
            targetRow.Cells(2).BackgroundColor = Color.FromArgb(99, 122, 110)
            table.EndUpdate()
        End Sub

        Private Shared Sub ChangeCellBorderColor(ByVal cell As TableCell)
            'Specify the border style and the background color for the header cells 
            cell.Borders.Bottom.LineStyle = BorderLineStyle.None
            cell.Borders.Left.LineStyle = BorderLineStyle.None
            cell.Borders.Right.LineStyle = BorderLineStyle.None
            cell.Borders.Top.LineStyle = BorderLineStyle.None
            cell.BackgroundColor = Color.Transparent
        End Sub

        Private Shared Sub TableStyle(ByVal document As Document)
            document.BeginUpdate()
            'Create a new table style
            Dim tStyleMain As TableStyle = document.TableStyles.CreateNew()
            'Specify style options       
            tStyleMain.TableBorders.InsideHorizontalBorder.LineStyle = BorderLineStyle.Single
            tStyleMain.TableBorders.InsideHorizontalBorder.LineColor = Color.White
            tStyleMain.TableBorders.InsideVerticalBorder.LineStyle = BorderLineStyle.Single
            tStyleMain.TableBorders.InsideVerticalBorder.LineColor = Color.White
            tStyleMain.CellBackgroundColor = Color.FromArgb(227, 238, 220)
            tStyleMain.Name = "MyTableStyle"
            'Add the style to the document collection
            document.TableStyles.Add(tStyleMain)
            'Create conditional styles (styles for specific table elements)         
            Dim myNewStyleForOddRows As TableConditionalStyle = tStyleMain.ConditionalStyleProperties.CreateConditionalStyle(ConditionalTableStyleFormattingTypes.OddRowBanding)
            myNewStyleForOddRows.CellBackgroundColor = Color.FromArgb(196, 220, 182)
            Dim myNewStyleForBottomRightCell As TableConditionalStyle = tStyleMain.ConditionalStyleProperties.CreateConditionalStyle(ConditionalTableStyleFormattingTypes.BottomRightCell)
            myNewStyleForBottomRightCell.CellBackgroundColor = Color.FromArgb(188, 214, 201)
            document.EndUpdate()
            ' Apply a previously defined style to the table
            document.Tables(0).Style = tStyleMain
        End Sub

        Private Shared Sub WrapTextAroundTable(ByVal document As Document)
            Dim table As Table = document.Tables(0)
            table.BeginUpdate()
            'Wrap text around the table
            table.TextWrappingType = TableTextWrappingType.Around
            'Specify vertical alignment:
            table.RelativeVerticalPosition = TableRelativeVerticalPosition.Paragraph
            table.VerticalAlignment = TableVerticalAlignment.None
            table.OffsetYRelative = Units.InchesToDocumentsF(2F)
            'Specify horizontal alignment:
            table.RelativeHorizontalPosition = TableRelativeHorizontalPosition.Margin
            table.HorizontalAlignment = TableHorizontalAlignment.Center
            table.OffsetXRelative = Units.InchesToDocumentsF(2F)
            'Set distance between the text and the table:
            table.MarginBottom = Units.InchesToDocumentsF(0.3F)
            table.MarginLeft = Units.InchesToDocumentsF(0.3F)
            table.MarginTop = Units.InchesToDocumentsF(0.3F)
            table.MarginRight = Units.InchesToDocumentsF(0.3F)
            table.EndUpdate()
        End Sub

        Private Shared Sub AdjustTableRows(ByVal document As Document)
            Dim table As Table = document.Tables(0)
            table.BeginUpdate()
            'Repeat first three rows as header:
            table.Rows(0).RepeatAsHeaderRow = True
            table.Rows(1).RepeatAsHeaderRow = True
            table.Rows(2).RepeatAsHeaderRow = True
            'Break last row across pages:
            table.LastRow.BreakAcrossPages = True
            table.EndUpdate()
        End Sub

        Private Shared Sub DeleteElements(ByVal document As Document)
            Dim tbl As Table = document.Tables(0)
            tbl.BeginUpdate()
            'Delete a cell
            tbl.Cell(1, 1).Delete()
            'Delete a row
            tbl.Rows(0).Delete()
            tbl.EndUpdate()
            'Delete the entire table
            'document.Tables.Remove(tbl);
            'Call the declared method using ForEachRow method and the corresponding delegate
            tbl.ForEachRow(New TableRowProcessorDelegate(AddressOf DeleteCells))
        End Sub

        'Declare a method that deletes the second cell in every table row
        Public Shared Sub DeleteCells(ByVal row As TableRow, ByVal i As Integer)
            row.Cells(1).Delete()
        End Sub
    End Class
End Namespace