SaveAs 产生不兼容的文件类型和扩展名错误（运行时错误 6294）

Posted 2023-05-07

【中文标题】SaveAs 产生不兼容的文件类型和扩展名错误（运行时错误 6294）

【英文标题】：SaveAs producing Incompatible filetype and extension errors (Runtime error 6294)

【发布时间】：2021-08-21 17:23:42

【问题描述】：

我有一个工具，是我从网络上的其他地方修改的，可以与当前的 2021 MS Word Visual Basic for applications (v7.1) 一起使用。它基本上是 Word 文档的批量密码删除工具。

此代码只是通过一个目录打开所有文件，假设它们具有相同的密码，然后将它们保存到第二个目录并删除密码。

但是它在 SaveAs 行上失败了，

运行时错误 6294。

Dim myFile As String
Dim PathToUse As String
Dim myDoc As Document
Dim strPassword As String

strPassword = "current_password"
PathToUse = "C:\source"
SavePath = "C:\destination\"

myFile = Dir$(PathToUse & "*.docx")
While myFile <> ""
    'Open document
    Set myDoc = Documents.Open(FileName:=PathToUse & myFile, PasswordDocument:=strPassword)
  
    myDoc.SaveAs SavePath & myFile, Password = ""
    myDoc.Close
    'Next file in folder
    myFile = Dir$()
Wend

【问题讨论】：

请尝试myDoc.SaveAs FileName:=SavePath & myFile, Password:=""

PathToUse 缺少末尾的反斜杠。 SavePath 末尾有一个。

谢谢@FaneDuru 就是这样！如果你愿意，请随意写一个答案！

【参考方案1】：

请尝试

myDoc.SaveAs FileName:=SavePath & myFile, Password:=""

SaveAs 方法需要参数。其中一些是Optional，但如果您需要一些，则必须按照上述建议的方式使用。