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\PreAppDeficienc yLetter.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.

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\PreAppDeficienc yLetter.dot"

Hopes this helps.
....
Per


On 28 Okt., 22:07, gab1972 wrote:
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\PreAppDeficienc yLetter.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.

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!

Per Jessen wrote:
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\PreAppDeficienc yLetter.dot"

Hopes this helps.
...
Per


On 28 Okt., 22:07, gab1972 wrote:
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\PreAppDeficienc yLetter.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.