vba调用Word对话框的代码

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