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

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

4 个解决方案

#1


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

#2


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


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

#3


引用 2 楼 laoyebin 的回复:
引用 1 楼 pfsx79 的回复:

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

呵呵,lao兄承让了,还有很多要学习,有机会还要向lao兄请教VSTO放面的内容。

#4


学习中,谢谢了!!!

#1


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

#2


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


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

#3


引用 2 楼 laoyebin 的回复:
引用 1 楼 pfsx79 的回复:

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

呵呵,lao兄承让了,还有很多要学习,有机会还要向lao兄请教VSTO放面的内容。

#4


学习中,谢谢了!!!