VBA中让用户选择PDF路径时触发运行时错误6269求助

运行时错误6269通常和文件保存格式未明确指定、路径处理异常有关，结合你的代码，核心问题及修复方案如下：

问题根源 #

1. SaveAs2未指定文件格式：从PDF打开的文档默认格式并非docx，必须明确告知Word要保存的文件类型，否则无法正常执行保存操作。
2. 未处理用户取消选择的情况：GetOpenFilename在用户点击取消时会返回布尔值False，而非字符串路径，后续代码会因类型不匹配触发异常。
3. 未限制文件选择范围：默认允许选择所有文件，容易误选非PDF文件导致后续打开失败。

修正后的代码 #

Sub PDFToWord1()
    Application.ScreenUpdating = False
    Application.DisplayStatusBar = True

    Dim wa As New Word.Application
    Dim doc As Word.Document
    Dim pdfPath As Variant ' 用Variant接收返回值，兼容取消选择的布尔值
    Dim savePath As String

    wa.Visible = False

    MsgBox "Select the pdf you wish to convert"
    ' 仅显示PDF文件，过滤其他格式
    pdfPath = Application.GetOpenFilename("PDF Files (*.pdf), *.pdf")

    ' 处理用户取消选择的场景
    If pdfPath = False Then
        MsgBox "No file selected"
        wa.Quit
        Set wa = Nothing
        Application.ScreenUpdating = True
        Exit Sub
    End If

    Set doc = wa.Documents.Open(pdfPath)
    savePath = Replace(pdfPath, ".pdf", ".docx")
    
    ' 明确指定保存为docx格式，这是解决错误6269的核心
    doc.SaveAs2 Filename:=savePath, FileFormat:=wdFormatXMLDocument

    MsgBox "Conversion completed! Saved to: " & savePath
    doc.Close True
    wa.Quit

    Set doc = Nothing
    Set wa = Nothing
    Application.ScreenUpdating = True
End Sub

关键修改说明 #

• 类型适配：将pdfPath改为Variant类型，兼容用户取消选择时返回的布尔值，避免类型不匹配错误。
• 文件过滤：给GetOpenFilename添加PDF格式过滤，减少误操作概率。
• 格式指定：SaveAs2必须添加FileFormat:=wdFormatXMLDocument，明确告知Word保存为docx格式。若项目未引用Word对象库，可直接用常量值16替代该参数。

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