C#/VB.NET: Set Borders for Word Tables or Cells

PM> Install-Package Spire.Doc

using Spire.Doc;
using Spire.Doc.Documents;
using Spire.Doc.Formatting;
using System.Drawing;

namespace SetTableBorders
{
    internal class Program
    {
        static void Main(string[] args)
        {
            //Initialize an instance of the Document class
            Document document = new Document();

            //Add a section to the document
            Section section = document.AddSection();
            section.PageSetup.Margins.All = 72f;

            //Add a table to the section
            Table table = section.AddTable();
            //Set the number of rows and columns in the table
            table.ResetCells(5, 3);

            //Get the borders collection of the table
            Borders borders = table.TableFormat.Borders;

            //Get the top borders and set border style, line width and color
            Border topBorder = borders.Top;
            topBorder.BorderType = BorderStyle.Double;
            topBorder.LineWidth = 1.0f;
            topBorder.Color = Color.YellowGreen;

            //Get the left borders and set border style, line width and color
            Border leftBorder = borders.Left;
            leftBorder.BorderType = BorderStyle.Double;
            leftBorder.LineWidth = 1.0f;
            leftBorder.Color = Color.YellowGreen;

            //Get the right borders and set border style, line width and color
            Border rightBorder = borders.Right;
            rightBorder.BorderType = BorderStyle.Double;
            rightBorder.LineWidth = 1.0f;
            rightBorder.Color = Color.YellowGreen;

            //Get the bottom borders and set border style, line width and color
            Border bottomBorder = borders.Bottom;
            bottomBorder.BorderType = BorderStyle.Double;
            bottomBorder.LineWidth = 1.0f;
            bottomBorder.Color = Color.YellowGreen;

            //Get the inside horizontal borders and set border style, line width and color
            Border horizontalBorder = borders.Horizontal;
            horizontalBorder.BorderType = BorderStyle.Hairline;
            horizontalBorder.LineWidth = 1.0f;
            horizontalBorder.Color = Color.Orange;

            //Get the inside vertical borders and set border style, line width and color
            Border verticalBorder = borders.Vertical;
            verticalBorder.BorderType = BorderStyle.Dot;
            verticalBorder.LineWidth = 1.0f;
            verticalBorder.Color = Color.CornflowerBlue;

            //Get the first table cell
            TableCell cell = table[0, 0];
            //Get the borders collection of the cell
            Borders cellBorders = cell.CellFormat.Borders;
            //Get the diagonal down border and set border style, line width and color
            Border diagonalDownBorder = cellBorders.DiagonalDown;
            diagonalDownBorder.BorderType = BorderStyle.DotDash;
            diagonalDownBorder.LineWidth = 1.0f;
            diagonalDownBorder.Color = Color.Purple;

            //Save the result document
            document.SaveToFile("SetTableBorders.docx", FileFormat.Docx2013);
            document.Close();
        }
    }
}

Imports Spire.Doc
Imports Spire.Doc.Documents
Imports Spire.Doc.Formatting
Imports System.Drawing

Namespace SetTableBorders
    Friend Class Program
        Private Shared Sub Main(ByVal args As String())
            'Initialize an instance of the Document class
            Dim document As Document = New Document()

            'Add a section to the document
            Dim section As Section = document.AddSection()
            section.PageSetup.Margins.All = 72F

            'Add a table to the section
            Dim table As Table = section.AddTable()
            'Set the number of rows and columns of the table
            table.ResetCells(5, 3)

            'Get the borders collection of the table
            Dim borders As Borders = table.TableFormat.Borders

            'Get the top borders and set border style, line width and color
            Dim topBorder As Border = borders.Top
            topBorder.BorderType = BorderStyle.[Double]
            topBorder.LineWidth = 1.0F
            topBorder.Color = Color.YellowGreen

            'Get the left borders and set border style, line width and color
            Dim leftBorder As Border = borders.Left
            leftBorder.BorderType = BorderStyle.[Double]
            leftBorder.LineWidth = 1.0F
            leftBorder.Color = Color.YellowGreen

            'Get the right borders and set border style, line width and color
            Dim rightBorder As Border = borders.Right
            rightBorder.BorderType = BorderStyle.[Double]
            rightBorder.LineWidth = 1.0F
            rightBorder.Color = Color.YellowGreen

            'Get the bottom borders and set border style, line width and color
            Dim bottomBorder As Border = borders.Bottom
            bottomBorder.BorderType = BorderStyle.[Double]
            bottomBorder.LineWidth = 1.0F
            bottomBorder.Color = Color.YellowGreen

            'Get the inside horizontal borders and set border style, line width and color
            Dim horizontalBorder As Border = borders.Horizontal
            horizontalBorder.BorderType = BorderStyle.Hairline
            horizontalBorder.LineWidth = 1.0F
            horizontalBorder.Color = Color.Orange

            'Get the inside vertical borders and set border style, line width and color
            Dim verticalBorder As Border = borders.Vertical
            verticalBorder.BorderType = BorderStyle.Dot
            verticalBorder.LineWidth = 1.0F
            verticalBorder.Color = Color.CornflowerBlue

            'Get the first table cell
            Dim cell As TableCell = table(0, 0)
            'Get the borders collection of the cell
            Dim cellBorders As Borders = cell.CellFormat.Borders
            'Get the diagonal down border and set border style, line width and color
            Dim diagonalDownBorder As Border = cellBorders.DiagonalDown
            diagonalDownBorder.BorderType = BorderStyle.DotDash
            diagonalDownBorder.LineWidth = 1.0F
            diagonalDownBorder.Color = Color.Purple

            'Save the result document
            document.SaveToFile("SetTableBorders.docx", FileFormat.Docx2013)
            document.Close()
        End Sub
    End Class
End Namespace