Как изменить таблицу в слове с VBA

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

Вам нужно получить доступ к объекту таблицы, как

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

или же

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