认识 WORD 中的对话框(Dialog) (VBA)

前言:WORD  中的内置对话框,提供了强大的人机对话功能,合理适当地应用对话框,
可以极大地方便我们的代码过程和效论.另外,从本代码中,没有使用 FOR  EACH
–NEXT循环,是因为在实际过程中,还可以通过INDEX直接访问该对话框,而不必去记
很长的 WdWordDialog  常量名(当然会有提示),另外,WORD  VBA 帮助文件中提供
的 WORD  内置对话框的数量也有出入,说明部分对话框不是特别支持访问.
Application.Dialogs.Count=227,而实际上利用以下代码可以得到 748个对话框.

 

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