网站大量收购独家精品文档,联系QQ:2885784924

WORD·VBA入门教程(第三课).pdf

  1. 1、本文档共3页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
第三课:对象属性与方法 VBA 是面向对象的一个编程语言,您也许刚开始还不一定完全能理解对象是什么,属性 又是什么,方法又 什么?不要急,且听守柔慢慢分解。 1. 什么是对象 对象 Visual Basic 的结构基础,在Visual Basic 中进行的所有操作几乎都与修改对象 有关。Microsoft Word 的任何元素,如文档、表格、段落、书签、域等,都可用 Visual Basic 中的对象来表示。 对象代表应用程序中的元素,比如,工作表、单元格、图表、窗体,或 一份报告。在 Visual Basic 的代 中,可在使用对象的任一方法或改变它的属性之一的值之前,必须去识别对象。 2. 什么是属性 属性是对象的一种特性或该对象行为的一个方面。例如,文档属性包含其名称、内容、 保存状态以及 否启用修订。若要更改一个对象的特征,可以修改其属性值。 若要设置属性的值,可在对象的后面紧接一个句号、属性名称、一个等号及新的属性值。 属性是一个对象的属性,它定义了对象的特征,诸如大小、颜色或屏幕位置,或某一方 面的行为,诸如对象 否有激活或可见的。可以通过修改对象的属性值来改变对象的特性。 若要设置属性值,则在对象的引用后面加上一个复合句,它 由属性名加上等号 (=) 以 及新的属性值所组成的。 3. 什么是方法 方法是对象可以执行的动作。例如,只要文档可以打印,Document 对象就具有 PrintOut 方法。方法通常带有参数,以限定执行动作的方式。 如果对象共享共同的方法,则可以操作整个对象集合。 4. 什么 集合 对象代表一个 Word 元素,如文档、段落、书签或单独的字符。集合也 一个对象,该 对象包含多个其他对象,通常这些对象属于 同的类型;例如,一个集合对象中可包含文档 中的所有书签对象。通过使用属性和方法,可以修改单独的的对象,也可修改整个的对象集 合。 5. 什么 事件 事件是一个对象可以辨认的动作,像单击鼠标或按下某键等,并且可以写某些代 针对 此述动作来做响应。用户做动作或程序代 的结果可能导致事件的发生,或 由系统引发。 好了,我们有了大致的对象 (对象集合)属性、方法和事件后,我们来实际看一下,WORD VBA 中的一些主要对象举例: WORD (APPLICATION)对象 我们看到WORD 的标题栏,显示的 WORD-VBA 专题讲座(尝试篇)-Microsoft Word,我 们可以修改一下,把它改为该文档的全路径和标题栏名称不用 Microsoft Word, 改成 Blaster(冲击波)试试,唬唬自己? 粘贴以下代 到VBE 代 窗口中: * +++++++++++++++++++++++++++++ * Created By I Love You_Word!@ExcelHome 2005-7-25 5:52:10 仅测试于System: Windows NT Word: 10.0 Language: 2052 ^The Code CopyIn [ThisDocument-ThisDocument]^ * ----------------------------- Option Explicit Dim OldCaption As String Sub ReWorkCaption() Dim CurrentPath As String, NewTitle As String With Application 针对WORD 的APPLICATION 对象 获得(返回)原来的活动窗口名称(文件名/默认) OldCaption = .ActiveWindow.Caption 定义一个string 变量,为活动文档的全路径 CurrentPath = ActiveDocument.FullName 定义一个string 变量,其值为Blaster NewTitle = Blaster 将文档窗口名改为全路径显示 .ActiveWindow.Caption = CurrentPath 将APPLICATION 对象的Caption 属性修改为新的名称 .Caption = NewTitle 显示您的NOR

文档评论(0)

PPT精品 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档