VBA之WORD对话框的利用(Word Dialog)【DOC精选】.docVIP

下载本文档

546
0
约5.15千字
约 4页
2017-02-16 发布于江苏
举报
版权申诉

VBA之WORD对话框的利用(Word Dialog)【DOC精选】.doc

1、本文档共4页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
8、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

在WORD操作中，我们最常用的莫过于命令和对话框的操作了。对话框是程序与用户交互过程的一个对话，通过对话框的设置，可以将程序或者用户指定的一些信息转化为程序语言，进行期望操作。在WORD的开发应用中，我们有四种对话框，其中Application.Dialogs (Item)最为常用.第一类对话框:Application.Dialogs(Item)它几乎（注意是几乎，不是全部）涵盖了前台用户与WORD APPLICATION程序的交互过程。我们可以使用for each –next 取得访问application.dialogs，也可以使用index的方法进行访问，耐心寻味的是，两者运行的结果是不同的！WORD VBA帮助文件中提供的WORD 内置对话框的数量也有出入,说明部分对话框不是特别支持访问，Application.Dialogs.Count=227,而实际上利用以下代码可以得到748个对话框。(注意,版本号和安装语言不同，以及文档设置的不同，DIALOG数量可能都会有所不同)请运行以下程序,以获得更多的DialogSub GetAllDialogs()Dim i As Integer, aString As String, MyString As String, Tem As StringOn Error Resume NextWith Application.ScreenUpdating = FalseFor i = 1 To 10000Tem = .Dialogs(i).CommandNameIf Err.Number 0 Then Err.Clear: GoTo GONEaString = 对话框( i ): Tem vbCrLfMyString = MyString aStringGONE:???????????? NextSelection.InsertAfter MyString.ScreenUpdating = TrueEnd WithEnd SubWORD内置对话框中的参数,请参阅WORD VBA帮助文件之内置对话框参数列表.以下为对话框使用示例:Sub FilePrint()??? Dim MyDialog As Dialog, Ps() As String, Pl() As String, PPcount As Integer, PrintSel As String??? Dim S As Integer, N As Integer, H As Integer, Upper As Integer, Lower As Integer, Cop As Integer??? Set MyDialog = Application.Dialogs(wdDialogFilePrint) 定义打印对话框??? With MyDialog??????? If .Show = -1 Then 按下确定按钮??????????? Cop = .NumCopies 返回打印份数??????????? Select Case .Range 打印区域??????????? Case 0??????????????? PrintSel = 您选择了打印所有页??????????????? 取得文档总页数??????????????? PPcount = ActiveDocument.Content.Information(wdNumberOfPagesInDocument)??????????? Case 2 相当于打印光标所在页??????????????? PPcount = 1??????????????? PrintSel = 您选择了打印当前第 Selection.Information(wdActiveEndPageNumber) 页??????????? Case 4 选择从第几页到第几页如1-3,5,9,10-15??????????????? PrintSel = 您选择了打印指定页: .Pages??????????????? 数组??????????????? Ps = Split(.Pages, ,)??????????????? Upper = UBound(Ps) 上标??????????????? Lower = LBound(Ps) 下标??????????????? For i = Lower To Upper??????????????????? N = N + 1??????????????????? 如果该数组中的某个值中提取有-的话??????????????????? If InS