Dzwebs.Net

撰写电脑技术杂文十余年

vba调用Word对话框的代码

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

温馨提示!

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

  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

         Next

         .ScreenUpdating = True

     End With

  End Sub


网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231