-2

我的场景是一个包含一个两列表的文档。我正在从数据库中读取数据并填充每一行/列，但是对于某些记录，我想将两列合并到一个单元格中并将其填充为一行，然后继续两列方案。我想发出一个 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

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

4

1 回答 1

0

我终于解决了这个问题，我想再次感谢您的帮助。这是我当前的代码。整个文档是一个包含两列的表格，很窄，并且包含超链接，以便可以在 iPhone 上阅读和导航。当数据中的 Unit 值发生变化时，我想 1）在下面插入一个新行并将其合并到一列中，添加一个“Go Home”链接，然后继续添加两列行。

该文档最终被转换为 .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
于 2016-04-13T22:43:25.480 回答