以下的代码，就是vba调用Word对话框的代码

　　Sub GetDialogs()

　　Dim i As Integer

　　On Error Resume Next

　　With Application

　　.ScreenUpdating = False

　　For i = 1 To 10000

　　Selection.InsertAfter "对话框" & i & "：" & .Dialogs(i).CommandName & vbCrLf

　　Next

　　.ScreenUpdating = True

　　End With

　　End Sub