调出word里的另存为那个对话框的代码怎么写?

Question

在word里的宏里写代码,要求是调出word里的另存为那个对话框,这个代码怎么写?谢谢!

Answer 1

Dim oCmd As CommandBarButton
Set oCmd = ActiveDocument.CommandBars("Menu Bar").Controls(1).Controls(5)
oCmd.Execute

Answer 2

a = Application.Dialogs(wdDialogFileSaveAs).Show
Select Case a
  Case -2
     MsgBox "按了关闭"
  Case -1
     MsgBox "按了确定"
  Case 0
     MsgBox "按了取消"
End Select

Answer 3

还有个办法是用Application.FileDialog。例如：
Application.FileDialog(msoFileDialogSaveAs).Show这个FileDialog对象使用起来比通过Dialogs获得的Dialog对象方便一点。