2016-12-30 107 views
2

在Excel中使用VBA時,打開一個單詞模板文件。打開word模板並保存爲.doc到當前工作簿文件夾 - excel中的VBA

我很努力地將文件保存爲一個.doc文件作爲活動的Excel工作簿。我不想將它保存在從中檢索到的同一文件夾中,也不想輸入另一個絕對路徑名稱。

我當前的代碼保存爲.doc保存到C:\用戶\ USER \文件,而不是實際的工作簿文件夾(C:\用戶\ USER \桌面\ 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 

回答

1

變化

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

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

(而且,由於代碼位被包裹着With wDoc塊,你可以只使用.SaveAs ...而不是wDoc.SaveAs ... - 唯一的目的With塊是讓你避免塊中鍵入With對象的名稱)

相關問題