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

求救：如何在WORD中编写宏设置表格的边框和底纹样式和颜色
在WORD中有很多表格，手工选择一个表格，通过手工打开“格式”-“边框和底纹”，选择”底纹“中“填充颜色”和“应用于表格”，即可设置表格的底纹为某种颜色，这个如何通过编程实现，我录制了一个宏，但就是没有设置底纹一页中”应用于表格“这个属性的代码，请高手指点，谢谢
------解决方案--------------------------------------------------------
下面的代码将文档中的所有表格设置底纹为15%灰度，楼主可根据需要修改颜色常量。

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……

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