vb操作word详解

上传人:工**** 文档编号:465767919 上传时间:2023-01-01 格式:DOC 页数:69 大小:478.50KB
返回 下载 相关 举报
vb操作word详解_第1页
第1页 / 共69页
vb操作word详解_第2页
第2页 / 共69页
vb操作word详解_第3页
第3页 / 共69页
vb操作word详解_第4页
第4页 / 共69页
vb操作word详解_第5页
第5页 / 共69页
点击查看更多>>
资源描述

《vb操作word详解》由会员分享,可在线阅读,更多相关《vb操作word详解(69页珍藏版)》请在金锄头文库上搜索。

1、vb 操作 word 详解VisualBasic 支持一个对象集合,该集合中的对象直接对应于Microsoft Word 97中的元素,并且通过用户界面,用户熟悉这些元素中的绝大多数。例如,Document 对象代表了一个打开的文档,Bookmark 对象代表了一个文档中的书签,而Selection对象则代表了在一个文档窗口窗格中的选定内容。在 Word 中,每一类元素文档、表格、段落、书签、域等等都可以用 Visual Basic 的对象来表示。要在 Word中自动执行任务, 可以使用这些对象的方法和属性。关于理解和使用 Microsoft Office 97 对象模型的一般性内容,请参阅本

2、书的第二章“理解对象模型”。在 Microsoft Office 97 中的对象模型相当丰富,其中包含了大约 180 个对象。要查看 Word对象模型的层次关系图,请参阅“帮助”中的“ Microsoft Word 对象”。要获得对某种特定对象的详细描述, 可以在此图中单击该对象的名字,或是在“帮助”的索引中对特定对象进行搜索。怎样显示 Word Visual Basic帮助要使用 Word Visual Basic 帮助,必须在安装过程中选择“自定义”的安装方式,并且为 Word选中“ Visual Basic 在线帮助”复选框。否则,安装程序不会安装 Visual Basic 帮助。如果用

3、户已经安装好了 Word,那么可以再次运行 Setup 程序来安装 Visual Basic 帮助。要查看 Word Visual Basic帮助,可以在“ Visual Basic编辑器里的“帮助”菜单中点击“目录和索引”一项。在“帮助主题”对话框的“目录”一表中,双击“Microsoft Word Visual Basic参考”,然后再双击“ Visual Basic参考”。“帮助主题”对话框会重新出现,显示出Microsoft Word Visual Basic的目录和索引。运用 Application对象在用户启动一个Word 时段的同时,也创建了一个Application对象。用户可

4、以使用Application对象的属性或方法来控制或返回应用程序范围内的特性、控制应用程序窗口的外观或者调整Word 对象模型的其他方面 。 可以使用Application属性来返回WordApplication对象。以下的示例从视图状态切换到打印预览状态。Application. PrintPreview = TrueApplication对象的一些属性控制着应用程序的外观。例如,如果 DisplayStatusBar 属性为 True( 真) ,那么状态栏是可见的,如果WindowState 属性值为 wdWindowStateMaximize,那么应用程序窗口处于最大化状态。以下的示例设

5、置了屏幕上应用程序窗口的大小。With Application.WindowState = wdWindowStateNormal.Height = 450.Width = 600End WithApplication对象的属性也可以访问处于对象层次中较低级的对象,比如 Windows集合 ( 代表了当前所有打开的窗口) 和 Documents集合( 代表了当前所有打开的文档 ) 。用户可以使用属性, 有时候也叫做访问者,从对象层次中最高一级的 Application 对象向下访问到较低级的对象 (Document 对象、 Window对象、 Selection对象等等 ) 。可以使用以下两个

6、示例之一来打开MyDoc.doc。Application. Documents. Open :=C:DOCSMYDOC.DOCDocuments. Open :=C:DOCSMYDOC.DOC因为 Document属性是共用的,所以 Application属性是可选的。共用属性和方法无需Application对象限定符。要在“对象浏览器”中浏览共用属性和方法的列表,可以在“类别”栏中单击“”。共用项就会列在“成员”栏中。注释 Option 对象包含了控制 Word 共用行为的一些属性。许多 Option 对象的属性对应于 Option 对话框中的各项 (Tools 菜单 ) 。使用 Appli

