GetObject(, "Word.Application") Office 365答案

【问题标题】：GetObject(, "Word.Application") Office 365GetObject(, "Word.Application") Office 365
【发布时间】：2017-08-21 02:29:16
【问题描述】：

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

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

有人有什么想法吗

它不会用上面的代码重新定义 Office 365 但如果我安装 Office 2016 或 2013 就可以了。

【问题讨论】：

在注册表中搜索正确的应用程序名称。在 Windows 7 上，您可以在“HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\RegisteredApplications”中找到它。然后替换“Set wrd = GetObject(, "Word.Application") ”中的新名称。然后它可能会工作

【解决方案1】：

解决了！

在注册表中搜索正确的应用程序名称。在 Windows 7 上，您可以在 “HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\RegisteredApplicati‌ons”。然后在“Set wrd = GetObject(, "Word.Application")

感谢@pavanc

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

【讨论】：

【解决方案2】：

我不知道这是否只是您的降价错误，但是您的代码需要分隔行：

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

如果这没有帮助，也许您可以更准确地了解您遇到的错误？

【讨论】：