不打开word文档

Question

我试图用Excel打开一个Word文档，使用VBA。下面是代码：

Sub Openuserguiddoc() 
    'Open an existing Word Document from Excel 
    Dim objWord As Object 
    Set objWord = CreateObject("User Guide to VR Referrals.docx") 
    objWord.Visible = True 
    Documents.Open "N:\MHBS\Education and Employment\VR Reports\VRU REFERALS\Past Years Referrals\User Guide to VR Referrals.docx" 
End Sub 

它Set objWord = CreateObject("User Guide to VR Referrals.docx")挂断。 但是对于我的生活，我无法弄清楚什么是错的。有任何想法吗？

Answer 1

OK，你也可以尝试它没有迟到的约束，因为我们似乎在这里遇到麻烦。

在VBA编辑器中，转到工具然后引用：

，然后标出的Microsoft Word列表（版本号可能会有所不同）

然后用这个代码：

Sub Openuserguiddoc() 
    'Open an existing Word Document from Excel 
    Dim objWord As Word.Application 
    Set objWord = New Word.Application 
    objWord.Visible = True 
    objWord.Documents.Open "N:\MHBS\Education and Employment\VR Reports\VRU REFERALS\Past Years Referrals\User Guide to VR Referrals.docx" 
End Sub 

让我们知道你如何继续！

Answer 2

Dim objWord As Object 
Dim objDoc As Object 

Set objWord = CreateObject(“Word.Application”) 
Set obj­Doc = objWord.Documents.Open "N:\MHBS\Education and Employment\VR Reports\VRU REFERALS\Past Years Referrals\User Guide to VR Referrals.docx" 

Answer 3

CreateObject("")用于创建命名对象，如Word.Application，不用于打开文件。尝试CreateObject("Word.Application")

你也可能要改变Documents.Open到objWord.Documents.Open，因为如果你要创建一个拥有创建对象的对象，它通常是因为你还没有做对它的引用，使Excel中完全不认识什么Document对象或的确，但是objWord呢。

此外，当您打开此文档时，如果您想使用VBA对其进行操作，您需要set另一个对象链接到它，并且您通过在文档的前面添加set声明来执行此操作。打开语句，在大致相同的方式，你就与CreateObject

Answer 4

这些少量的修改应当解决这个问题：

1提供的文件的完整路径，如：

Set objWord = CreateObject("N:\MHBS\Education and Employment\VR Reports\VRU REFERALS\Past Years Referrals\User Guide to VR Referrals.docx") 

但是然后您的对象是Word.Document类型，而不是Word.Application。

2至使其可见，您需要：

objWord.Application.Visible = True 

3-以后你在Word中打开另一个文件，所以用这个词Apllication对象

Set newDoc = objWord.Aplication.Documents.Open("N:\MHBS\Education and Employment\VR Reports\VRU REFERALS\Past Years Referrals\User Guide to VR Referrals.docx")