打开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块包装的，你可以只使用.SaveAs ...而不是wDoc.SaveAs ... - With块的唯一目的是让你避免输入With块中对象的名称。）