Как создать таблицу на слово и добавить границы с помощью VBA

Question

Я просто хочу создать таблицу всякий раз, когда нажимаю на командную кнопку. Таблица должна иметь 2 строки и 2 столбца.

И всякий раз, когда я добавляю другую таблицу, она должна добавлять новую под предыдущей.

На данный момент это мой код:

Private Sub CommandButton1_Click()

Set MyRange = ActiveDocument.Content
MyRange.Collapse Direction:=wdCollapseEnd
ActiveDocument.Tables.Add Range:=MyRange, NumRows:=2, NumColumns:=2

End Sub

Проблема с этим кодом в том, что я не вижу границ и линий при добавлении.

Кроме того, когда я нажимаю кнопку несколько раз, она просто добавляет больше строк к существующему table, вместо создания других таблиц под предыдущими.

Я попытался добавить разрыв строки между таблицами, чтобы исправить ситуацию, но это не сработало. Я использовал:

ActiveDocument.Range.Text = "Foo" & Chr(11) & "Bar"

Спасибо за вашу помощь

Answer 1

Попробуйте:

Sub Demo()
With ActiveDocument.Range
  .InsertAfter vbCr
  .Tables.Add Range:=.Characters.Last, NumRows:=2, NumColumns:=2
  .Tables(.Tables.Count).Borders.Enable = True
End With
End Sub