Please Help!? Save As Title.

[A. Smart]

I have a blank template that I use for a large number of files. When I click
on Save As I would like word to pick out a certain Title and have this as the
documents name. Any ideas?
Cheers

 

[Edward Thrashcort]

Code a macro called FileSaveAs into your document and this will replace
Word's File Save As command

Sub FileSaveAs()
Dim dlg As Dialog
Const NetworkPath = "C:\temp"
Dim DocTitle

'Get the title you want
DocTitle = "My Document Title.doc"

Set dlg = Dialogs(wdDialogFileSaveAs)
With dlg
.Name = DocTitle
.Show
End With

End Sub



Eddie

 

[Edward Thrashcort]

Er... this line is redundant!!

Const NetworkPath = "C:\temp"

Eddie

 

[Charles Kenyon]

Put it in the Title property of your template. File > Properties
--
Charles Kenyon

Word New User FAQ & Web Directory: http://addbalance.com/word

Intermediate User's Guide to Microsoft Word (supplemented version of
Microsoft's Legal Users' Guide) http://addbalance.com/usersguide


--------- --------- --------- --------- --------- ---------
This message is posted to a newsgroup. Please post replies
and questions to the newsgroup so that others can learn
from my ignorance and your wisdom.