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

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

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

VB code

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

------解决方案--------------------

探讨

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