WORD-VBA编程-从零开始学VBA(4)

5、从此之后，王子和公主就在您的Word中??哦？错了，应该是——从此以后，您的Word中，就多了一个可以播放Mpg、Mp3??等等媒体的小妞??啊，又错了，是“小钮”。当然，要播放的内容还得您自己为它指定（写进代码中去）。

本实例的知识扩展：

1、修改代码来确定媒体文件的路径及文件名不麻烦吗？难道您不愿意使用“输入框”？ 2、有没有办法指定一个文件夹后，播放器就自动将这个文件夹下的媒体文件一个一个地播放出来呢？或者，将要播放的文件名写在一个文本文件中，让播放器一个一个地读出它的名字来播放呢？

3、如果要求您不用“设计时”修改控件属性，而让您用“运行时”修改控件属性的方法，来制作步骤一中的界面，您不愿意试一试吗？

4、都有哪些附加控件？各附加控件的作用又都是什么呢？

本实例至此结束！VBA好玩吧？对我们的实例六，您是否已有所期待了呢？

从零开始，步入Word宏编程的世界（第六讲）

实例六：Word中的常用对像、属性、方法和事件

知识点：掌握Word中常用的对像并学习这些对像主要的属性、方法和事件。

在实例四中，我们已接触了对像、属性、方法和事件的基本概念，今天，我们就来学习一下Word中的常见对像以及它们的属性、方法和事件。本实例的内容稍微多了一些，为了便于朋友们的理解，以下将主要介绍Word中最重要的几个对象、属性、方法与事件。要想得到更详细的内容，朋友们可以在完全掌握本实例后，尝试看看VBA的帮助，在帮助文件中搜索“Microsoft Word 对象”即可。

本实例将重点介绍以下的对象，首先理清我们今天要学习的“对像”的结构层次——

Application对像：即Office中您正在运行的程序本身，如Word或Excel等。Application对像是一个应用程序中的“总对像”或者说是“顶级对像”。在Word中，Application对像包含了程序中可能会存在的其它所有对象，比如：所有的Word文档（Documents）、程序本身的工具栏与菜单栏（CommandBars）、程序的窗口（Window）、程序的内置对话框(Dialogs)等等??

Documents对像：即所有Word文档的集合。该对像中每一个单独的文档，即是文档对像“Document”。在Documents对像中，可以通过引用文档名字的方法来操作一个Document对像。

Document对像：Document对像又具许多子对像。本实例主要介绍两个——Range对象（字符串对像，可以是选定的一串字符或者是一个字符）与Selection对象（活动区域对像，可以是文档中选中的内容或者仅仅是一个插入点）；了解Paragraphs（段落集合对像）。

CommandBars对像：即“命令栏”对像。它是Application中所有菜单栏与工具栏的集合。我们在编程时，对菜单栏与工具栏的修改，都是通过操作“ComandBars”对像来实现的。（由于该对像在VBA编程中特别重要，我们将在实例七中单独对其进行介绍。）

Application对像

１、Application对像的Quit方法

该方法用于退出应用程序（Application）。例如： ’’=========关闭程序的代码========= sub 关闭程序 ( ) Application. quit End sub

执行本段代码，就会退出正在运行的Office程序（相应的Application对像，可以是Word、Excel等）。

在实际工作中，Quit方法可以用于提示用户保存所有目前打开的文档。下面例子中，如果用户单击“是”按钮，在退出 Word 前，所有打开的文档都将以 Word 格式进行保存。

’’========退出时提醒的代码======= Sub 退出时提醒保存 () Dim Tishi

