求救：如何在WORD中编写宏设置表格的边框和底纹样式和颜色

[baoxue10181018]

在WORD中有很多表格，手工选择一个表格，通过手工打开“格式”-“边框和底纹”，选择”底纹“中“填充颜色”和“应用于表格”，即可设置表格的底纹为某种颜色，这个如何通过编程实现，我录制了一个宏，但就是没有设置底纹一页中”应用于表格“这个属性的代码，请高手指点，谢谢

[宋翔]

下面的代码将文档中的所有表格设置底纹为15%灰度，楼主可根据需要修改颜色常量。

Sub 设置底纹()
    Dim oTbl As Table
    For Each oTbl In ActiveDocument.Tables
        oTbl.Shading.BackgroundPatternColor = wdColorGray15
    Next oTbl
End Sub

[laoyebin]

[Quote=引用 1 楼 pfsx79 的回复:]

下面的代码将文档中的所有表格设置底纹为15%灰度，楼主可根据需要修改颜色常量。
VB code
Sub 设置底纹()
Dim oTbl As Table
For Each oTbl In ActiveDocument.Tables
oTbl.Shading.BackgroundPatternColor = wdColorGray15
Next oTbl……
[/Quote]

顶，宋兄Office骨灰级的，感觉你好像什么都知道，呵呵

[宋翔]

[Quote=引用 2 楼 laoyebin 的回复:]

引用 1 楼 pfsx79 的回复:

下面的代码将文档中的所有表格设置底纹为15%灰度，楼主可根据需要修改颜色常量。
VB code
Sub 设置底纹()
Dim oTbl As Table
For Each oTbl In ActiveDocument.Tables
oTbl.Shading.BackgroundPatternColor = wdColorGray15
Nex……
[/Quote]
呵呵，lao兄承让了，还有很多要学习，有机会还要向lao兄请教VSTO放面的内容。

[jlcczc]

学习中，谢谢了!!!