WORD VBA - Open and save file to new location

[shekhu]

Try this one:

[VBA]Sub SaveMe()
Set dlgSaveAs = Dialogs(wdDialogFileSaveAs)
With dlgSaveAs
.Name = "E:\TEST" & "\" & "New Name.doc"
.Format = wdFormatDocument
.Show
End With
End Sub[/VBA]