vba调用Word对话框的代码

Admin | 2011-9-24 10:21:48 | 被阅次数 | 8034

温馨提示!

如果未能解决您的问题，请点击搜索；登陆可复制文章，点击登陆

　　WORD 中的内置对话框，提供了强大的人机对话功能，合理适当地应用对话框，可以极大地方便我们的代码过程和效论。

　　另外，从本代码中，没有使用FOR EACH –NEXT循环，是因为在实际过程中，还可以通过INDEX直接访问该对话框，而不必去记很长的WdWordDialog 常量名，另外，WORD VBA帮助文件中提供的WORD 内置对话框的数量也有出入，说明部分对话框不是特别支持访问. Application.Dialogs.Count=227，而实际上利用以下代码可以得到748个对话框。

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

　.ScreenUpdating = True

　End With

　　End Sub

该杂文来自： Word杂文