vba - 从 Excel VBA 设置单词表边框

Question

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

wrdTable.Borders(wdBorderTop).LineStyle = wdLineStyleSingle

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

wrdTable.Borders(xlDiagonalUp).LineStyle = xlContinuous

同样我试过：

wrdTable.Borders(xlEdgeTop).LineStyle = xlContinuous

带来顶部边框，但我得到对角线。如何在我的单词表中应用边框（内边框和外边框）？我用的是office 2007。

score 5 · Accepted Answer

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

假设您wrdTable已正确设置为 msword 文档中的 table 对象，您有几个选项：

wrdTable.Borders.Enable = True

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

否则指南是

这是一个更详细的版本：

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

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

（注意，这个代码我是用手机输入的，所以未经测试）

score 2 · Accepted Answer

在“Microsoft Visual Basic”中选择菜单“Tools”->“References”并激活“Microsoft Word xx.x Object Library”。然后

wrdTable.Borders(wdBorderTop).LineStyle = wdLineStyleSingle

将工作。

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

2 回答 2