运行时错误 5 - 无效的过程调用或参数 - 保存 Word 文档时

Question

我一直在尝试解决这个错误，但我在网上找到的任何东西似乎都没有帮助。基本上，我在 excel VBA 中运行一个脚本，该脚本打开一个 word 文档，然后打开“另存为”对话框，以便我可以使用我选择的名称/位置保存文件。正是在这一点上，我得到了运行时错误 5。

我正在使用 Do Loop 来尝试绕过错误，并且它工作了一段时间。但由于某种原因，问题又回来了，我不知道为什么。

我添加了一个 Do 循环，它可以阻止代码向前移动，直到文件有了名称。这工作了一段时间，但几个小时后神秘地停止工作

Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Set wdApp = GetObject(, "Word.Application")

If Err.Number <> 0 Then 'Word isn't already running
    Set wdApp = CreateObject("Word.Application")
End If

On Error GoTo 0
Set wdDoc = wdApp.Documents.Open(OFile)

'Clear the variable that contains the file path/name
SveReportName = ""


'Save word document as a new file
Set SveReport = wdApp.ActiveDocument.Application.FileDialog(msoFileDialogSaveAs)
With SveReport
' 3 is for 97-2003 - include for 2010, remove for 2003
    .FilterIndex = 3
    .Show
    SveReportName = SveReport.SelectedItems.Item(1)
    'This Do statement is here so that VBA just keeps adding 1+1 until the user has had time to name the tech report file, it should stop Run Time Error 5 from appearing
    Do
        a = 1 + 1
    Loop Until IsNull(SveReportName) = False
    wdDoc.SaveAs SveReportName
End With

知道还会发生什么吗？

提前致谢！

Answer 1

阅读有关您正在使用的对象的 MS 文档，特别是关于执行方法的注释，该方法应在另存为的 show 方法之后立即使用：

https://docs.microsoft.com/en-us/office/vba/api/office.filedialog.show

我认为它会将您的“保存”代码简化为这样的内容，尽管我还没有尝试过：

'Save word document as a new file
Set SveReport = wdApp.ActiveDocument.Application.FileDialog(msoFileDialogSaveAs)
With SveReport
    .FilterIndex = 3
    if .Show = -1 then .Execute
End With