title: Merge cell in word using openxml
body: <p>I tried to do merge the table cell in word using openxml.Below are my code,but it does not perform the outcome that i want(merge table cell).
  Can anyone help, Thanks in advance.</p>
  
  <pre><code>Option Compare Text
  Option Explicit On
  Option Infer On
  Option Strict On
  
  Imports DocumentFormat.OpenXml
  Imports DocumentFormat.OpenXml.Packaging
  Imports DocumentFormat.OpenXml.Wordprocessing
  
  Public Class Form1
  Const fileName As String = "C:\Users\ericc\Desktop\test for new task\123.docx"
  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
      Using document = WordprocessingDocument.Open(fileName, True)
          Dim doc = document.MainDocumentPart.Document
          ' Create an empty table.
          Dim table As New Table()
  
          ' Create a TableProperties object and specify its border information.
          Dim tblProp As New TableProperties(New TableBorders(
      New TopBorder() With {.Val = New EnumValue(Of BorderValues)(BorderValues.Single), .Size = 1},
      New BottomBorder() With {.Val = New EnumValue(Of BorderValues)(BorderValues.Single), .Size = 1},
      New LeftBorder() With {.Val = New EnumValue(Of BorderValues)(BorderValues.Single), .Size = 1},
      New RightBorder() With {.Val = New EnumValue(Of BorderValues)(BorderValues.Single), .Size = 1},
      New InsideHorizontalBorder() With {.Val = New EnumValue(Of BorderValues)(BorderValues.Single), .Size = 1},
      New InsideVerticalBorder() With {.Val = New EnumValue(Of BorderValues)(BorderValues.Single), .Size = 1}))
          ' Append the TableProperties object to the empty table.
          table.AppendChild(Of TableProperties)(tblProp)
  
          ' Create a row.
          Dim tr As New TableRow()
  
          ' Create a cell.
          Dim tc1 As New TableCell()
          Dim TableCellproperties As TableCellProperties = New TableCellProperties
  
          ' Specify the width property of the table cell.
          tc1.Append(New TableCellProperties(New TableCellWidth()))
          tc1.Append(New TableCellProperties(New HorizontalMerge() With {.Val = MergedCellValues.Restart}))
  
          ' Specify the table cell content.
          tc1.Append(New Paragraph(New Run(New Text("some text"))))
          ' Append the table cell to the table row.
          tr.Append(tc1)
  
          ' Create a second table cell by copying the OuterXml value of the first table cell.
          Dim tc2 As New TableCell(tc1.OuterXml)
  
          ' Append the table cell to the table row.
          tr.Append(tc2)
  
          ' Append the table row to the table.
          table.Append(tr)
  
          ' Append the table to the document.
          doc.MainDocumentPart.Document.Body.Append(table)
      End Using
      Process.Start(fileName)
  End Sub
  End Class
  </code></pre>