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

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

我正在努力将文件另存为.doc，与 Activity 的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

最佳答案

更改

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

至

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

(并且，因为那部分代码是用With wDoc块包装的，所以您可以只使用.SaveAs ...而不是wDoc.SaveAs ...-With块的唯一目的是允许您避免在块内键入With对象的名称。)