如何捕获文件锁定时wdDialogFileSaveAs的静默失败？

你的代码逻辑本身没问题，但wdDialogFileSaveAs对话框有个局限性：当目标文件被锁定（比如已在其他程序打开）时，它不会抛出任何错误提示，只是悄悄终止保存流程，这确实很棘手。下面给你两种可行的解决方案：

方案一：提前检查文件是否可写入 #

在执行保存操作前，先检查用户选择的文件是否处于锁定状态，提前阻止无效操作并给出明确提示。我们可以借助FileSystemObject来实现这一点：

Private Sub Button_Dokument_mit_Grafik_als_PDF_speichern_Click()
    Dim Grafik As Boolean
    Dim savePath As Variant
    Dim fso As Object
    
    ' 保存原图形打印设置
    Grafik = Options.PrintDrawingObjects
    Options.PrintDrawingObjects = True
    
    ' 调用保存对话框获取用户选择的路径
    With Dialogs(wdDialogFileSaveAs)
        .Format = wdFormatPDF
        If .Show = -1 Then ' 用户点击了保存按钮
            savePath = .Name
            
            ' 初始化文件系统对象
            Set fso = CreateObject("Scripting.FileSystemObject")
            
            On Error Resume Next
            ' 尝试打开文件，判断是否被锁定
            fso.OpenTextFile(savePath, 1, False, 0).Close
            If Err.Number <> 0 Then
                MsgBox "目标文件已被其他程序锁定，无法覆盖！请先关闭该文件。", vbExclamation
                Err.Clear
            Else
                ' 文件可写入，执行保存
                ActiveDocument.SaveAs2 Filename:=savePath, FileFormat:=wdFormatPDF
            End If
            On Error GoTo 0
        End If
    End With
    
    ' 恢复原图形打印设置
    Options.PrintDrawingObjects = Grafik
    Set fso = Nothing
End Sub

方案二：改用SaveAs2方法并捕获运行时错误 #

直接跳过wdDialogFileSaveAs的静默处理，先让用户选择保存路径，再用SaveAs2方法执行保存，同时通过VBA的错误捕获机制处理所有可能的保存异常（不止文件锁定，还包括权限不足、磁盘空间不足等情况）：

Private Sub Button_Dokument_mit_Grafik_als_PDF_speichern_Click()
    Dim Grafik As Boolean
    Dim savePath As Variant
    
    ' 保存原图形打印设置
    Grafik = Options.PrintDrawingObjects
    Options.PrintDrawingObjects = True
    
    ' 让用户选择保存路径和文件名
    savePath = Application.GetSaveAsFilename( _
        FileFilter:="PDF 文件 (*.pdf), *.pdf", _
        Title:="将文档另存为PDF")
    
    ' 用户未取消选择操作
    If savePath <> False Then
        On Error Resume Next
        ' 执行PDF保存
        ActiveDocument.SaveAs2 Filename:=savePath, FileFormat:=wdFormatPDF
        
        ' 检查并处理错误
        If Err.Number <> 0 Then
            Select Case Err.Number
                Case 70 ' 权限被拒绝（文件锁定场景）
                    MsgBox "无法保存文件：目标PDF已被其他程序打开，请先关闭它！", vbCritical
                Case Else
                    MsgBox "保存失败：" & Err.Description, vbCritical
            End Select
            Err.Clear
        Else
            MsgBox "PDF文件已成功保存！", vbInformation
        End If
        On Error GoTo 0
    End If
    
    ' 恢复原图形打印设置
    Options.PrintDrawingObjects = Grafik
End Sub

方案对比 #

• 方案一的优势是在保存前就完成检查，避免触发保存错误；
• 方案二更直接，能覆盖更多异常场景，适合需要全面错误处理的场景。

两种方案都保留了你原代码中“保留图形打印设置”的逻辑，确保生成的PDF包含文档中的所有图形元素。

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