Tishi = MsgBox(\您要保存目前所有的文档吗？\提示您保存文档\If Tishi = 6 Then

Application.Quit SaveChanges:=wdSaveChanges, OriginalFormat:=wdWordDocument End If End Sub 代码解释：

MsgBox的参数“4”与返回值“6”，现在大家不会不明白了吧？“4”表示显示“是、否”两个按钮，“6”则表示操作者选择的是“是”按钮。代码“SaveChanges:=wdSaveChanges”是指进行“保存”的操作；“OriginalFormat:=wdWordDocument”则指定保存的格式为Word的文档格式。关于“Save”方法，后面我们将会进一步学习。

２、Application对像的ActiveDocument属性

ActiveDocument属性返回一个Document对像（即当前正在使用的“活动文档”），下例显示当前活动文档的名称：

’’’’=========显示活动文档的名称========== Sub 显示名称() Dim nameA

NameA=Application.ActiveDocument.name Msgbox (NameA) end sub

本段代码中用到了Document对像的一个属性Name，该属性返回文档的名称。

Documents对像

（一）、Open方法——用于打开Documents集合中的单个Document对象 Open方法的基本语法格式：Documents对像.Open(可包含路径的文件名)。 比如：打开C盘MyFile文件夹下的MyDoc.doc文档—— ’’’==========打开文件========== Sub 打开文件()

Documents.Open (\End Sub

本代码演示了Open方法的基本使用格式。其实，Open方法的可选参数有很多，有的能指定“打开文档的方式”为“只读”，有的能指定“打开文档时所需的密码”等，参数的内容可在帮助文件中找到详细介绍。

（二）Add方法

Documents对像的“Add”方法，可以新建一篇空白文档，比如： ’’’==========新建文档========== Sub 新建文档() Documents. Add End sub

Add方法中可以使用以下参数：以何种样本模版为母版新建文档、是否将该新建的文档保存为另一个模版、新建的文档以何种类型保存（Web页、电子邮件、带框架的文档等）、新建文档是否显示（即可以隐藏）等等。参数的使用可以查找帮助文件。

（三）Item 方法

Item方法可以通过ID（集合中的序号）或名称返回集合的单个成员，例如： ’’’============显示 Documents 集合中第一篇文档的名字============ Sub 显示名字() Dim Ming

If Documents.Count >= 1 Then ’’如果集合中文档的个数大于或等于1，那么—— Ming = Documents.Item(1).Name’’获得第一个文档的名称 MsgBox (Ming) End If End sub

本例用到了Documents对像的一个属性“Count”，该属性的作用是“返回指定集合的中所有项目的个数”，本实例是返回了“已打开的所有文档的个数”。事实上，“Count”属性不单只是Documents对像的属性，其它的对像如Document、CommandBars等对像都具有这个属性。

Document对像 （一）Close方法

本方法用于关闭指定的文档。其基本格式为：“对像 . Close”（这里之所以写的“对像”而没有写“Document”，是因为“Close方法”其实是很多对像都有的方法，而且在使用时格式都相同）。

下例将关闭并保存活动文档。

’’’’=======关闭并保存文档======== Sub 关闭并保存文档 ( )

ActiveDocument. Close SaveChanges:=wdSaveChanges End Sub

（二）Range方法

Range方法在Document 对象中可以通过使用指定的开始和结束字符位置，返回一个 Range 对象（Range 对象在下面再做介绍。）。语句格式如下：

对像. Range(Start，End)

关键字Start是为了指定Range开始的位置；关键字End是为了指定Range结束的位置。具体应用请看下面的实例。

本实例，将活动文档中的前 150 个字符设置为青绿色。 ’’’’=======更改颜色======== sub 更改颜色 ()

ActiveDocument.Range(Start:=0, End:=150).Font.Color = RGB(0, 255, 0) End Sub

代码中将Font（字体）、Color（字色）属性值指定为RGB颜色设置的参数。 （三）Save 方法

Save方法用于保存指定的文档或模版。其基本格式为：对像 . Save（参数）。Save方法其实也不仅仅只是Document对像的方法，它同时也是Application与Documents对像的方法。本方法参数中最重要的是“指定保存方式”的参数——“NoPrompt”。如果“NoPrompt= True”，Word将自动保存所有文档并且不提醒用户；如果“NoPrompt=False”，则当一篇文档在上次存盘后进行了修改时，Word 就会提醒用户将文档保存为另一个。

下例保存 Documents 集合中的每一文档（本例没有举“Document对像”的例子），并且保存文档时不提示用户。

Sub 保存文档集合 ( )

Documents.Save NoPrompt:=True, OriginalFormat:=wdOriginalDocumentFormat End sub

（四）SaveAs 方法

该方法主要的作用是“用新的文件名或新的格式（非*.doc格式）”来保存指定文档。本方法对应 “文件”菜单中的“另存为”对话框。其语法及主要参数为：

Document对像.SaveAs(“文件名FileName”,“准备保存的格式FileFormat”, “打开文档时的密码Password”。参数FileFormat的常量可在帮助文档中找到。

下面的代码，将活动文档存为RTF格式（即“写字版”文档的格式），并将文件名改为“Text”。 ’’’’==========另存文档============ Sub 另存为格式 ( )

ActiveDocument.SaveAs FileName:=\End sub

Range对像

即字符串对像，Range对像的方法非常之多，以下主要介绍常用的Copy方法与Paste 方法。

Copy方法的作用是将所选内容复制到系统剪贴板，Paste 方法是将剪贴板中的内容粘贴到目标位置。 本例复制活动文档的第一段，并将该段落粘贴到文档的末尾。 ’’’’’’============复制与粘贴例============ Sub 复制与粘贴例（） Dim myRange

ActiveDocument.Paragraphs(1).Range.Copy

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库WORD-VBA编程-从零开始学VBA(4)在线全文阅读。