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

上一篇：word教程零基础教程：Word自定义右键菜单的VBA代码示例 下一篇：word教程全集自学：word域的概念.作用及使用范例

郑重声明：本文版权归原作者所有，转载文章仅为传播更多信息之目的，如作者信息标记有误，请第一时间联系我们修改或删除，多谢。