使用 Excel VBA 保存 Word 文档时出现路径错误 5152

Question

语言版本：Microsoft Word/Excel 版本 16.41
操作系统：Mac OS Mojave 10.14.6

我正在尝试使用 Excel VBA 在我的桌面上保存 Word 文档。

结果：

运行时错误 5152。这不是有效的文件名。 尝试以下一项或多项：
- 检查路径以确保输入正确
- 从文件和文件夹列表中选择一个文件

我使用的是 Microsoft Excel 2008 版和 Microsoft Word 2008 版。我使用的是早期绑定并且我选择了 Microsoft Excel、Office 和 Word 16.0 对象库。 （对于 2008 版，16.0 对象库是否看起来很奇怪？）（Windows 10 专业版 2004 版。Microsoft Office 365 订阅）

我正在尝试按照本教程进行操作。

有错误的行：

.ActiveDocument.SaveAs2 Environ("UserProfile") & "\Desktop\MovieReport.docx"

我的代码：

Option Explicit

Sub CreateBasicWordReportEarlyBinding()

    Dim wdApp As Word.Application

    Set wdApp = New Word.Application
    With wdApp

        .Visible = True
        .Activate
        .Documents.Add
       
        With .Selection
            .ParagraphFormat.Alignment = wdAlignParagraphCenter
            .BoldRun
            .Font.Size = 18
            .TypeText "Best Movies Ever"
            .BoldRun
            .Font.Size = 12
            .TypeText vbNewLine
            .ParagraphFormat.Alignment = wdAlignParagraphLeft
            .TypeParagraph
        End With

        Range("A2", Range("A2").End(xlDown).End(xlToRight)).Copy
        .Selection.Paste            
        .ActiveDocument.SaveAs2 Environ("UserProfile") & "\Desktop\MovieReport.docx"
        .ActiveDocument.Close
        .Quit
    End With

   'Set wdApp = Nothing
End Sub

Answer 1

您必须使用“ActiveDocument.SaveAs”，而不是“ActiveDocument.SaveAs2”。 如果您使用 Office 2010 或更旧版本，则不能使用“ActiveDocument.SaveAs2”方法。 使用以下代码，希望您的问题得到解决。

With wdApp  
   
   'Your codes...

   SaveName = Environ("UserProfile") & "\Desktop\MovieReport.docx"

   If .Version <= 12 Then
      .ActiveDocument.SaveAs SaveName
   Else
      .ActiveDocument.SaveAs2 SaveName
   End If
   
End With