等待文档完全打开，然后再运行宏

Question

在运行宏之前，我可以让Word等待文档完全打开并填充所有字段吗？我已经尝试过使用Document_Open()，但是很遗憾，这还为时过早。

我正在尝试使用下面的宏取消所有字段的链接。这适用于已打开的文档。由于在Document_Open()

上使用时没有文档，因此出现错误

Sub SelectUnlink()
    ActiveDocument.Range(0, 0).Select
    Selection.WholeStory
    Selection.Range.Fields.Unlink
    Selection.End = Selection.Start
End Sub

Answer 1

在我看来，无论何时遇到此错误，都并非由您的Document_Open宏自动运行引起的，因为在打开打开的文档之前无法运行对SelectUnlink的调用。如果您没有手动打开Document_Open或SelectUnlink宏，则可能会发生这种情况。也就是说，在您的Document_Open宏中，您可以将对SelectUnlink的调用替换为：

ActiveDocument.Fields.Update
ActiveDocument.Fields.Unlink

Answer 2

只需进行错误处理。

Sub SelectUnlink()
    ON ERROR GOTO FINISH
    ActiveDocument.Range(0, 0).Select
    Selection.WholeStory
    Selection.Range.Fields.Unlink
    Selection.End = Selection.Start
    FINISH:

End Sub