把选择性粘贴放入右键快捷菜单

tianyabiao

谢谢！实用！

yiyazi

谢谢！正在找的

chenhuafu

以下是引用[I]konggs[/I]在2005-7-24 20:29:17的发言：[BR]

老大不在，把老大的代码拿出来，顶一下！

Private Sub Document_Close() On Error Resume Next Application.CommandBars("Text").Controls("Test").Delete '恢复原有菜单 End Sub '---------------------- Private Sub Document_Open() Dim Half As Byte On Error Resume Next Dim NewButton As CommandBarButton Application.CommandBars("Text").Controls("Test").Delete '预防性删除 Half = Int(Application.CommandBars("Text").Controls.Count / 2) '中间位置 Set NewButton = Application.CommandBars("Text").Controls.Add(Type:=msoControlButton, Before:=Half) With NewButton .Caption = "选择性贴" '命令名称 .FaceId = 100 '命令的FaceId .Visible = True '可见 .OnAction = "选择性粘" '指定响应过程名 End With End Sub '---------------------- Sub 选择性粘() Selection.PasteAndFormat Type:=wdFormatPlainText End Sub '---------------------- Sub ComReset() '重新设置右键菜单,彻底恢复默认设置 Application.CommandBars("Text").Reset End Sub

' 复制到你的文档中，试试

你的方法也不错，但楼主的方法更简单！

c81

Word的不仅功能强大，而且可以个性化地设置用户自己的界面，，可以给出一个办公提高效率的方案，满足各行各业办公的需求，这也是Word（ms office）打遍天下无敌手的原因之一。 佩服一个天才将众多天才的智慧集中起来打造出这一利器，尽管它还有待进一步完善的地方。 附，做流程图时，我的界面设置成这样（不是自定义右键菜单）

shmily6521

正好用上了，非常感谢！

梅仔

原来是这样呀！学会了！谢谢！

liujy

谢谢分享!我已学会使用了!