在执行“ STOPS HERE”注释之前的语句之后，此Word VBA代码停止。
Public Sub Test_Main()
' Open the Word file
Dim sourceDocPath As String
sourceDocPath = ThisDocument.Path & "\TestDoc.docx"
Dim sourceDoc As Document
Set sourceDoc = Documents.Open(sourceDocPath, ReadOnly:=True)
' !!!! STOPS HERE !!!!
MsgBox "GOOOOOOOOOOOOOOOOOOOOOAAAAAAAAAAAALLLL!!!"
Set sourceDoc = Nothing
End
End Sub
•指定的Word文件由停止点之前的语句打开。
•没有错误消息。打开文件后它就停止了。
•从Word宏的自己的“ Document_Open”运行时，“ Test_Main”可以正常运行到最后。直接从“开发人员>宏”运行时，它将停止。
•“设置对象=无”不能解决问题。
•“ End”语句不能解决问题。
•请直接将“ TestDoc.docx”与测试Word宏放在相同的位置。可以为空。
•环境是Office 365和Windows 10 64位。
如果有人遇到过类似的问题或知道如何解决该问题，请告诉我！
答案 0 :(得分：2)
根据本文，这似乎是Word版本1807（内部版本10325.20082）的错误。我们可能需要降级Word以避免此问题。
解决方法： 据我测试，从自己的“ Document_Open”运行时，代码可以正常运行而不会停止。
进度： 我在2018/08/20注意到，该问题现在无法重现。自出现此问题以来，我的Word版本没有更改，即版本1807（内部版本10325.20082）。
答案 1 :(得分：1)
我在使用Word build 1807时遇到了这个错误。一位IT专业人员帮助我降级到build 1806，并关闭了自动升级功能。现在，它已经恢复了明智的行为，但是在Microsoft发布的版本中没有此严重错误之前，我不得不关闭“自动升级”功能。
答案 2 :(得分：0)
我从微软论坛上的MVP那里得到了报告，他们在服务器端更改了Word启动过程中Word下载的配置文件。所做的更改使得禁用了导致（我的documents.add）问题的（新）有问题的代码。
我刚刚与有问题的客户端进行了测试，我们是否将Office版本降级为以前的版本，现在我可以说的问题似乎已经解决。
可能是如果您再次更新Office版本，它也可以使用。如果问题仍然是第一次出现，则可能需要关闭单词稍等片刻然后重新开始。
也许它现在也已解决了document.open更改（服务器端）的问题。