编程论坛 → VB6论坛

如何通过vb编程给word表格单元格设置底纹！谢谢！

wuyong308 发布于 2018-04-22 14:18， 3142 次点击

请教各位同学：如何通过vb编程给word表格单元格设置底纹！谢谢！
通过命令建了一个新文档，并且建立了一个表格，
但给表格单元格设置底纹颜色没有找到命令！
特来请教各位DX！谢谢！

5 回复

wuyong3082018-04-22 16:42

难道是遇到死问题了？！

风吹过b2018-04-22 21:27

录制宏代码，有内容吗？

wds12018-04-22 21:50

录得宏代码，供参考
With Selection.Tables(1)
    With .Shading
     .BackgroundPatternColor = wdColorBlue
    End With
End With

wuyong3082018-04-23 10:54

回复 4楼 wds1

谢谢！！！

ictest2018-04-23 15:24

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

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