如何在 VBA Word 中制作常规表格
How to make regular tables in VBA Word
所以我遇到了这个问题。我想使用 VBA 在 Word 中创建一个 table ,但每次我这样做都会创建一个带有这个奇怪的灰色边框的 table ;我希望它看起来像一个正常的 table。这是我正在使用的代码
Sub MakeATable()
Dim actdoc As Document
Dim newtbl As Table
Set actdoc = ActiveDocument
Set myrange = actdoc.Range(0, 0)
Set newtbl = actdoc.Tables.Add(myrange, 10, 2, wdWord9Behavior)
End Sub
我厌倦了添加以下内容以使 table 成为正常样式,但添加它也不起作用
newtbl.Style = Normal
奇怪的是我用下面的代码一点问题都没有
Sub MakeATable()
Dim actdoc As Document
Dim newtbl As Table
Set actdoc = ActiveDocument
Set myrange = actdoc.Range(0, 0)
actdoc.Tables.Add Range:=myrange, NumRows:=10, NumColumns:=2, DefaultTableBehavior:=wdWord9TableBehavior
任何人都可以帮助我或至少解释一下发生了什么事吗?
谢谢
在您的第一个列表中,替换
wdWord9Behavior
和
wdWord9TableBehavior
所以我遇到了这个问题。我想使用 VBA 在 Word 中创建一个 table ,但每次我这样做都会创建一个带有这个奇怪的灰色边框的 table ;我希望它看起来像一个正常的 table。这是我正在使用的代码
Sub MakeATable()
Dim actdoc As Document
Dim newtbl As Table
Set actdoc = ActiveDocument
Set myrange = actdoc.Range(0, 0)
Set newtbl = actdoc.Tables.Add(myrange, 10, 2, wdWord9Behavior)
End Sub
我厌倦了添加以下内容以使 table 成为正常样式,但添加它也不起作用
newtbl.Style = Normal
奇怪的是我用下面的代码一点问题都没有
Sub MakeATable()
Dim actdoc As Document
Dim newtbl As Table
Set actdoc = ActiveDocument
Set myrange = actdoc.Range(0, 0)
actdoc.Tables.Add Range:=myrange, NumRows:=10, NumColumns:=2, DefaultTableBehavior:=wdWord9TableBehavior
任何人都可以帮助我或至少解释一下发生了什么事吗? 谢谢
在您的第一个列表中,替换
wdWord9Behavior
和
wdWord9TableBehavior