使用Excel VBA将Word DOCX另存为TXT时遇Runtime Error 438求助

错误原因 #

你代码里的wordDoc是Word应用程序对象，而SaveAs2是Word文档对象的专属方法，直接用应用程序对象调用该方法会触发438错误（对象不支持指定的属性或方法）。另外还有两处细节问题：

• 原文件路径"C:\Users\file"缺少.docx后缀，会导致无法正常打开文档
• 调用SaveAs2时未指定文本格式，可能导致保存格式不符合预期

修正后的代码 #

Sub SaveToTXT()
    Dim wordApp As Object
    Dim doc As Object
    Dim wordPath As String
    
    ' 初始化Word应用
    Set wordApp = CreateObject("Word.Application")
    wordApp.Visible = False ' 提前设置不可见，避免界面闪烁
    
    ' 注意：这里要写完整的docx文件路径
    wordPath = "C:\Users\file.docx"
    
    ' 打开文档并赋值给文档对象
    Set doc = wordApp.Documents.Open(wordPath)
    
    ' 替换后缀为txt
    wordPath = Replace(wordPath, ".docx", ".txt")
    
    ' 调用文档对象的SaveAs2，指定纯文本格式
    doc.SaveAs2 Filename:=wordPath, FileFormat:=wdFormatText
    ' 若未引用Word对象库，用数值代替：FileFormat:=2
    
    ' 关闭文档和Word应用
    doc.Close SaveChanges:=False
    wordApp.Quit
    
    ' 释放对象，避免内存泄漏
    Set doc = Nothing
    Set wordApp = Nothing
End Sub

关键修正点 #

• 新增doc变量存储打开的文档对象，所有针对文档的操作（保存、关闭）都通过这个对象执行
• 提前设置Word应用不可见，优化执行体验
• 调用SaveAs2时明确指定FileFormat参数：
  • 如果引用了Word对象库，可以直接用常量wdFormatText
  • 如果未引用，用对应数值2（纯文本格式的编号）
• 补充对象释放步骤，避免内存占用

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