7、cation 对象的 Option 属性可以返回 Option 对象。以下的示例设置了三个应用程序范围内的选项 ( 因为 Option 属性是共用的,所以在本示例中无需 Application 属性 ) 。With Application.Options.AllowDragAndDrop = True.ConfirmConversions = False.MeasurementUnit = wdPoints End With运用 Document对象当用户在Word 中打开或创建一个文件的同时,也创建了一个Document对象。用户可以使用Document对象或 Documents集合的属性或

8、方法来打开、创建、保存、激活或者关闭文件。返回 Document对象用户可以使用语法Documents (index) 来返回作为一个Document对象的任何打开的文档, 在这里 index 是该文档的名字或索引号。 在以下的示例中,变量myDoc包含一个 Document 对象,该对象代表名为“ Report.doc ”的打开的文档。Set myDoc = Documents (Report.doc)索引号代表了文档在Documents 集合中的位置。在以下的示例中,变量 myDoc包含了一个 Document 对象,该对象代表Documents集合中的第一个文档。Set myDoc =

9、Documents(1)注释 因为当用户添加或关闭多个文档时,某个特定文档的索引号会发生改变,所以最好使用文档的名字来对 Documents 集合中的Document对象进行索引。除了通过文档的名字或索引号来引用文档,还可以使用 ActiveDocument 属性来返回一个引用活动文档 ( 当前着眼的文档 ) 的 Document 对象。以下的示例显示产活动文档的名字;如果没有打开的文档,则该示例显示一条消息。If Documents. Count = 1 ThenMsgBox ActiveDocument. NameElseMsgBox No documents are openEnd If

10、打开文档要打开一个已经存在的文档,可以使用Open方法。 Open方法应用于通过 Document属性返回的 Documents集合。以下的示例打开了文件 Test.doc( 从当前文件夹 ) 并且启动了更改跟踪。Set myDoc = Documents. Open ( :=TEST.DOC)myDoc. TrackRevisions = True注意到在上例中Open方法的返回值是一个Document对象,该对象表示刚被打开的文档。在此示例中的文件名不包含路径;因此,是假定了该文件在当前的文件夹中。但这会导致出现一个运行时错误,因为一旦用户创建了与当前文件夹不同的文件夹,Visual Ba

11、sic就再也找不到该文件了。但是,用户可以通过指明完整的路径,就如同下表所示的那样,来确保打开正确的文件。操作系统参数Windows:=C:DocumentsTemporary Macintosh:=HardDrive:Documents:Temporary File如果用户的宏只用于一种文件系统,那么可以在参数中指定路径分隔符 ( “ ”或者“ : ”) ,就如同上表所示的那样。 以下示例显示了与文件系统无关的代码,可以用来打开Sales.doc ,并且假定Sales.doc 已经保存在 Word 的程序文件夹中。programPath = Options. Default (wdProgr

12、amPath)Documents.Open:=programPath&Application.PathSeparator & SALES.DOCPathSeparator属性返回当前文件系统( 例如,“ ”用于MS-DOS/Windows的文件分配表,或者“ : ”用于 Macintosh) 的正确的文件分隔符。 Default属性返回文件的位置,比如文档所在文件夹的路径、程序文件夹或者当前文件夹。如果所指定的文件名既没有在当前文件夹( 如果没有指定路径)出现也没有在指定的文件夹( 如果指定了路径 ) 中出现,那么就会发生错误。以下的示例使用对象的属性和方法来判断名为“Test.doc ”的文件是否存在于用户的默认文档文件夹中。如果找到了该文件(FoundFiles. Count = 1),那么就打开它;否则,显示一条消息。defaultDir = Options. Default (wdDocumentsPath)With Application. = Test.doc.LookIn = defaultDir.ExecuteIf .FoundFiles. Count = 1 ThenDocuments.Open:=defaultDir&Application.PathSeparator & TEST.DOCElseMsgBox Test.doc not foundEnd

展开阅读全文
相关资源
正为您匹配相似的精品文档
相关搜索

最新文档


当前位置:首页 > 办公文档 > 演讲稿/致辞

电脑版 |金锄头文库版权所有
经营许可证:蜀ICP备13022795号 | 川公网安备 51140202000112号