Save As Macro

[Kevin]

Guys,

I am trying to create a Word 2002 macro that when ran it'll pop up the save
as box which will be a specific network folder.

Can anyone help.


Many Thanks


kevin

 

[Edward Thrashcort]

If you name the Sub "FileSaveAs" it will replace the buil-in dialog
CommandName macro


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

Set dlg = Dialogs(wdDialogFileSaveAs)
ChangeFileOpenDirectory NetworkPath
With dlg
'MsgBox .CommandName
.Show
End With

End Sub




Eddie