vba - 打开 word 模板并另存为 .doc 到当前工作簿文件夹 - Excel 中的 VBA

Question

在 Excel 中使用 VBA，我正在打开一个 word 模板文件。

我正在努力将文件另存为 .doc 文件，保存在与事件 Excel 工作簿相同的文件夹中。我不想将它保存在与检索到的文件夹相同的文件夹中，也不想输入另一个绝对路径名。

我当前的代码一直将 .doc 保存到 C:\Users\USER\Documents 而不是工作簿实际文件夹 (C:\Users\USER\Desktop\testdocs)

我的代码如下:

Sub OpenTemplateSaveAsDoc()
Dim wApp As word.Application
Dim wDoc As word.Document
Set wApp = CreateObject("Word.Application")
wApp.Visible = True

Set wDoc = wApp.Documents.Open("C:\Users\USER\Documents\Custom Office Templates\wordtesttemplate.dotm", ReadOnly:=True)

With wDoc

wDoc.SaveAs CurDir & Application.PathSeparator & "MySavedDoc.doc"

End With

End Sub

Answer 1

改变

wDoc.SaveAs CurDir & Application.PathSeparator & "MySavedDoc.doc"

到

wDoc.SaveAs ActiveWorkbook.Path & Application.PathSeparator & "MySavedDoc.doc"

(而且，因为那段代码用 With wDoc block 包裹，您可以只使用 .SaveAs ... 而不是 wDoc.SaveAs ... - With block 的唯一目的是让您避免在 block 中键入 With 对象的名称。)