Setting SaveAs Directory (Office 97 sr2)

Topic

New Reply

I am trying to create a macro.

A quote document is created in a central location on a server and is then opened for editing.
My macro saves the active file and then I want to be able to set the drive and folder that a SaveAs box opens with so that the user can save it on his own machine in a set location.

All quotes are saved in customer folders within the Quotes folder.

eg L:My DocumentsQuotes<>

Can I set the location that the SaveAs box opens to as L:My DocumentsQuotes?

My macro so far:

Sub Saving()

ActiveDocument.Save

ChangeFileOpenDirectory “L:My DocumentsQuotes”

With Application.Dialogs(wdDialogFileSaveAs)
.Format = wdFormatDocument
.Show
End With

End Sub

Reply | Quote

Replies

Gee, I thought that would work. But not if the document has been saved. Here’s a different way. I just tested it a wee bit in Office 2000, so if you find that it doesn’t always work, post again:

Sub Saving()
ActiveDocument.Save
With Application.Dialogs(wdDialogFileSaveAs)
    .Format = wdFormatDocument
    ' Open dialog in specified directory with current file name
    .Name = "L:My DocumentsQuotes" & ActiveDocument.Name
    .Show
End With
End Sub

Reply | Quote

Thanks for the help, it worked fine!

Reply | Quote