VBA word停止合并单元格向合并单元格添加新行

Question

我有一个 word 表格，其中我将 1 个单元格与文本合并到它左侧的 2 个空单元格中。每次合并时，它都会在合并单元格的文本下添加一个新行。这弄乱了桌子的整个布局。此表已从 Excel 复制并粘贴到 Word 中。我该如何解决这个问题？

Dim table1 as Table
With table1
.Cell(Row:=1, Column:=3).Merge _ 
MergeTo:=.Cell(Row:=1, Column:=5)
End With

Answer 1

此变体包括两个解决方案，用于处理正在合并的单元格中的现有内容。

Private Sub TestMerge()
    Dim i As Long

    With ActiveDocument.Tables(1).Rows(1)
        For i = 3 To 4
'            .Cells(i).Range.Text = ""
            .Cells(2).Merge .Cells(i)
        Next i
        .Cells(2).Range.Text = ""
    End With
End Sub

第一个解决方案删除单元格 3 和 4 中的所有内容，但保留单元格 (2) 的内容。在上面的代码中，它被代码前面的撇号呈现为静音。

第二种方法是从合并的单元格中删除所有内容。我建议只在Application.ScreenUpdating = False 时运行这个版本，因为它会导致很多闪烁。

还有多种方法，但要推荐最适合您需求的方法，您需要更好地了解您的需求。顺便说一句，如果可能的话，在输入时从表格中删除空格。让空白漂浮在您的文档周围并在最不期望或最不想要的时候弹出它们绝不是一个好主意。

Answer 2

合并命令只能合并两个相邻的单元格。您可以使用循环来合并更多单元格。

Dim i As Long

With ActiveDocument.Tables(1).Rows(1)
    For i = 3 To 4
        .Cells(2).Merge .Cells(i)
    Next i
End With

单元格 3 和 4 与单元格 (2) 合并。