Word 2007 VBA中ClosePrintPreview间歇性触发运行时错误4605

问题背景 #

批量处理含数千个域的大文档时，通过Doc.PrintPreview + Doc.ClosePrintPreview强制更新域，约20%概率触发运行时错误4605，提示“文档未处于打印预览模式”；小文档无此问题，且错误间歇性发作。

核心原因 #

这不是ClosePrintPreview的误判，而是**PrintPreview未完全执行完成**就被调用了Close操作。大文档加载打印预览需要完成域更新、页面渲染等耗时操作，而密集循环下VBA代码的执行速度快于Word UI线程的处理速度，导致文档还没进入预览状态，后续的ClosePrintPreview就已经执行，触发错误。

你提到的防护代码问题 #

你写的If Application.PrintPreview = True Then Doc.ClosePrintPreview不可靠：

• Application.PrintPreview是应用全局状态，不是针对单个文档Doc的，若其他文档处于预览状态会误判；
• 正确的判断应该用文档自身的PrintPreviewStatus属性，它专门返回当前文档是否处于打印预览模式。

修正后的防护代码：

If Doc.PrintPreviewStatus = True Then
    Doc.ClosePrintPreview
End If

更稳定的解决方案 #

单纯加判断仍可能因异步问题触发错误，建议结合等待机制或直接更新域：

方案1：添加等待确保预览完成

调用PrintPreview后，循环等待文档进入预览状态，设置超时避免死循环：

Doc.PrintPreview
' 等待预览初始化，超时5秒（可根据文档大小调整）
Dim startTime As Double
startTime = Timer
Do While Not Doc.PrintPreviewStatus And Timer - startTime < 5
    DoEvents ' 释放CPU，让Word完成预览加载
Loop
' 确认状态后关闭预览
If Doc.PrintPreviewStatus Then
    Doc.ClosePrintPreview
End If

方案2：直接更新域（更高效）

打印预览更新域的本质是触发了域更新操作，直接调用域更新方法更高效，还能避免UI异步问题：

' 更新文档所有普通域
Doc.Fields.Update
' 处理嵌套域或不同故事范围的域（如页眉、页脚）
Dim storyRange As Range
For Each storyRange In Doc.StoryRanges
    storyRange.Fields.Update
    Do While Not storyRange.NextStoryRange Is Nothing
        Set storyRange = storyRange.NextStoryRange
        storyRange.Fields.Update
    Loop
Next storyRange

这个方法跳过了打印预览的UI渲染，速度更快，适合批量处理大文档。

类似问题反馈 #

不少Word VBA开发者在处理大文档批量操作时遇到过该问题，主要集中在Word 2007-2013版本，根源都是UI操作的异步性——VBA同步执行，而PrintPreview是异步UI操作，代码执行与UI渲染不同步导致冲突。

内容的提问来源于stack exchange，提问作者Regus Pregus