如何根据条件屏蔽工具条上的自定义按钮？

zhqsong

我经常使用粘贴“无格式文本”，于是录制了宏，并做了个按钮。可是当剪贴板为空时，该按钮依然有效。请问，如何使该按钮根据剪贴板的情况自动屏蔽？

[此贴子已经被作者于2005-5-17 17:03:23编辑过]

守柔

以下是引用zhqsong在2005-5-17 16:57:00的发言： 我经常使用粘贴“无格式文本”，于是录制了宏，并做了个按钮。可是当剪贴板为空时，该按钮依然有效。请问，如何使该按钮根据剪贴板的情况自动屏蔽？

既然是自定义的，可以简单一些，尽管楼主的要求是正确的，但是，很遗憾的是，你的情况需要事件驱动，也就是在清空剪贴板时自动隐藏（Visible=false)或者不可用该命令（Enabled =false），在剪贴板非空时，自动恢复可用或者显示状态，从目前WORD的情况看，还没有那个事件能够直接捕捉到剪贴板的情况。

解决思路：

一，不处理，反正剪贴板中没有内容可以进行粘贴；

二，可以根据粘贴按钮的状态进行判断，但在第一次时，会出现可用情况，当按下该按钮时，其代码中设有粘贴按钮的状态亦为Enabled=false时，将该按钮设为Enabled=false；当复制时（需要使用修改WORD命令），激活该命令的.Enabled =true

三,使用类模块,每次光标移动时,判断粘贴按钮的状态,随时进行调整该命令的Enabled ,它将会导致程序运行很慢.Private Sub App_WindowSelectionChange(ByVal Sel As Selection)

综上所述,我觉得没有必要复杂化.

zhqsong

谢谢版主。既然不能捕捉剪贴板的状态，放弃了。

我也企图用第3中方法解决，但感觉开销过大实在没有必要。干脆不去管他，反正自己用。