Excel VBA，用word打开PDF时，打开后word的画面的左侧显示是否还原上次非正常关闭的版本的窗口，怎么用VBA代码自动关闭左侧的这个窗口

Question

Excel VBA，用word打开PDF时，打开后word的画面的左侧显示是否还原上次非正常关闭的版本的窗口，怎么用VBA代码自动关闭左侧的这个窗口

Answer 1

下午好🌅🌅🌅
本答案参考通义千问

在使用 Excel VBA 调用 Word 打开 PDF 文件时，Word 有时会弹出一个“恢复未保存的文档”窗口，这个窗口通常出现在左侧，提示用户是否要还原上次非正常关闭的版本。这可能会干扰自动化流程，因此需要通过 VBA 代码自动关闭该窗口。

---

✅ 问题分析

• 触发场景：当 Word 在非正常关闭后（如程序崩溃、强制退出等），再次打开时会显示“恢复未保存的文档”窗口。
• 影响：在自动化操作中，这个窗口会阻塞后续代码执行，导致程序卡住。
• 目标：通过 VBA 代码自动关闭这个窗口，避免人工干预。

---

🔧 解决方案

1. 使用 Application.DisplayAlerts 属性

可以通过设置 Word 的 DisplayAlerts 属性为 False，来禁用所有警告和确认窗口，包括“恢复未保存的文档”窗口。

' 设置 Word 应用程序对象
Dim wordApp As Object
Set wordApp = CreateObject("Word.Application")

' 禁用所有警告
wordApp.DisplayAlerts = False

' 打开 PDF 文件
wordApp.Documents.Open "C:\YourFilePath\YourFile.pdf"

' 恢复默认设置（可选）
wordApp.DisplayAlerts = True

注意：此方法会完全禁用所有警告和提示，可能会影响其他重要提示信息，需谨慎使用。

---

2. 使用 API 或 Win32 调用关闭窗口（高级）

如果你不想禁用所有警告，而是仅关闭“恢复未保存的文档”窗口，可以使用 Windows API 来查找并关闭该窗口。

代码示例：

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long

Const WM_CLOSE As Long = &H10

Sub CloseRecoverWindow()
    Dim hWnd As Long
    ' 查找窗口标题包含 "恢复未保存的文档"
    hWnd = FindWindow(vbNullString, "恢复未保存的文档")
    
    If hWnd <> 0 Then
        ' 发送关闭消息
        PostMessage hWnd, WM_CLOSE, 0, 0
    End If
End Sub

说明：

• 该方法依赖于系统窗口标题，如果 Word 的语言不同或窗口标题变化，可能无法正确识别。
• 需要确保 Word 已启动，并且窗口已加载。

---

3. 结合使用 Application.DisplayAlerts 和 API（推荐）

为了更安全地处理，可以先尝试使用 DisplayAlerts=False，若仍无法解决，再调用 API 关闭特定窗口。

Sub OpenPDFAndCloseRecoverWindow()
    Dim wordApp As Object
    Set wordApp = CreateObject("Word.Application")
    
    ' 禁用警告
    wordApp.DisplayAlerts = False
    
    ' 打开 PDF
    wordApp.Documents.Open "C:\YourFilePath\YourFile.pdf"
    
    ' 延迟等待窗口出现（根据需要调整）
    Application.Wait Now + TimeValue("0:00:05")
    
    ' 尝试关闭恢复窗口
    Call CloseRecoverWindow
    
    ' 恢复默认设置
    wordApp.DisplayAlerts = True
    
    ' 释放对象
    Set wordApp = Nothing
End Sub

Sub CloseRecoverWindow()
    Dim hWnd As Long
    hWnd = FindWindow(vbNullString, "恢复未保存的文档")
    
    If hWnd <> 0 Then
        PostMessage hWnd, WM_CLOSE, 0, 0
    End If
End Sub

---

📌 重点总结

• 推荐方案：使用 wordApp.DisplayAlerts = False 禁用警告，是最简单有效的方法。
• 进阶方案：使用 API FindWindow + PostMessage 来精准关闭“恢复未保存的文档”窗口。
• 注意事项：
  • 如果 Word 是以管理员权限运行的，API 可能无法访问。
  • 确保路径和文件名正确，避免引发错误。
  • 若 Word 未安装或未注册，CreateObject("Word.Application") 会失败。

---

📦 完整代码示例（推荐）

Sub OpenPDFAndHandleRecover()
    Dim wordApp As Object
    Set wordApp = CreateObject("Word.Application")
    
    ' 禁用所有警告
    wordApp.DisplayAlerts = False
    
    ' 打开 PDF 文件
    wordApp.Documents.Open "C:\YourFilePath\YourFile.pdf"
    
    ' 延迟等待窗口加载
    Application.Wait Now + TimeValue("0:00:05")
    
    ' 尝试关闭恢复窗口
    Call CloseRecoverWindow
    
    ' 恢复默认设置
    wordApp.DisplayAlerts = True
    
    ' 释放对象
    Set wordApp = Nothing
End Sub

Sub CloseRecoverWindow()
    Dim hWnd As Long
    hWnd = FindWindow(vbNullString, "恢复未保存的文档")
    
    If hWnd <> 0 Then
        PostMessage hWnd, &H10, 0, 0
    End If
End Sub

' API 函数声明
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long

---

如有更多关于 Word VBA 或 Excel 自动化的问题，欢迎继续提问！