Change the behavior of "Save Frame As"?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

plh - 17 Feb 2007 13:26 GMT

Office 2003:
We have a system whereby sales engineers create spec. sheet by filling out the
left frame in a read-only two-frame document (the right frame containing
instructions) then using RightClick/Save Frame As to save the resulting spec.
sheet under a new name. What we would like to do is have the Save As dialog
window, instead of showing the same folder where the original document resides
and the suggested name "Document1.doc", default to a folder and suggested file
name predetermined by information contained in fields on the frame. My guess is
that this can be done through a custom .dot, but I would greatly appreciate some
help getting started. I am new to VBA in Word but have extensive experience with
it in Excel and Access. I have looked at the SaveAs Method and DefaultSaveFormat
Property in help but my questions are:
1) How to change the default folder. I see the part about the file name (SaveAs
Method). Can I use a drive\path\name in that parameter such as
"I:\Shared\Marketing\Smith\COPs\23456Specs.doc"
2) How to make this happen in response to RightClick/Save Frame As.
Thank You,
plh

Signature

Where are we going and why am I in this HAND BASKET??

Reply to this Message

Jean-Guy Marcil - 19 Feb 2007 16:14 GMT

plh was telling us:
plh nous racontait que :

> Office 2003:
> We have a system whereby sales engineers create spec. sheet by
[quoted text clipped - 16 lines]
> Thank You,
> plh

You can highjack the SaveFrameAs command with a sub that uses the exact name
as in this example:
Make sure you store the Sub in the project associated with the frame in the
VBA Editor.

'_______________________________________
Sub FileSaveFrameAs()

Dim strUserPAth

'Save user current directory
strUserPAth = CurDir

'Do the save
With Dialogs(wdDialogFileSaveAs)
.Name = "I:\Shared\Marketing\Smith\COPs\"
.Show
End With

'Reset the open/save directory
Application.ChangeFileOpenDirectory strUserPAth

End Sub
'_______________________________________

If you want to use a file name as well as a path name, change

.Name = "I:\Shared\Marketing\Smith\COPs\"

to

.Name = "I:\Shared\Marketing\Smith\COPs\MyDocument.doc"

Signature

Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
jmarcilREMOVE@CAPSsympatico.caTHISTOO
Word MVP site: http://www.word.mvps.org

Reply to this Message

plh - 19 Feb 2007 17:28 GMT

>plh was telling us:
>plh nous racontait que :
[quoted text clipped - 52 lines]
>
> .Name = "I:\Shared\Marketing\Smith\COPs\MyDocument.doc"

Dear Jean-Guy,
Thank you, we will try it!
-plh

Signature

Where are we going and why am I in this HAND BASKET??

Reply to this Message