WORD中如何使打印按钮无效

coolbi009

请问,在WORD中如何使打印按钮无效,在EXCEL中很好解决,可是在WORD中应该怎么做呢?请高手赐教。

konggs

新朋友，欢迎！欢迎！

学守兄一招，做个VBA，放在normal的thisdocument下，

加入Sub FilePrint ()

‘把此按钮定义为一个空的，应该也可以

end sub

守兄，你说是吗？

aichong

删除即可

henterwu

还要屏蔽快捷键，即定义个空的Ctrl + P的宏。或只加入提示信息

[此贴子已经被作者于2005-6-2 21:13:14编辑过]

coolbi009

各位兄台，谢了，没想到回复得这么快。

特别是Konggs兄，讲解很详细。

可能我没有说明白，我想要的效果并不是彻底屏蔽打印功能，而是在打开WORD后打印按钮无效，然后再添加一个自定义按钮，点击该按钮后，系统的打印按钮就又生效了，不知道可不可以实现，我在EXCEL中可以实现的。

Konggs兄，能不能再帮帮我啊！

konggs

我认为你可以这样做，

点工具/自定义，把打印按钮的图标改了或删了或移一个地方（别人不就不知道了吗？）

方法是：放在图标点右键，有相关的设置！试试吧，会小有收获的！

你不会是每次都新建一个文件，然后来自定义按钮。指向一个宏吧？

coolbi009

谢KONGGS兄了，但不是我要的效果，我想用代码实现，做好后可以做成模板的。

我对WORD的VBA不熟悉，对EXCEL的还可以，在EXCEL中已经实现了。

守柔

请参考:

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-6-3 4:56:49 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Sub Exapmle() On Error Resume Next Application.CustomizationContext = ActiveDocument With Application.CommandBars '看指定条件,文档变量1的数值 If ThisDocument.Variables("Test").Value <> 1 Then '禁用常用工具栏的打印命令 .Item("Standard").Controls("打印(&P)").Enabled = False '禁用文件打印命令 .Item("File").Controls("打印(&P)...").Enabled = False '禁用快捷键(CTRL+P)命令 FindKey(KeyCode:=BuildKeyCode(wdKeyControl, wdKeyP)).Disable Else '恢复打印命令 ' .Item("Standard").Controls("打印(&P)").Reset ' .Item("File").Controls("打印(&P)...").Reset .Item("Standard").Controls("打印(&P)").Enabled = True '禁用文件打印命令 .Item("File").Controls("打印(&P)...").Enabled = True '重新指定快捷键命令 FindKey(KeyCode:=BuildKeyCode(wdKeyControl, wdKeyP)).Rebind _ KeyCategory:=wdKeyCategoryCommand, Command:="FilePrint" End If End With End Sub '---------------------- Sub Sample() '定义一个文档变量并指定其值 ThisDocument.Variables.Add Name:="Test", Value:=1 End Sub '---------------------- Sub Easy() ThisDocument.Variables("Test").Value = 1 End Sub '----------------------相关链接:http://club.excelhome.net/dispbb ... id=98653&skin=0

如果你要分开指定禁用和恢复,我不写了,请楼主拆分一下即可.

coolbi009

守兄，谢了，基本思想我已经清楚了，正是我想要的效果。只是感觉WORD里边的VBA和EXCEL中的有很大的不同啊，守兄能够提供一点资料，小弟研究一下！

守柔

以下是引用coolbi009在2005-6-3 8:30:00的发言：

守兄，谢了，基本思想我已经清楚了，正是我想要的效果。只是感觉WORD里边的VBA和EXCEL中的有很大的不同啊，守兄能够提供一点资料，小弟研究一下！

请COOLBI009兄下载一下置顶贴子《守柔WORD编程代码集》，内有大量实战例子。