| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3266124
建立时间:2005年6月6日 |
| |
|
 [delpih编程]vba解决 ：邮件合并时打开文件不提示“打开此文档将运行下列SQL命令”
软件技术
吕向阳 发表于 2011/5/15 10:59:22 |
| 当然要在vba中加入如下代码，并在工具引用中加入对windows script host object modal的引用。下为函数Sub 不提示sql() Dim 注册表主键 As String Dim 工程名称 As String Dim 注册表项 As String Dim 注册表键名 As Variant Dim 注册表键值 As Variant Dim arr As Variant Dim ii As Integer Dim WSH As WshShell Set WSH = CreateObject("WSCRIPT.SHELL") 注册表主键 = "HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Word\" 注册表项 = "Options" 注册表键名 = Array("SQLSecurityCheck") 注册表键值 = Array(0)WSH.RegWrite 注册表主键 & 注册表项 & "\" & 注册表键名(ii), 注册表键值(ii), "REG_DWORD" Set WSH = CreateObject("WSCRIPT.SHELL") 注册表主键 = "HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Word\" 注册表项 = "Options" 注册表键名 = Array("SQLSecurityCheck") 注册表键值 = Array("0000000")WSH.RegWrite 注册表主键 & 注册表项 & "\" & 注册表键名(ii), 注册表键值(ii), "REG_DWORD" Set WSH = CreateObject("WSCRIPT.SHELL") 注册表主键 = "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\" 注册表项 = "Options" 注册表键名 = Array("SQLSecurityCheck") 注册表键值 = Array("0000000")WSH.RegWrite 注册表主键 & 注册表项 & "\" & 注册表键名(ii), 注册表键值(ii), "REG_DWORD" Set WSH = CreateObject("WSCRIPT.SHELL") 注册表主键 = "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Word\" 注册表项 = "Options" 注册表键名 = Array("SQLSecurityCheck") 注册表键值 = Array("0000000")WSH.RegWrite 注册表主键 & 注册表项 & "\" & 注册表键名(ii), 注册表键值(ii), "REG_DWORD" Set WSH = CreateObject("WSCRIPT.SHELL") 注册表主键 = "HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Word\" 注册表项 = "Options" 注册表键名 = Array("SQLSecurityCheck") 注册表键值 = Array("0000000")WSH.RegWrite 注册表主键 & 注册表项 & "\" & 注册表键名(ii), 注册表键值(ii), "REG_DWORD"End Sub |
|
|