嘿，我仔细看了你的VB.NET代码，发现几个导致单元格合并没生效的关键问题，咱们一步步来修正：

问题分析 #

• 重复添加TableCellProperties导致属性被覆盖：你给tc1连续追加了两次TableCellProperties，第二次的会直接覆盖第一次的，所以带HorizontalMerge的属性其实没起作用，因为第一个带TableCellWidth的属性被冲掉了。
• 第二个单元格的合并标记错误：直接复制第一个单元格的OuterXml会让第二个单元格的HorizontalMerge也是Restart，而合并需要第二个单元格设置为Continue才行。
• 未指定单元格宽度的具体值和类型：默认的TableCellWidth没有实际宽度值，可能会导致单元格布局异常，影响合并效果。

修正后的代码 #

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

            ' 创建表格
            Dim table As New Table()

            ' 设置表格边框
            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}))
            table.AppendChild(Of TableProperties)(tblProp)

            ' 创建第一行
            Dim tr As New TableRow()

            ' 第一个单元格：设置合并起始（Restart）
            Dim tc1 As New TableCell()
            ' 把宽度和合并属性放在同一个TableCellProperties里
            Dim tc1Props As New TableCellProperties(
                New TableCellWidth() With {.Type = TableWidthUnitValues.Dxa, .Width = "2000"}, ' 设置宽度为2000Dxa（约1.4厘米）
                New HorizontalMerge() With {.Val = MergedCellValues.Restart}
            )
            tc1.Append(tc1Props)
            tc1.Append(New Paragraph(New Run(New Text("合并的单元格内容"))))
            tr.Append(tc1)

            ' 第二个单元格：设置合并延续（Continue）
            Dim tc2 As New TableCell()
            Dim tc2Props As New TableCellProperties(
                New TableCellWidth() With {.Type = TableWidthUnitValues.Dxa, .Width = "2000"},
                New HorizontalMerge() With {.Val = MergedCellValues.Continue}
            )
            ' 注意：合并的延续单元格不需要添加内容，否则会显示在合并区域里
            tc2.Append(tc2Props)
            tc2.Append(New Paragraph()) ' 至少需要一个空段落，避免Word报错
            tr.Append(tc2)

            ' 添加行到表格，表格到文档
            table.Append(tr)
            doc.Body.Append(table)

            ' 保存文档（OpenXml需要显式保存吗？其实Using块会自动处理，但保险起见可以加）
            doc.Save()
        End Using

        Process.Start(fileName)
    End Sub
End Class

关键修正点说明 #

1. 合并属性和宽度放在同一个TableCellProperties：确保所有单元格属性都生效，不会被覆盖。
2. 第二个单元格设置HorizontalMerge为Continue：明确标记这是合并的延续单元格，Word才会识别为合并。
3. 给TableCellWidth指定具体值和类型：用Dxa单位设置宽度，让单元格布局更稳定，避免合并异常。
4. 延续单元格添加空段落：Word要求每个单元格至少有一个段落，否则可能导致文档损坏或布局异常。

这样修改后，就能实现横向合并两个单元格的效果了。

内容的提问来源于stack exchange，提问作者ERIC