求助，自定义特殊功能工具栏

lxw747

看到外籍专家word2003里有一个自定义的工具栏，上面是不同的颜色方块，

实际功能是给word表格填充不同的颜色；选中表格，点工具栏上的色块，表格就变为相应颜色。

不知道怎样制作，请高手帮忙！！

c81

几个按钮加上这种代码应该可以的

Sub Macro1()
    With Selection.Cells.Shading
        .BackgroundPatternColor = wdColorSeaGreen'可以换不同颜色值
    End With
End Sub

雨雪霏霏

欢迎lxw747兄来到家园！

谢谢C81兄的编码，小弟学习中！

守柔版主、如意版主的巨著《Word非常接触》第45、46页对这一类“工具栏”问题有精确论述，以下是小弟依书中所述方法操作的步骤，供lxw747兄参考：

①点“视图”菜单，再点“工具栏→表格和边框”，出现“表格和边框”浮动菜单。

②请lxw747兄看示意图 

lxw747

感谢c81

再没有选中的情况下点击自定义色块，会出现运行时错误5941，请问怎样解决；

另外颜色列表能否提供一个；谢谢

谢谢雨雪，尽管没理解我的问题

c81

"自定义色块"是千变成化的

不是标准颜色，所以列举不出来的，WordVBA也没有给它们一个一个地命名。

例如“1441557”，“11102001”都可以替换上述的“wdColorSeaGreen”标准绿。

做几个按钮，将这个宏联系在身上，改变一下图标试试。

说老实话，这些都没有多大的价值，因为按“雨雪霏霏”老弟的方法足够了。就好比系统某个命令有个快捷键了，自己还要给它另外定义一个快捷键，一个理儿呀！