如何用VBA修改word中的表格

Question

我正在创建表，并且希望能够通过 VBA 中的代码修改它们。

我需要对表格执行的操作是合并某些单元格并调整其大小，并向某些单元格添加文本。

Answer 1

为了附加兰斯所说的内容，这里有一个合并单元格并在这些合并单元格的值中设置文本的示例：

Dim myCells As Range
With ActiveDocument
    Set myCells = .Range(Start:=.Tables(1).Cell(1, 1).Range.Start, End:=.Tables(1).Cell(1, 3).Range.End)
    myCells.Select
End With

Selection.Cells.Merge


ActiveDocument.Tables(1).Cell(Row:=1, Column:=1).Range.Text = "Value for Merged Cells"

注意：此示例中的表格有三列和两行

Answer 2

您需要访问 Table 对象，例如

ActiveDocument.Tables(1).Cell(Row:=2, Column:=2).Range.Text

或

<some Word.Document here>.
  Content.Tables(1).Columns.SetWidth <columnwidthhere>, wdAdjustSameWidth