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

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

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

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

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

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

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

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

PM> Install-Package Spire.Doc

using Spire.Doc;
    using Spire.Doc.Documents;
    using Spire.Doc.Fields;
    
    namespace AddComments
    {
        internal class Program
        {
            static void Main(string[] args)
            {
                //Initialize an instance of the Document class
                Document document = new Document();
                //Load a Word document
                document.LoadFromFile(@"Sample.docx");
    
                //Get the first section in the document
                Section section = document.Sections[0];
    
                //Get the first paragraph in the section
                Paragraph paragraph = section.Paragraphs[0];
                //Add a comment to the paragraph
                Comment comment = paragraph.AppendComment("This comment is added using Spire.Doc for .NET.");
                //Set comment author
                comment.Format.Author = "Eiceblue";
                comment.Format.Initial = "CM";
    
                //Save the result document
                document.SaveToFile("AddCommentToParagraph.docx", FileFormat.Docx2013);
                document.Close();
            }
        }
    }

Imports Spire.Doc
    Imports Spire.Doc.Documents
    Imports Spire.Doc.Fields
    
    Namespace AddComments
        Friend Class Program
            Private Shared Sub Main(ByVal args As String())
                'Initialize an instance of the Document class
                Dim document As Document = New Document()
                'Load a Word document
                document.LoadFromFile("Sample.docx")
    
                'Get the first section in the document
                Dim section As Section = document.Sections(0)
    
                'Get the first paragraph in the section
                Dim paragraph As Paragraph = section.Paragraphs(0)
                'Add a comment to the paragraph
                Dim comment As Comment = paragraph.AppendComment("This comment is added using Spire.Doc for .NET.")
                'Set comment author
                comment.Format.Author = "Eiceblue"
                comment.Format.Initial = "CM"
    
                'Save the result document
                document.SaveToFile("AddCommentToParagraph.docx", FileFormat.Docx2013)
                document.Close()
            End Sub
        End Class
    End Namespace

using Spire.Doc;
    using Spire.Doc.Documents;
    using Spire.Doc.Fields;
    
    namespace AddCommentsToText
    {
        internal class Program
        {
            static void Main(string[] args)
            {
                //Initialize an instance of the Document class
                Document document = new Document();
                //Load a Word document
                document.LoadFromFile(@"CommentTemplate.docx");
    
                //Find a specific string
                TextSelection find = document.FindString("Microsoft Office", false, true);
    
                //Create the comment start mark and comment end mark
                CommentMark commentmarkStart = new CommentMark(document);
                commentmarkStart.Type = CommentMarkType.CommentStart;
                CommentMark commentmarkEnd = new CommentMark(document);
                commentmarkEnd.Type = CommentMarkType.CommentEnd;
    
                //Create a comment and set its content and author
                Comment comment = new Comment(document);
                comment.Body.AddParagraph().Text = "Developed by Microsoft.";
                comment.Format.Author = "Shaun";
    
                //Get the found text as a single text range
                TextRange range = find.GetAsOneRange();
    
                //Get the owner paragraph of the text range
                Paragraph para = range.OwnerParagraph;
    
                //Add the comment to the paragraph
                para.ChildObjects.Add(comment);
    
                //Get the index of text range in the paragraph
                int index = para.ChildObjects.IndexOf(range);
    
                //Insert the comment start mark before the text range
                para.ChildObjects.Insert(index, commentmarkStart);
                //Insert the comment end mark after the text range
                para.ChildObjects.Insert(index + 2, commentmarkEnd);
    
                //Save the result document
                document.SaveToFile("AddCommentForText.docx", FileFormat.Docx2013);
                document.Close();
            }
        }
    }

