[caj]

Can anyone help (ASAP)!! I created a Word template that is going to be used
by many different people (some of which are not very familiar with Word). The
template will be stored on the internet and when downloaded and saved does
not save the file as a doc. What i need is a macro that on the first time the
document is saved, it saves the file to that person's MyDocuments folder?

Desperate in need of help.

[Peter A]

In article ,
says...
Can anyone help (ASAP)!! I created a Word template that is going to be used
by many different people (some of which are not very familiar with Word). The
template will be stored on the internet and when downloaded and saved does
not save the file as a doc. What i need is a macro that on the first time the
document is saved, it saves the file to that person's MyDocuments folder?

Desperate in need of help.


Documents are by default saved to My Documents. The location of the
template has nothing to do with it.

--
Peter Aitken
Author, MS Word for Medical and Technical Writers
www.tech-word.com

[caj]

That is generally correct, but it is not working that way when I save the
file to intrenal sharepoint server. It tries to save the file back to the
server.

"Peter A" wrote:

In article ,
says...
Can anyone help (ASAP)!! I created a Word template that is going to be used
by many different people (some of which are not very familiar with Word). The
template will be stored on the internet and when downloaded and saved does
not save the file as a doc. What i need is a macro that on the first time the
document is saved, it saves the file to that person's MyDocuments folder?

Desperate in need of help.


Documents are by default saved to My Documents. The location of the
template has nothing to do with it.

--
Peter Aitken
Author, MS Word for Medical and Technical Writers
www.tech-word.com

[caj]

The macro would be inserted into the template (.dot) as the template may or
may not be saved to the person's individual template folder.

"caj" wrote:

That is generally correct, but it is not working that way when I save the
file to intrenal sharepoint server. It tries to save the file back to the
server.

"Peter A" wrote:

In article ,
says...
Can anyone help (ASAP)!! I created a Word template that is going to be used
by many different people (some of which are not very familiar with Word). The
template will be stored on the internet and when downloaded and saved does
not save the file as a doc. What i need is a macro that on the first time the
document is saved, it saves the file to that person's MyDocuments folder?

Desperate in need of help.


Documents are by default saved to My Documents. The location of the
template has nothing to do with it.

--
Peter Aitken
Author, MS Word for Medical and Technical Writers
www.tech-word.com

[Graham Mayor]

The following macro saved in the document template will change the file save
path to the user's documents path and prompt to save the document whenever a
new document is created from that template:

Sun AutoNew()
Dim sPath As String
sPath = Options.DefaultFilePath(Path:=wdDocumentsPath)
ChangeFileOpenDirectory "sPath"
ActiveDocument.Save
End Sub

http://www.gmayor.com/installing_macro.htm

--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org



caj wrote:
The macro would be inserted into the template (.dot) as the template
may or may not be saved to the person's individual template folder.

"caj" wrote:

That is generally correct, but it is not working that way when I
save the file to intrenal sharepoint server. It tries to save the
file back to the server.

"Peter A" wrote:

In article ,
says...
Can anyone help (ASAP)!! I created a Word template that is going
to be used by many different people (some of which are not very
familiar with Word). The template will be stored on the internet
and when downloaded and saved does not save the file as a doc.
What i need is a macro that on the first time the document is
saved, it saves the file to that person's MyDocuments folder?

Desperate in need of help.


Documents are by default saved to My Documents. The location of the
template has nothing to do with it.

--
Peter Aitken
Author, MS Word for Medical and Technical Writers
www.tech-word.com

[caj]

Graham ...... I entered the code and I keep getting a Runtime 4127 Error.

"Graham Mayor" wrote:

The following macro saved in the document template will change the file save
path to the user's documents path and prompt to save the document whenever a
new document is created from that template:

Sun AutoNew()
Dim sPath As String
sPath = Options.DefaultFilePath(Path:=wdDocumentsPath)
ChangeFileOpenDirectory "sPath"
ActiveDocument.Save
End Sub

http://www.gmayor.com/installing_macro.htm

--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org



caj wrote:
The macro would be inserted into the template (.dot) as the template
may or may not be saved to the person's individual template folder.

"caj" wrote:

That is generally correct, but it is not working that way when I
save the file to intrenal sharepoint server. It tries to save the
file back to the server.

"Peter A" wrote:

In article ,
says...
Can anyone help (ASAP)!! I created a Word template that is going
to be used by many different people (some of which are not very
familiar with Word). The template will be stored on the internet
and when downloaded and saved does not save the file as a doc.
What i need is a macro that on the first time the document is
saved, it saves the file to that person's MyDocuments folder?

Desperate in need of help.


Documents are by default saved to My Documents. The location of the
template has nothing to do with it.

--
Peter Aitken
Author, MS Word for Medical and Technical Writers
www.tech-word.com

[Graham Mayor]

