从Excel VBA设置word表格边框

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

wrdTable.Borders(wdBorderTop).LineStyle = wdLineStyleSingle

但我在尝试时出错（请求的集合成员不存在）。但是，我可以使用以下代码创建内部边界：

wrdTable.Borders(xlDiagonalUp).LineStyle = xlContinuous

同样，我尝试：

wrdTable.Borders(xlEdgeTop).LineStyle = xlContinuous

---

带顶部边框，但我有对角线。如何在word表格中应用边框（内边框和外边框）？我正在使用office 2007。

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

假设您的

wrdTable

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

wrdTable.Borders.Enable = True

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

否则，指导原则是

• 首先设置.LineStyle
• 仅当.LineStyle不是wdLineStyleNone时
  • 设置.LineWidth
  • 设置颜色

以下是更详细的版本：

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

有关语法的其他参考信息，请参见本页：

---

（注意，我在手机上输入了此代码，因此未经测试）

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

假设您的

wrdTable

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

wrdTable.Borders.Enable = True

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

否则，指导原则是

• 首先设置.LineStyle
• 仅当.LineStyle不是wdLineStyleNone时
  • 设置.LineWidth
  • 设置颜色

以下是更详细的版本：

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

有关语法的其他参考信息，请参见本页：

（注意，我从手机中键入了此代码，因此未经测试）

在“Microsoft Visual Basic”菜单中选择“工具”->“参考”，然后激活“Microsoft Word xx.x对象库”。 然后

会有用的

我还搜索了几个小时相同的函数。

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

会有用的

---

我还花了几个小时搜索同一个函数。

如果IDE中有良好的intellisense，这些琐事就不会太麻烦了。对所有对象和属性的列表有什么建议吗？出于兴趣，你是说wdColorDarkRed而不是wdDarkRed？如果IDE中有良好的intellisense，这些琐事就不会太麻烦了。对所有对象和属性的列表有什么建议吗？出于兴趣，你指的是wdColorDarkRed而不是wdDarkRed吗？