C#/VB.NET: создание таблицы в Word

PM> Install-Package Spire.Doc

using System;
    using System.Drawing;
    using Spire.Doc;
    using Spire.Doc.Documents;
    using Spire.Doc.Fields;
    
    namespace WordTable
    {
        class Program
        {
            static void Main(string[] args)
            {
                //Create a Document object
                Document doc = new Document();
                //Add a section
                Section s = doc.AddSection();
    
                //Define the data for the table
                String[] Header = { "Date", "Description", "Country", "On Hands", "On Order" };
                String[][] data = {
                                      new String[]{ "08/07/2021","Dive kayak","United States","24","16"},
                                      new String[]{ "08/07/2021","Underwater Diver Vehicle","United States","5","3"},
                                      new String[]{ "08/07/2021","Regulator System","Czech Republic","165","216"},
                                      new String[]{ "08/08/2021","Second Stage Regulator","United States","98","88"},
                                      new String[]{ "08/08/2021","Personal Dive Sonar","United States","46","45"},
                                      new String[]{ "08/09/2021","Compass Console Mount","United States","211","300"},
                                      new String[]{ "08/09/2021","Regulator System","United Kingdom","166","100"},
                                      new String[]{ "08/10/2021","Alternate Inflation Regulator","United Kingdom","47","43"},
                                  };
                //Add a table
                Table table = s.AddTable(true);
                table.ResetCells(data.Length + 1, Header.Length);
    
                //Set the first row as table header
                TableRow FRow = table.Rows[0];
                FRow.IsHeader = true;
    
                //Set the height and color of the first row
                FRow.Height = 23;
                FRow.RowFormat.BackColor = Color.LightSeaGreen;
                for (int i = 0; i < Header.Length; i++)
                {
                    //Set alignment for cells
                    Paragraph p = FRow.Cells[i].AddParagraph();
                    FRow.Cells[i].CellFormat.VerticalAlignment = VerticalAlignment.Middle;
                    p.Format.HorizontalAlignment = HorizontalAlignment.Center;
    
                    //Set data format
                    TextRange TR = p.AppendText(Header[i]);
                    TR.CharacterFormat.FontName = "Calibri";
                    TR.CharacterFormat.FontSize = 12;
                    TR.CharacterFormat.Bold = true;
                }
    
                //Add data to the rest of rows and set cell format
                for (int r = 0; r < data.Length; r++)
                {
                    TableRow DataRow = table.Rows[r + 1];
                    DataRow.Height = 20;
                    for (int c = 0; c < data[r].Length; c++)
                    {
                        DataRow.Cells[c].CellFormat.VerticalAlignment = VerticalAlignment.Middle;
                        Paragraph p2 = DataRow.Cells[c].AddParagraph();
                        TextRange TR2 = p2.AppendText(data[r][c]);
                        p2.Format.HorizontalAlignment = HorizontalAlignment.Center;
    
                        //Set data format
                        TR2.CharacterFormat.FontName = "Calibri";
                        TR2.CharacterFormat.FontSize = 11;
                    }
                }
    
                //Save the document
                doc.SaveToFile("WordTable.docx", FileFormat.Docx2013);
            }
        }
    }

Imports System
    Imports System.Drawing
    Imports Spire.Doc
    Imports Spire.Doc.Documents
    Imports Spire.Doc.Fields
    
    Namespace WordTable
    
        Class Program
    
            Private Shared Sub Main(ByVal args() As String)
                'Create a Document object
                Dim doc As Document = New Document
    
                'Add a section
                Dim s As Section = doc.AddSection
    
                'Define the data for the table
                Dim Header() As String = New String() {"Date", "Description", "Country", "On Hands", "On Order"}
                Dim data(,) As String = New String() {New String() {"08/07/2021", "Dive kayak", "United States", "24", "16"}, New String() {"08/07/2021", "Underwater Diver Vehicle", "United States", "5", "3"}, New String() {"08/07/2021", "Regulator System", "Czech Republic", "165", "216"}, New String() {"08/08/2021", "Second Stage Regulator", "United States", "98", "88"}, New String() {"08/08/2021", "Personal Dive Sonar", "United States", "46", "45"}, New String() {"08/09/2021", "Compass Console Mount", "United States", "211", "300"}, New String() {"08/09/2021", "Regulator System", "United Kingdom", "166", "100"}, New String() {"08/10/2021", "Alternate Inflation Regulator", "United Kingdom", "47", "43"}}
    
                'Add a table
                Dim table As Table = s.AddTable(true)
                table.ResetCells((data.Length + 1), Header.Length)
    
                'Set the first row as table header
                Dim FRow As TableRow = table.Rows(0)
                FRow.IsHeader = true
    
                'Set the height and color of the first row
                FRow.Height = 23
                FRow.RowFormat.BackColor = Color.LightSeaGreen
                Dim i As Integer = 0
                Do While (i < Header.Length)
    
                    'Set alignment for cells
                    Dim p As Paragraph = FRow.Cells(i).AddParagraph
                    FRow.Cells(i).CellFormat.VerticalAlignment = VerticalAlignment.Middle
                    p.Format.HorizontalAlignment = HorizontalAlignment.Center
    
                    'Set data format
                    Dim TR As TextRange = p.AppendText(Header(i))
                    TR.CharacterFormat.FontName = "Calibri"
                    TR.CharacterFormat.FontSize = 12
                    TR.CharacterFormat.Bold = true
                    i = (i + 1)
                Loop
    
                'Add data to the rest of rows and set cell format
                Dim r As Integer = 0
                Do While (r < data.Length)
                    Dim DataRow As TableRow = table.Rows((r + 1))
                    DataRow.Height = 20
                    Dim c As Integer = 0
                    Do While (c < data(r).Length)
                        DataRow.Cells(c).CellFormat.VerticalAlignment = VerticalAlignment.Middle
                        Dim p2 As Paragraph = DataRow.Cells(c).AddParagraph
                        Dim TR2 As TextRange = p2.AppendText(data(r)(c))
                        p2.Format.HorizontalAlignment = HorizontalAlignment.Center
    
                        'Set data format
                        TR2.CharacterFormat.FontName = "Calibri"
                        TR2.CharacterFormat.FontSize = 11
                        c = (c + 1)
                    Loop
    
                    r = (r + 1)
                Loop
    
                'Save the document
                doc.SaveToFile("WordTable.docx", FileFormat.Docx2013)
            End Sub
        End Class
    End Namespace