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

Question

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

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

我当前的代码一直将.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对象的名称。）