Prompt saveas location in Word from Excel

[gab1972]

I have an Excel book that opens a word document and adds some
information from Excel. I want the user to be prompted for a save
location. The program uses a template word file that I don't want
people saving over. I want them to saveas to their own location.
The Dim's I'm using
Dim wrdApp As Word.Application 'creates a dialog with Word
Dim wrdDoc As Word.Document 'creates a dialog with a document
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True 'show the document
wrdApp.Activate
Set wrdDoc = wrdApp.Documents.Open("Z:\COMMON FILES\Encroachment
Permits\Permit.Tracker\FormLetters\PreAppDeficiencyLetter.doc")
wrdDoc.SaveAs or wrdDoc.Save just saves over the current document. I
want the saveto location window to come up. I don't know if this can
be automated through Excel or what. One caveat...users are on
different drive letters. So I can't just default to the C: drive.
Some might save their project documents on the J: drive in a
different
folder. The location is always different.
Any ideas? Thanks in advance.

 

[Per Jessen]

Hi

I would save the template as true 'Document Template' (save as
document file type in word). Then you can use this:

Set wrdDoc = wrdApp.Documents.Add Template:="Z:\COMMON FILES
\Encroachment
Permits\Permit.Tracker\FormLetters\PreAppDeficiencyLetter.dot"

Hopes this helps.
....
Per

 

[gab1972]

O. M. G.!! you are my new best friend! You have saved me TONS of
future headaches. I REALLY appreciate this.

Made a slight fix to your coding though - fyi
Set wrdDoc = wrdApp.Documents.Add(Template:="Z:\COMMON FILES
\Encroachment Permits\Permit.Tracker\FormLetters
\PreAppDeficiencyLetter.dot")

Needed ()'s after .Add

Thanks a gajillion nevertheless!