如何在word上创建表格并使用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

这段代码的问题是我在添加它时看不到任何边框和线条。

此外，当我多次单击命令按钮时，它只会向现有表添加更多行，而不是在之前的表下创建其他表。

我试图在表格之间添加换行符来解决这个问题，但它没有用。 我用了 ：

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