求助如何在另存的时候指定另存的路径

nolook

打开word ，我点另存为，另存的路径是打开的文档的路径。现在想通过一段代码实现我点另存时，另存的路径是我指定的路径，这个路径可以写在代码里，就是想实现这个，我弄了很久木有成功，请大侠出手。

我知道excel的大概是这么写：

Sub 快速另存()

    Dim NowWorkbook As Workbook
    Dim FileName$

    FileName = Application.GetSaveAsFilename _
        (InitialFileName:="E:\备份\"  & ".xlsx", _
       fileFilter:="Excel files(*.xlsx),*.xlsx")
        If FileName <> "False" Then
        ActiveWorkbook.SaveAs FileName

End If
End Sub

想问一下大侠，word的 vba应该怎么写呢，谢了先