Как изменить таблицу в слове с 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

Вам необходимо получить доступ к объекту Table, например

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

или

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