SaveAs help
From: d. williams (williafn_at_bc.edu)
Date: 03/15/04
- Next message: Peter Hewett: "Re: Compare method and Error 4198"
- Previous message: Charles Kenyon: "Re: How do I add a custom shortcut menu"
- Next in thread: Ed: "Re: SaveAs help"
- Reply: Ed: "Re: SaveAs help"
- Reply: Jezebel: "Re: SaveAs help"
- Messages sorted by: [ date ] [ thread ]
Date: Mon, 15 Mar 2004 14:14:46 -0800
hello, all. i've made a template which involves a userform. when the
user clicks 'ok' on the form, i have the form ask if it's ok to save the
file a certain way (as seen in code below). if they hit 'yes', i save
it the way i want. if they hit 'no' what i would like is for the
typical SaveAs dialogue box to pop-up, but with a target location and
filename which i specify.
i've got most of this working, my only snag being popping the SaveAs
dialogue. i haven't been able to find much help googling and i'm not
entirely sure that i *can* pop the standard dialogue from this script.
if it isn't possible to initiate the diaglogue from within the script, i
suppose i can use the information at
http://word.mvps.org/FAQs/MacrosVBA/InterceptSavePrint.htm to intercept
the SaveAs and set what i would like.
i've included the parts of the script i have working. any help is
greatly appreciated! thanks, danny.
---
Dim fileName As String
fName = "W:\" + nameBox.Value + " - " + Format(curDay, "yy-mm-dd") + "
mohs.doc"
Dim saveMe As Integer
saveMe = MsgBox("Save document as " + fName, 4)
If saveMe = vbYes Then
MsgBox "Now saving file: " + fName
ActiveDocument.SaveAs fileName:=fName
Else
ActiveDocument.SaveAs '???
End If
- Next message: Peter Hewett: "Re: Compare method and Error 4198"
- Previous message: Charles Kenyon: "Re: How do I add a custom shortcut menu"
- Next in thread: Ed: "Re: SaveAs help"
- Reply: Ed: "Re: SaveAs help"
- Reply: Jezebel: "Re: SaveAs help"
- Messages sorted by: [ date ] [ thread ]
Relevant Pages
|
