vba调用Word对话框的代码

pasckr

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