word怎么能用宏指定选中单元格的底纹？

lhgq3

单位有些文档的表格每隔几行需要不同的底色，没有规律，只能依靠人力，但是每次都要选中单元格，指定底纹，非常麻烦，录制的宏也无效，百度有个高手给出如下代码，可以指定所有表格底色，但是本人小白，无法改成当前选中的单元格，麻烦各位高手指教，非常感谢。

Sub 设置底纹()

    Dim oTbl As Table

    For Each oTbl In ActiveDocument.Tables

        oTbl.Shading.BackgroundPatternColor = wdColorGray15

    Next oTbl

End Sub

cuanju

Sub d()
    Rem 对选定单元格设置底纹
    For Each oCell In Selection.Cells
        oCell.Shading.BackgroundPatternColor = wdColorGray15
    Next
End Sub

ming0018

定义一个样式，把这个样式应用到所有表格上就行了，可手动，也可以用vba

lhgq3

cuanju 发表于 2020-9-23 11:07
Sub d()
    Rem 对选定单元格设置底纹
    For Each oCell In Selection.Cells

收到，已使用，非常感谢