用于将两个单元格合并在一起的VBA代码

Question

我的场景是一个有一个两列表的文档。我正在从数据库中读取并填充每一行/列，但对于某些记录，我希望将两列合并到一个单元格中，并将其填充为一行，然后继续两列场景。我想发出VBA语句，将两个单元格合并在一起，在整行中形成一个单元格。这是不可能"记录"为一个新的宏。我不知道运行时的行号是多少，我只知道列号。我的搜索字符串是："Word 2013"VBA表合并单元格，但我得到了很多网站，告诉你如何手动执行，而不是使用VBA代码。

我当前的代码：

With ActiveDocument.Tables(1)
.Cell(Row:=1, Column:=1).merge _
MergeTo:=.Cell(Row:=1, Column:=2)
.Borders.Enable = True
End With

在文档中，我有一个一行两列的小表。但我应该可以有一个三行的表，其中有任何列的混合，对吧？我只想选择任意两列，并将它们合并在一起以形成一个空间，但在运行时，我不知道要提供什么行号。

Answer 1

我终于解决了这个问题，我想再次感谢您的帮助。这是我当前的代码。整个文档是一个两列表，精简，并包含超链接，因此可以在iPhone上阅读和导航。当数据中的单位值发生变化时，我想1）在下面插入一个新行并将其合并为一列，添加一个"返回主页"链接，然后继续添加两列行。

文档最终被转换为.PDF并由iOS用户访问。

    'Add a row for a 'back to home' link 
    If (intUnitOrder > intCurrentUnit) Then
       Selection.InsertRowsBelow (1)
       rowno = Selection.Information(wdEndOfRangeRowNumber) - 1
       With ActiveDocument.Tables(1)
         .Cell(Row:=rowno, Column:=1).Merge MergeTo:=.Cell(Row:=rowno, _ 
         Column:=2)
       End With
       Selection.Tables(1).Rows(rowno).Range.ParagraphFormat. _
         Alignment = wdAlignParagraphRight
       Selection.Shading.BackgroundPatternColor = RGB(230, 230, 230)
       Selection.Font.ColorIndex = wdBlue
       Selection.Font.Italic = True
       ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, _
         Address:="#Home", SubAddress:="", _
         ScreenTip:="Go back to the top", _
         TextToDisplay:="back to Home"
       Selection.MoveDown wdLine, 1
       intCurrentUnit = intUnitOrder
    End If