Dim row As TableRow = table.Elements(Of TableRow)().ElementAt(i)
                Dim cell As TableCell = row.Elements(Of TableCell)().ElementAt(0)
                Dim p As Paragraph = cell.Elements(Of Paragraph)().First()
                If p.Elements(Of ParagraphProperties)().Count() = 0 Then                      p.PrependChild(Of ParagraphProperties)(New ParagraphProperties)
                End If
                Dim pPr As ParagraphProperties = p.Elements(Of ParagraphProperties)().First()
                Dim justification1 As Justification = New Justification() With {.Val = JustificationValues.Center}  
                pPr.Append(justification1)

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<Types xmlns="http://schemas.openxmlformats.org/package/2006/content-types"><Default Extension="rels" ContentType="application/vnd.openxmlformats-package.relationships+xml"/><Default Extension="xml" ContentType="application/xml"/><Override PartName="/word/document.xml" ContentType="application/vnd.openxmlformats-officedocument.wordprocessingml.document.main+xml"/><Override PartName="/word/styles.xml" ContentType="application/vnd.openxmlformats-officedocument.wordprocessingml.styles+xml"/><Override PartName="/word/settings.xml" ContentType="application/vnd.openxmlformats-officedocument.wordprocessingml.settings+xml"/><Override PartName="/word/webSettings.xml" ContentType="application/vnd.openxmlformats-officedocument.wordprocessingml.webSettings+xml"/><Override PartName="/word/fontTable.xml" ContentType="application/vnd.openxmlformats-officedocument.wordprocessingml.fontTable+xml"/><Override PartName="/word/theme/theme1.xml" ContentType="application/vnd.openxmlformats-officedocument.theme+xml"/><Override PartName="/docProps/core.xml" ContentType="application/vnd.openxmlformats-package.core-properties+xml"/><Override PartName="/docProps/app.xml" ContentType="application/vnd.openxmlformats-officedocument.extended-properties+xml"/></Types>

  Dim textDirectionHeader = New TextDirection()
                    If textDirectionHeadings = "BTLR" Then
                        textDirectionHeader.Val = TextDirectionValues.BottomToTopLeftToRight
                    End If
         tableCellPropertiesHeader.Append(textDirectionHeader)

 Using document = WordprocessingDocument.Open(fileName, True)
            Dim doc = document.MainDocumentPart.Document
            Dim table As New Table()
            Dim props As TableProperties = _
                New TableProperties(New TableBorders( _
                New TopBorder With {.Val = New EnumValue(Of BorderValues)(BorderValues.Single), .Size = 12}, New BottomBorder With {.Val = New EnumValue(Of BorderValues)(BorderValues.Single), .Size = 12}, New LeftBorder With {.Val = New EnumValue(Of BorderValues)(BorderValues.Single), .Size = 12}, New RightBorder With {.Val = New EnumValue(Of BorderValues)(BorderValues.Single), .Size = 12}, New InsideHorizontalBorder With {.Val = New EnumValue(Of BorderValues)(BorderValues.Single), .Size = 12}, New InsideVerticalBorder With {.Val = New EnumValue(Of BorderValues)(BorderValues.Single), .Size = 12}))
            table.AppendChild(Of TableProperties)(props)
            For i = 0 To UBound(data, 1)
                Dim tr As New TableRow
                For j = 0 To UBound(data, 2)
                    Dim tc As New TableCell
                    tc.Append(New Paragraph(New Run(New Text(data(i, j)))))
                    tc.Append(New TableCellProperties(New TableCellProperties(New TextDirection() With {.Val = TextDirectionValues.BottomToTopLeftToRight}), New TableCellWidth With {.Type = TableWidthUnitValues.Dxa, .Width = "2682"}))
                    tr.Append(tc)
                    Next
                table.Append(tr)
            Next
            doc.Body.Append(table)
            doc.Save()
        End Using

 tc.Append(New TableCellProperties(New TableCellProperties(New TextDirection() With {.Val = TextDirectionValues.BottomToTopLeftToRight})))