Word 2010 VBA save to specific folder as PDF

Hi All

Firstly I am a complete beginner when it comes to VBA!

I have found the code below to save a word document as a PDF that opens the save dialog box, automatically gives the filename and set to save as PDF is it possible to add a code to automatically specifiy the save folder location using the dialog box method? I need to use the dialog box method so that the person saving it can check the date is correct as they may sometimes save the file a day late and need to manually change the date hope this makes sense?

Sub SaveMe()

Msg = "Before saving ensure the correct date is entered In the Header?"
Ans = MsgBox(Msg, vbYesNo + vbQuestion)
If Ans = vbNo Then Exit Sub

With Dialogs(wdDialogFileSaveAs)

.Name = "Minutes_" & Format(Now(), "DD-MM-YY") & ".PDF"
.Format = wdFormatPDF
.Show

End With

End Sub

Thanks
Stuart

Hi there,

See if the following code does what you need:

Please Login or Register  to view this content.

The highlighted value may be altered to suit your own requirements.


Incidentally, if you format your filenames using:

Please Login or Register  to view this content.

you'll find that a File Manager application will display the files in chronological sequence - this can be useful.

Hope this helps - please let me know how you get on.

Regards,

Greg M

Hi Paul, Greg

Thanks for the replies I have finally got round to trying both codes but neither do what I was after when you run both the save as dialog box is set to the default save location which is my Documents folder on the C drive where as I would like it to automatically select a folder saved on a network drive.

Thanks
Stuart