VBA宏 - 无需打开Windows资源管理器即可保存活动工作簿的副本

Question

我在Excel宏中保存Word文档，用户使用SaveAs2（）函数定义导出路径（Windows资源管理器打开等）。

现在我的问题是我想将当前工作簿的副本保存到与Word文档具有相同文件名的同一目录中。
每次用户选择Word文件的导出路径时，但会出现另一个Windows资源管理器窗口，并询问用户保存Excel文件的位置。

那么如何禁用第二个Windows资源管理器窗口？

我试过这样：

Dim ExportPath As String
Dim ExcelExport As String

ExportPath = Application.GetSaveAsFilename(ActiveWorkbook.Names("AccountName").RefersToRange.Text & "_LD_Vertrag_DE.docx", FileFilter:="Word Files (*.docx), *.docx")
WordDocument.SaveAs2 (ExportPath)

ExcelExport = Replace(ExportPath, ".docx", ".xlsm")

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs (ExcelExport)
Application.DisplayAlerts = True