Imports Spire.Doc
    Imports Spire.Doc.Documents
    Imports Spire.Doc.Fields
    
    Namespace AddCommentsToText
        Friend Class Program
            Private Shared Sub Main(ByVal args As String())
                'Initialize an instance of the Document class
                Dim document As Document = New Document()
                'Load a Word document
                document.LoadFromFile("CommentTemplate.docx")
    
                'Find a specific string
                Dim find As TextSelection = document.FindString("Microsoft Office", False, True)
    
                'Create the comment start mark and comment end mark
                Dim commentmarkStart As CommentMark = New CommentMark(document)
                commentmarkStart.Type = CommentMarkType.CommentStart
                Dim commentmarkEnd As CommentMark = New CommentMark(document)
                commentmarkEnd.Type = CommentMarkType.CommentEnd
    
                'Create a comment and set its content and author
                Dim comment As Comment = New Comment(document)
                comment.Body.AddParagraph().Text = "Developed by Microsoft."
                comment.Format.Author = "Shaun"
    
                'Get the found text as a single text range
                Dim range As TextRange = find.GetAsOneRange()
    
                'Get the owner paragraph of the text range
                Dim para As Paragraph = range.OwnerParagraph
    
                'Add the comment to the paragraph
                para.ChildObjects.Add(comment)
    
                'Get the index of text range in the paragraph
                Dim index As Integer = para.ChildObjects.IndexOf(range)
    
                'Insert the comment start mark before the text range
                para.ChildObjects.Insert(index, commentmarkStart)
                'Insert the comment end mark after the text range
                para.ChildObjects.Insert(index + 2, commentmarkEnd)
    
                'Save the result document
                document.SaveToFile("AddCommentForText.docx", FileFormat.Docx2013)
                document.Close()
            End Sub
        End Class
    End Namespace

using Spire.Doc;
    using Spire.Doc.Fields;
    
    namespace ReplyToComments
    {
        internal class Program
        {
            static void Main(string[] args)
            {
                //Initialize an instance of the Document class
                Document document = new Document();
                //Load a Word document
                document.LoadFromFile(@"AddCommentToParagraph.docx");
    
                //Get the first comment in the document
                Comment comment1 = document.Comments[0];
    
                //Create a new comment and specify its author and content
                Comment replyComment1 = new Comment(document);
                replyComment1.Format.Author = "Michael";
                replyComment1.Body.AddParagraph().AppendText("Spire.Doc is a wonderful Word library.");
    
                //Add the comment as a reply to the first comment
                comment1.ReplyToComment(replyComment1);
    
                //Save the result document
                document.SaveToFile("ReplyToComment.docx", FileFormat.Docx2013);
                document.Close();
            }
        }
    }

Imports Spire.Doc
    Imports Spire.Doc.Fields
    
    Namespace ReplyToComments
        Friend Class Program
            Private Shared Sub Main(ByVal args As String())
                'Initialize an instance of the Document class
                Dim document As Document = New Document()
                'Load a Word document
                document.LoadFromFile("AddCommentToParagraph.docx")
    
                'Get the first comment in the document
                Dim comment1 As Comment = document.Comments(0)
    
                'Create a new comment and specify its author and content
                Dim replyComment1 As Comment = New Comment(document)
                replyComment1.Format.Author = "Michael"
                replyComment1.Body.AddParagraph().AppendText("Spire.Doc is a wonderful Word library.")
    
                'Add the comment as a reply to the first comment
                comment1.ReplyToComment(replyComment1)
    
                'Save the result document
                document.SaveToFile("ReplyToComment.docx", FileFormat.Docx2013)
                document.Close()
            End Sub
        End Class
    End Namespace

using Spire.Doc;
    
    namespace DeleteComments
    {
        internal class Program
        {
            static void Main(string[] args)
            {
                //Initialize an instance of the Document class
                Document document = new Document();
                //Load a Word document
                document.LoadFromFile(@"AddCommentToParagraph.docx");
    
                //Delete the first comment in the document
                document.Comments.RemoveAt(0);
    
                //Delete all comments in the document
                //document.Comments.Clear();
    
                //Save the result document
                document.SaveToFile("DeleteComment.docx", FileFormat.Docx2013);
                document.Close();
            }
        }
    }

Imports Spire.Doc
    
    Namespace DeleteComments
        Friend Class Program
            Private Shared Sub Main(ByVal args As String())
                'Initialize an instance of the Document class
                Dim document As Document = New Document()
                'Load a Word document
                document.LoadFromFile("AddCommentToParagraph.docx")
    
                'Delete the first comment in the document
                document.Comments.RemoveAt(0)
    
                'Delete all comments in the document
                'document.Comments.Clear();
    
                'Save the result document
                document.SaveToFile("DeleteComment.docx", FileFormat.Docx2013)
                document.Close()
            End Sub
        End Class
    End Namespace