以下的代碼，就是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