以下的代码，就是vba调用Word对话框的代码
Sub GetDialogs()
Dim i As Integer
On Error Resume Next
With Application
.ScreenUpdating = False
For i = 1 To 10000
（本文来源于图老师网站，更多请访问http://m.tulaoshi.com/diannaorumen/）Selection.InsertAfter "对话框" & i & "：" & .Dialogs(i).CommandName & vbCrLf
（本文来源于图老师网站，更多请访问http://m.tulaoshi.com/diannaorumen/）Next
.ScreenUpdating = True
End With
End Sub
