作者：乔山办公网日期：
返回目录：word文档
使用GetOpenFilename即可，filenames即是文件抄的全袭路径带文件名称百。
Sub ass2()
filenames = Application.GetOpenFilename("所有文件 (*.*), *.*", 0, "选定文件", , False)
MsgBox filenames
End Sub
如果仅仅只度需得到文件的名称，不带路径。那知么用这个：道
Sub test2()
filenames = Application.GetOpenFilename("所有文件 (*.*), *.*", 0, "选定文件", , False)
If filenames <> False Then
fname = Right(filenames, Len(filenames) - InStrRev(filenames, "\"))
MsgBox fname
End If
End Sub
thisdocument.saveas2 "路径和名字"
有感叹号的文档是copy含有VBA宏的文档。常规的2007以后的文档百是"x"结尾的（docx，xlsx）有宏的则以"m"结尾(含义是Macro)。宏可以设计为，度打开时自动弹出对话，要求另存为（这样可以保护源文件）。知
你试试打开x结尾的文档，看会不道会要求另存为？
Sub ShowSaveAsDialog()
Dim dlgSaveAs As FileDialog
Set dlgSaveAs = Application.FileDialog( _
FileDialogType:=msoFileDialogSaveAs)
dlgSaveAs.Show
End Sub