Oops! Correcting the typo 'Sun' to 'Sub' might help? ( but the real
problem is the quotes around sPath

Change to

Sub AutoNew()
Dim sPath As String
sPath = Options.DefaultFilePath(Path:=wdDocumentsPath)
ChangeFileOpenDirectory sPath
On Error GoTo Cancelled
ActiveDocument.Save
Exit Sub
Cancelled:
If Err.Number = 4198 Then
MsgBox "User Cancelled"
End If
End Sub

Apologies
--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org



caj wrote:
Graham ...... I entered the code and I keep getting a Runtime 4127
Error.

"Graham Mayor" wrote:

The following macro saved in the document template will change the
file save path to the user's documents path and prompt to save the
document whenever a new document is created from that template:

Sun AutoNew()
Dim sPath As String
sPath = Options.DefaultFilePath(Path:=wdDocumentsPath)
ChangeFileOpenDirectory "sPath"
ActiveDocument.Save
End Sub

http://www.gmayor.com/installing_macro.htm

--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org



caj wrote:
The macro would be inserted into the template (.dot) as the template
may or may not be saved to the person's individual template folder.

"caj" wrote:

That is generally correct, but it is not working that way when I
save the file to intrenal sharepoint server. It tries to save the
file back to the server.

"Peter A" wrote:

In article ,
says...
Can anyone help (ASAP)!! I created a Word template that is going
to be used by many different people (some of which are not very
familiar with Word). The template will be stored on the internet
and when downloaded and saved does not save the file as a doc.
What i need is a macro that on the first time the document is
saved, it saves the file to that person's MyDocuments folder?

Desperate in need of help.


Documents are by default saved to My Documents. The location of
the template has nothing to do with it.

--
Peter Aitken
Author, MS Word for Medical and Technical Writers
www.tech-word.com

[caj]

Thank you! Thank you. This works GREAT!! You are a gem.

"Graham Mayor" wrote:

Oops! Correcting the typo 'Sun' to 'Sub' might help? ( but the real
problem is the quotes around sPath

Change to

Sub AutoNew()
Dim sPath As String
sPath = Options.DefaultFilePath(Path:=wdDocumentsPath)
ChangeFileOpenDirectory sPath
On Error GoTo Cancelled
ActiveDocument.Save
Exit Sub
Cancelled:
If Err.Number = 4198 Then
MsgBox "User Cancelled"
End If
End Sub

Apologies
--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org



caj wrote:
Graham ...... I entered the code and I keep getting a Runtime 4127
Error.

"Graham Mayor" wrote:

The following macro saved in the document template will change the
file save path to the user's documents path and prompt to save the
document whenever a new document is created from that template:

Sun AutoNew()
Dim sPath As String
sPath = Options.DefaultFilePath(Path:=wdDocumentsPath)
ChangeFileOpenDirectory "sPath"
ActiveDocument.Save
End Sub

http://www.gmayor.com/installing_macro.htm

--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org



caj wrote:
The macro would be inserted into the template (.dot) as the template
may or may not be saved to the person's individual template folder.

"caj" wrote:

That is generally correct, but it is not working that way when I
save the file to intrenal sharepoint server. It tries to save the
file back to the server.

"Peter A" wrote:

In article ,
says...
Can anyone help (ASAP)!! I created a Word template that is going
to be used by many different people (some of which are not very
familiar with Word). The template will be stored on the internet
and when downloaded and saved does not save the file as a doc.
What i need is a macro that on the first time the document is
saved, it saves the file to that person's MyDocuments folder?

Desperate in need of help.


Documents are by default saved to My Documents. The location of
the template has nothing to do with it.

--
Peter Aitken
Author, MS Word for Medical and Technical Writers
www.tech-word.com

[Graham Mayor]

You are welcome

--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org



caj wrote:
Thank you! Thank you. This works GREAT!! You are a gem.

"Graham Mayor" wrote:

Oops! Correcting the typo 'Sun' to 'Sub' might help? ( but the real
problem is the quotes around sPath

Change to

Sub AutoNew()
Dim sPath As String
sPath = Options.DefaultFilePath(Path:=wdDocumentsPath)
ChangeFileOpenDirectory sPath
On Error GoTo Cancelled
ActiveDocument.Save
Exit Sub
Cancelled:
If Err.Number = 4198 Then
MsgBox "User Cancelled"
End If
End Sub

Apologies
--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org



caj wrote:
Graham ...... I entered the code and I keep getting a Runtime 4127
Error.

"Graham Mayor" wrote:

The following macro saved in the document template will change the
file save path to the user's documents path and prompt to save the
document whenever a new document is created from that template:

Sun AutoNew()
Dim sPath As String
sPath = Options.DefaultFilePath(Path:=wdDocumentsPath)
ChangeFileOpenDirectory "sPath"
ActiveDocument.Save
End Sub

http://www.gmayor.com/installing_macro.htm

--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org



caj wrote:
The macro would be inserted into the template (.dot) as the
template may or may not be saved to the person's individual
template folder.

"caj" wrote:

That is generally correct, but it is not working that way when I
save the file to intrenal sharepoint server. It tries to save the
file back to the server.

"Peter A" wrote:

In article ,
says...
Can anyone help (ASAP)!! I created a Word template that is
going to be used by many different people (some of which are
not very familiar with Word). The template will be stored on
the internet and when downloaded and saved does not save the
file as a doc. What i need is a macro that on the first time
the document is saved, it saves the file to that person's
MyDocuments folder?

Desperate in need of help.


Documents are by default saved to My Documents. The location of
the template has nothing to do with it.

--
Peter Aitken
Author, MS Word for Medical and Technical Writers
www.tech-word.com