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

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

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

结果:

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

我使用的是MicrosoftExcel版本2008和MicrosoftWord版本2008。我正在使用早期绑定，并选择了Microsoft Excel、Office和Word 16.0对象库。（对于2008版来说，16.0对象库似乎很奇怪吗？）（Windows 10 Pro版本2004。Microsoft Office 365订阅）

我试着跟着

错误行：

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

我的代码：

选项显式
子CreateBasicWordReportEarlyBinding（）
将wdApp设置为Word.Application
Set wdApp=新单词。应用程序
使用wdApp
.Visible=True
.激活
.Documents.Add
选择
.ParagraphFormat.Alignment=wdAlignParagraphCenter
.BoldRun
.Font.Size=18
.TypeText“有史以来最好的电影”
.BoldRun
.Font.Size=12
.TypeText vbNewLine
.ParagraphFormat.Alignment=wdAlignParagraphLeft
.打字段落
以
范围（“A2”，范围（“A2”）。结束（xlDown）。结束（xlToRight））。复制
.选择.粘贴
.ActiveDocument.SaveAs2环境（“用户配置文件”）和“\Desktop\MovieReport.docx”
.ActiveDocument.Close
退出
以
'Set wdApp=无
端接头

您必须使用“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

使用wdApp
“你的密码。。。
SaveName=Environ（“UserProfile”）&“\Desktop\MovieReport.docx”
如果.Version首先尝试将其保存在根文件夹中，例如：
C:\MovieReport.docx
尝试之后，完整扩展名不应该是
“C:\Users\”和“\Desktop\MovieReport.docx”
？@xwhitelight，我收到对象“U文档”的运行时错误“6294”方法“SaveAs2”failed@dwirony当我尝试使用.ActiveDocument.SaveAs2“C:\Users\”环境（“UserProfile”）和“\Desktop\MovieReport.docx”时，收到了相同的5152错误
.ActiveDocument.SaveAs文件名：=“C:\Users\”环境（“UserProfile”）和“\Desktop\MovieReport.docx”如何
？