VBA代码在文档之后停止。打开

执行“stops HERE”注释前的语句后，此单词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”会一直正常运行到最后。当直接从“开发人员>宏”运行时，它会停止。
•“设置对象=无”并没有解决问题
•“结束”语句没有解决问题。
•请将“TestDoc.docx”直接放在与测试字宏相同的位置。它可以是空的。
•环境为Office 365和Windows 10 64位

---

如果有人遇到过同样的问题或知道如何解决问题，请告诉我

根据本文，这似乎是Word版本1807（Build 10325.20082）的一个bug。我们可能需要降低Word的级别以避免此问题

解决方法： 据我所测试的，当从自己的“Document\u Open”运行时，代码运行正常，没有停止

进度：

---

我在2018年8月20日注意到，不知何故，问题现在没有重现。自从我遇到这个问题后，Word的版本一直没有更改，版本是1807（Build 10325.20082）

我在Word build 1807中遇到了这个错误。一位IT专业人士帮助我降级到1806，并关闭了自动升级。现在，这已经恢复了合理的行为，但我必须停止自动升级，直到微软发布了一个没有这种惊人缺陷的版本。

我从微软论坛的MVP那里得到报告，他们对word启动期间下载的配置文件进行了服务器端更改。这一更改使其成为可能，从而导致（my documents.add）问题的（新的）有问题代码被禁用

我刚刚用一个有问题的客户机测试了它，我们将office版本降级到以前的版本，现在我能说的问题似乎已经解决了

如果您再次更新office版本，它也可以与您一起工作。如果问题第一次仍然出现，您可能需要关闭word，请稍等片刻，然后重新开始

可能现在文档也已修复。此（服务器端）更改的开放问题

更多信息请参见原始讨论

---

是否在运行之间再次关闭文档？是。在再次运行宏之前，我关闭了目标Word文档。Office的版本是什么？是否已完全更新？谢谢提供更多信息。请注意，要在评论中“回答”某人，您需要“ping”他们：@imsorrydaveimafradicandothat，以便他们知道您已经做出了反应。FWIW另一个人报告了相同的情况，因此我们可能正在查看Office更新的问题…FWIW我无法重新编程。运行Office 365版本1808 Build 10711.20012您的Office版本是32位还是64位？我怀疑这个问题可能只发生在64位版本的Office中。@Rich Michaels我的是64位。我想知道怎么会出现并发布这样一个简单而严重的错误..我正在使用最新版本再次运行，在我的系统上，Document.Add和Document.Open场景的问题似乎都已解决。MS仍然有点谨慎地说它是完全修复的，它比最初想象的要复杂一些。Rich是否使用服务器端的更改再次应用修复？像以前那样？如果是这样的话，这是什么时候应用的，因为上周我们有几个新客户遇到了这个问题（我想是周四，根据我的同事们的说法）