打开word文档时总是弹出一个提示框“此应用程序要初始化可能不安全的ActiveX控件”，怎么去掉啊？

[alieneagle]

代码如下：
Dim wordobj As New Word.Application
wordobj.Documents.Open (oaoriginpath)

就在打开时弹出的提示框，怎么去掉？

[Kevin2328]

你直接用word打开也有这个提示吗？
如有，请将工具->巨集->安全性中将安全性层级设置为中或低。

[liguicd]

运行

Sub RegWriteProc()
    Set WshShell = CreateObject("Wscript.Shell")
    WshShell.RegWrite "HKCU\Software\Microsoft\VBA\Security\LoadControlsInForms", 1, "REG_DWORD"
    WshShell.RegWrite "HKCU\Software\Microsoft\Office\Common\Security\UFIControls", 1, "REG_DWORD"
    Set WshShell = Nothing
    Application.Quit
End Sub