GetObject(,“Word.Application”)Office 365

时间:2017-03-28 06:42:48

标签: vba

安装Office 365后我的应用程序代码 在vba不再工作

StringBuilder queryStringBuilder = new StringBuilder("SELECT o FROM entity AS o WHERE 1 = 1 ");

有人有任何想法

它不会使用上面的代码重新编写Office 365 但如果我安装Office 2016或2013,它就可以运行。

2 个答案:

答案 0 :(得分:1)

已解决!

  

在注册表中搜索正确的应用程序名称。在Windows 7上你   可以找到它   " HKEY_LOCAL_MACHINE \ SOFTWARE \ Wow6432Node \ RegisteredApplicati项&#34 ;.   然后替换"中的新名称。设置wrd = GetObject(,   " Word.Application&#34)

感谢@pavanc

它被称为Word.Application.16而不是Word.Application

答案 1 :(得分:0)

我不知道你这只是一个降价错误,但你的代码需要分开一行:

Set wrd = GetObject(, "Word.Application") 
wrd.Visible = True
wrd.Documents.Open "C:\My Documents\Temp.doc"  
Set wrd = Nothing

如果这没有帮助,也许你可以更精确地了解你得到的错误?