从Excel VBA设置单词表边框

Question

我正在尝试从Excel VBA设置word表的边框。许多网站建议如下：

wrdTable.Borders(wdBorderTop).LineStyle = wdLineStyleSingle

但我在尝试时遇到错误（集合中请求的成员不存在）。但是，我可以使用以下代码来带内边框：

wrdTable.Borders(xlDiagonalUp).LineStyle = xlContinuous

同样我尝试过：

wrdTable.Borders(xlEdgeTop).LineStyle = xlContinuous

带顶部边框，但我得到对角线。我怎样才能在单词表中应用边框（内边框和外边框）？我正在使用office 2007。

Answer 1

这些文章将使您走上正轨：

http://www.shaunakelly.com/word/formatting/border-basics.html

http://www.shaunakelly.com/word/styles/borders-in-table-styles.html

假设您的wrdTable已正确设置为msword文档中的表对象，您有以下几种选择：

wrdTable.Borders.Enable = True

将此设置为True将对象的边框设置为与此对象的当前默认边框属性相同的线条样式和线宽。

否则指南

• 首先设置.LineStyle。
• 仅当.LineStyle不是wdLineStyleNone时
  • 设置.LineWidth
  • 设置.Color。

这是一个更详细的版本：

With wrdTable.Borders
    .OutsideLineStyle = wdLineStyleSingle
    .OutsideLineWidth = wdLineWidth075pt
    .OutsideColor = wdDarkRed
End With

有关语法的其他参考，请参阅此页：

http://msdn.microsoft.com/en-us/library/office/aa221392(v=office.11).aspx

（请注意，我已经从我的手机输入了这段代码，因此未经测试）

Answer 2

在“Microsoft Visual Basic”中选择菜单“工具” - ＆gt; “引用”并激活“Microsoft Word xx.x对象库”。 然后

wrdTable.Borders(wdBorderTop).LineStyle = wdLineStyleSingle

会奏效。

我也在寻找相同的功能几个小时。