01Word VBA学习交流资料之一(2)

2019-04-13 20:54

Microsoft Word 对象。该主题阐明在分级结构中 Word 对象的排列方式。在结构图中单击一个对象,可显示相应的“帮助”主题。

对象浏览器。“Visual Basic 编辑器”中的“对象浏览器”显示 Word 对象的成员(属性和方法)。

-----------------------------------------

实例:打开Word后,按Alt+F11,出现VBE窗口,

双击右边的Thisdocument(当然,放到底下的模块中任一个也行),输入如下内容: Sub autoexec()

Application.Caption = \我爱我家!\End Sub

这时,关闭Word,再打开Word。

你的标题就有“×××.doc—我爱我家!”了!

图表 2

当然,也可以进一步做成这样: Sub autoexec() Dim a

a = MsgBox(\我家我家\这是一个试验\ If a <> 6 Then

Application.Quit End If End Sub

'功能就是打开Word时,显示此对话框,如果点了“是”就不作处理即打开Word,否则,退出Quit。

也可以写成这样: Sub autoexec() Dim a

a = InputBox(\你的姓名\防君子,不防小人!\ If a <> \小小\ Application.Quit End If End Sub

'功能就是打开Word时,显示此对话框,如果输入的不是小小,就打不开。不信,你试试。

'同时,ipnutbox函数也来了。(这个函数下次贴上他的帮助,这次就不贴了,多了,大家记

不住的。)

其中就有了msgbox函数的用法。

(“不求甚解”:这个函数只要知道大体就行了。不必用心去记住这些繁杂的家伙,用到不会时,选中msgbox,按一个F1就看到了。) 参考以下:MsgBox 函数

在对话框中显示消息,等待用户单击按钮,并返回一个 Integer 告诉用户单击哪一个按钮。 语法

MsgBox(prompt[, buttons] [, title] [, helpfile, context]) MsgBox 函数的语法具有以下几个命名参数: 部分 描述

Prompt 必需的。字符串表达式,作为显示在对话框中的消息。prompt 的最大长度大约为 1024 个字符,由所用字符的宽度决定。如果 prompt 的内容超过一行,则可以在每一行之间用回车符 (Chr(13))、换行符 (Chr(10)) 或是回车与换行符的组合 (Chr(13) & Chr(10)) 将各行分隔开来。

Buttons 可选的。数值表达式是值的总和,指定显示按钮的数目及形式,使用的图标样式,缺省按钮是什么以及消息框的强制回应等。如果省略,则 buttons 的缺省值为 0。

Title 可选的。在对话框标题栏中显示的字符串表达式。如果省略 title,则将应用程序名放在标题栏中。

Helpfile 可选的。字符串表达式,识别用来向对话框提供上下文相关帮助的帮助文件。如果提供了 helpfile,则也必须提供 context。 Context 可选的。数值表达式,由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。如果提供了 context,则也必须提供 helpfile。 设置值

buttons 参数有下列设置值: 常数 值 描述 vbOKOnly 0 只显示 OK 按钮。 VbOKCancel 1 显示 OK 及 Cancel 按钮。 VbAbortRetryIgnore 2 显示 Abort、Retry 及 Ignore 按钮。 VbYesNoCancel 3 显示 Yes、No 及 Cancel 按钮。 VbYesNo 4 显示 Yes 及 No 按钮。 VbRetryCancel 5 显示 Retry 及 Cancel 按钮。 VbCritical 16 显示 Critical Message 图标。 VbQuestion 32 显示 Warning Query 图标。 VbExclamation 48 显示 Warning Message 图标。 VbInformation 64 显示 Information Message 图标。 vbDefaultButton 1 0 第一个按钮是缺省值。 vbDefaultButton 2 256 第二个按钮是缺省值。 vbDefaultButton 3 512 第三个按钮是缺省值。 vbDefaultButton 4 768 第四个按钮是缺省值。

vbApplicationModal 0 应用程序强制返回;应用程序一直被挂起,直到用户对消息框作出响应才继续工作。

vbSystemModal 4096 系统强制返回;全部应用程序都被挂起,直到用户对消息框作出响应才继续工作。

vbMsgBoxHelpButton 16384 将Help按钮添加到消息框

VbMsgBoxSetForeground 65536 指定消息框窗口作为前景窗口

vbMsgBoxRight 524288 文本为右对齐

vbMsgBoxRtlReading 1048576 指定文本应为在希伯来和阿拉伯语系统中的从右到左显示 第一组值 (0–5) 描述了对话框中显示的按钮的类型与数目;第二组值 (16, 32, 48, 64) 描述了图标的样式;第三组值 (0, 256, 512) 说明哪一个按钮是缺省值;而第四组值 (0, 4096) 则决定消息框的强制返回性。将这些数字相加以生成 buttons 参数值的时候,只能由每组值取用一个数字。

注意 这些常数都是 Visual Basic for Applications (VBA) 指定的。结果,可以在程序代码中到处使用这些常数名称,而不必使用实际数值。 返回值

常数 值 描述 vbOK 1 OK vbCancel 2 Cancel vbAbort 3 Abort vbRetry 4 Retry vbIgnore 5 Ignore vbYes 6 Yes vbNo 7 No 说明

如果对话框显示 Cancel 按钮,则按下 ESC 键与单击 Cancel 按钮的效果相同。如果对话框中有 Help 按钮,则对话框中提供有上下文相关的帮助。但是,直到其它按钮中有一个被单击之前,都不会返回任何值。

注意 如果还要指定第一个命名参数以外的参数,则必须在表达式中使用 MsgBox。为了省略某些位置参数,必须加入相应的逗号分界符。

总结:交流之一没有很实用(指对Word)的东东,但它是一个很好的开始。 有些地方不太明白,没关系,这仅仅是个开始。

欢迎大家交流了一下这一块的学习心得,也欢迎提出你的疑问,或你的想法,如果你还什么其他的要求也可以提出来,我们一起来进行探讨,共同提高。

免责声明:如果文档有代码或内容侵犯了你的权利,请告诉我,我马上删除,这是一个非盈非的学习,任何商业行为与本学习无关。你可以复制或传播“他”的全部或部分,但请把“免责声明”也加上,(最好把我们的名字与加上)谢谢了。

案例说明:有一些是本人自编的,但更多的则是来自网上网友(尤其是老大――守柔的),其中的案子,大多是随意编的,如有雷同,纯属巧合。如果你不同意你的代码出现在本学习资料中,请告诉我。谢谢各位网友,虽然你的大名不曾出现,但你的精神,我们去记住的。 关于微软:微软的帮助也有版权的,但我们是学习,应该不会有版权的事,有的话,马上删。 关于时间:主要利用周六、周日来完成学习,当然,平时要看,否则,刚看的东东又忘记了。 关于学时:用时一年,一至二周一次。(保证不低于20课)

关于教材:选择微软的自带帮助做为交流学习的主要资料是基于以下几点考虑的: 1. 因为它权威性最高,通用性最好;

2. 它一般不会有版权的事,因为我们是学习他,而是来盈利;

3. 看懂它后,大多的微软同类都是相通的,可以说“学了一个”=“学了一类”; 4. 他有很好的结构,有内涵、也有外延;

5. 如果在学习过程中我们某些人坚持不下来,但其他人仍然完全可以继续学习,不会受到

影响,这也是最重要的一点。

6. 还有一点就是如果长时间不用后,大多会忘记,但帮助始终在。用时,打开帮助,你会

看到很多熟练的身影,很容易又找回当初的感觉。

技术指导:守柔

校对、排版:youyou300 撰稿:konggs


01Word VBA学习交流资料之一(2).doc 将本文的Word文档下载到电脑 下载失败或者文档不完整,请联系客服人员解决!

下一篇:医疗废物管理制度与流程

相关阅读
本类排行
× 注册会员免费下载(下载后可以自由复制和排版)

马上注册会员

注:下载文档有可能“只有目录或者内容不全”等情况,请下载之前注意辨别,如果您已付费且无法下载或内容有问题,请联系我们协助你处理。
微信: QQ: