设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

如何取消工具栏中"键入帮助"的文本框

1970-1-1 08:00| 发布者: tmtony| 查看: 1970| 评论: 0

一. 我常用的一个最简单的办法,我常用它: 在工具栏上按右键 ,显示自定义工具栏的对话框,然后在键入帮助这个方框的地方按右键,会有 "显示提问框" 的检查框, 取消之就可以了.

二.使用函数
Function SetTypeAQuestionForHelpBox()
'本函数调用 WSH 来修改注册表达到去掉 OFFICE 组件右上角提问框的目的
    '请先到 菜单 -> 工具 -> 引用 中去引用如下类库:
    'Windows Script Host Object Model
    On Error Resume Next   
    Dim a As New WshShell
    '如果采用后引用方式,也可以写如下代码:
    'Set a = CreateObject("Wscript.Shell")
   
    '显示提问框,键入需要帮助的问题 这个框的设置选项是在注册表中的一下键位
    'HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Common\ToolBars\Settings\Microsoft Office Access AWDropdownHidden
    '先显示键的值。注意:如果你从来没有手动设置过“显示提问框”这个选项就没有以下键值。
    '因此以下这行会出错。前面已经使用过 On Error Resume Next 可以忽略该错误。
    Debug.Print a.RegRead("HKCU\Software\Microsoft\Office\11.0\Common\ToolBars\Settings\Microsoft Office Access AWDropdownHidden")
    '再修改它(或者建立该键,并赋值)
    a.RegWrite "HKCU\Software\Microsoft\Office\11.0\Common\ToolBars\Settings\Microsoft Office Access AWDropdownHidden", 1, "REG_DWORD"
End Function

 

最新评论

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-3-29 20:56 , Processed in 0.082722 second(s), 16 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

返回顶部