vb操作word详解.docx

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

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

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

4、动一个 Word 时段的同时，也创建了一个 Application 对象。用户可以使用 Application 对象的属性或方法来控制或返回 应用程序范围内的特性、控制应用程序窗口的外观或者调整 Word 对 象模型的 其他方面。 可以使用 Application 属 性来返回 Word Application 对象。以下的示例从视图状态切换到打印预览状态。Application. PrintPreview = TrueApplication 对象的一些属性控制着应用程序的外观。例如，如果 DisplayStatusBar 属性为 True（ 真 ） ，那么状态栏是可见的，如果WindowSt

5、ate 属性值为 wdWindowStateMaximize,那么应用程序窗口 处于最大化状态。以下的示例设置了屏幕上应用程序窗口的大小。With Application.WindowState = wdWindowStateNormal.Height = 450.Width = 600End WithApplication 对象的属性也可以访问处于对象层次中较低级的对 象，比如Windows集合（代表了当前所有打开的窗口）和Documents集 合（代表了当前所有打开的文档 ） 。用户可以使用属性， 有时候也叫做 访问者，从对象层次中最高一级的 Application 对象向下访问到较低 级

6、的对象（Document对象、Window对象、Selection 对象等等）。可 以使用以下两个示例之一来打开 MyDoc.doc。Application. Documents. OpenFileName :=C:DOCSMYDOC.DOCDocuments. Open FileName :=C:DOCSMYDOC.DOC 因为Document属性是共用的，所以Application 属性是可选的。 共用属性和方法无需 Application 对象限定符。要在“对象浏览器” 中浏览共用属性和方法的列表，可以在“类别”栏中单击“ 共用”。 共用项就会列在“成员”栏中。注释 Option 对象包

7、含了控制 Word 共用行为的一些属性。许多 Option 对象的属性对应于 Option 对话框中的各项 （Tools 菜单） 。使 用 Application 对象的 Option 属性可以返回 Option 对象。以下的 示例设置了三个应用程序范围内的选项 （因为 Option 属性是共用的， 所以在本示例中无需 Application 属性）。With Application.Options.AllowDragAndDrop = True.ConfirmConversions = False.MeasurementUnit = wdPointsEnd With运用Document对象当

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

9、集合中的位置。在以下的示例 中，变量 myDoc包含了一个 Document对象，该对象代表 Documents 集合中的第一个文档。Set myDoc = Docume nts(1)注释 因为当用户添加或关闭多个文档时，某个特定文档的索引 号会发生改变，所以最好使用文档的名字来对 Documents集合中的Docume nt对象进行索引。除了通过文档的名字或索引号来引用文档，还可以使用 ActiveDocument属性来返回一个引用活动文档(当前着眼的文档)的 Docume nt对象。以下的示例显示产活动文档的名字；如果没有打开 的文档，则该示例显示一条消息。If Docume nts. C

10、ount = 1 ThenMsgBox ActiveDocume nt. NameElseMsgBox No docume nts are ope nEnd If打开文档要打开一个已经存在的文档，可以使用 Open方法。Open方法应用于通过Document属性返回的Documents集合。以下的示例打开了 文件Test.doc(从当前文件夹)并且启动了更改跟踪。Set myDoc = Docume nts. Ope n (FileName :二TEST.DOC)myDoc. TrackRevisi ons = True注意到在上例中Open方法的返回值是一个Document对象，该对 象表示

11、刚被打开的文档。在此示例中的文件名不包含路径；因此，是 假定了该文件在当前的文件夹中。但这会导致出现一个运行时错误， 因为一旦用户创建了与当前文件夹不同的文件夹， Visual Basic 就再也找不到该文件了。但是，用户可以通过指明完整的路径，就如同F表所示的那样，来确保打开正确的文件操作系统FileName 参数Win dowsFileName :=C:Docume ntsTemporary File.docMacin toshFileName :二HardDrive:Docume nts:Temporary File如果用户的宏只用于一种文件系统，那么可以在 FileName 参数 中指

12、定路径分隔符 （“ ”或者“: ”），就如同上表所示的那样。以下 示例显示了与文件系统无关的代码，可以用来打开 Sales.doc ，并且 假定 Sales.doc 已经保存在 Word 的程序文件夹中。programPath = Options. DefaultFilePath （wdProgramPath）Documents. Open FileName :=programPath & Application. PathSeparator & SALES.DOCPathSeparator 属性 返回当前 文件 系统 （ 例如 ，“ ”用 于 MS-DOS/Window的文件分配表，或者“：

13、”用于Macintosh）的正确的 文件分隔符。 DefaultFilePath 属性返回文件的位置，比如文档所在 文件夹的路径、程序文件夹或者当前文件夹。如果所指定的文件名既没有在当前文件夹 （如果没有指定路径 ） 出现也没有在指定的文件夹 （如果指定了路径 ） 中出现，那么就会发生 错误。以下的示例使用 FileSearch 对象的属性和方法来判断名为 “Test.doc ”的文件是否存在于用户的默认文档文件夹中。 如果找到 了该文件 （FoundFiles. Count = 1） ，那么就打开它；否则，显示一 条消息。defaultDir = Options. DefaultFilePa

14、th （wdDocumentsPath）With Application. FileSearch.FileName = Test.doc.LookIn = defaultDir.ExecuteIf .FoundFiles. Count = 1 ThenDocuments. Open FileName ：=defaultDir & Application. PathSeparator & TEST.DOCElseMsgBox Test.doc file was not foundEnd IfEnd With也可以允许用户选择要打开的文件，而不是定死 Open 方法的 FileName 参数值。如

15、同以下示例所示的 那样， 可以使用 带有 wdDialogFileOpen 常量的 Dialogs 属性来返回一个 Dialog 对象，该 对象表示“打开”对话框（在“文件”菜单中）。Show方法可以显示 并且执行在“打开”对话框中完成的动作。Dialogs （wdDialogFileOpen）. ShowDisplay 方法只是用来显示特定的对话框而不作任何更多的操 作。以下的示例检查 Display 方法的返回值。如果用户单击“确定” 来关闭对话框，返回值 1并且打开所选择的文件，该文件的名字保存在变量 fSelected 中。Set dlg = Dialogs (wdDialogFile

16、Open)aButton = dlg. DisplayfSelected = dlg. NameIf aButton = -1 ThenDocuments. Open FileName :=fSelectedEnd If要对如何显示 Word对话框作进一步了解，请参阅“帮助”中的 “显示内置 Word 对话框”一节的内容。要判断某个特殊的文档是否打开，可以使用一条For EachNext 语句来对Documents集合进行列举。如果名为“ Sample.doc”的文档 已经被打开了，以下的示例就激活它；如果它尚未被打开，则该示例 会打开它。docFound = TrueFor Each aDo

17、c In DocumentsIf InStr (1, aDoc. Name, sample.doc, 1) ThenaDoc. ActivateExit ForElsedocFound = FalseEnd IfNext aDocIf docFound = False Then Documents. Open _FileName :=C:DocumentsSample.doc可以使用Count属性来确定当前打开文档的数目。Count属性应 用于Documents集合，可以使用 Document属性返回该集合。如果没 有已打开的文档，以下的示例会显示一条消息。If Documents. Coun

18、t = 0 Then MsgBoxNo documents are open 创建和保存文档要创建一个新文档，可以对 Documents集合应用Add方法。以 下的示例创建了一个新文档。Documents. AddAdd方法返回了仅作为一个Document对象而创建的文档。当用 户添加一个文档时，可以设置 Add 方法的返回值是一个对象变量， 以便用户可以在自己的代码中引用该新文档。 以下的示例创建了一个 新文档，并且设置它的上边距为 1.25 英寸。Dim myDoc As DocumentSet myDoc = Documents. AddmyDoc. PageSetup. TopMarg

19、in = InchesToPoints(1.25)第一次保存新文档时，可以随 DocumentX寸象使用SaveAs方法。 以下的示例将名为“ Temp.doC的活动文档保存在当前文件夹中。ActiveDocument. SaveAs FileName :=Temp.doc 在文档被保存之后，用户可以使用它的文档名来调整 Document寸象。以下的示例创建了一个新文档并且立刻把它保存为“ 1996Sales.doc ”然后，该示例使用新名字来作 Documents集合中的该文 档的索引，并且向该文档添加一张表格。Documents. Add.SaveAs FileName :=1996 Sa

20、les.docDocuments (1996 Sales.doc).Tables.Add _Range :=Selection. Range, NumRows :=2, NumColumns :=4 要保存寸一个已经存在的文档所进行的更改， 可以随同 Document 对象使用Save方法。以下的指令保存了名为“ Sales.doc”的文档。Documents (Sales.doc). Save如果用户随同一个尚未保存的文档或模板使用 Save方法，将会显示“另存为” 对话框来提示用户为该文件取名。要保存所有打开的 文档，可以对Documents集合应用Save方法。以下的示例保存了所 有打开

21、的文档，但没有提示用户为文件取名。Documents. Save NoPrompt :=True激活一个文档要使另一个文档成为活动文档，可以对 Document 对象应用 Activate 方法。以下的示例激活了打开的文档 (MyDocument.doc)。OpenDocuments (MyDocument.doc). Activate 以下的示例打开了两个文档，然后激活其中的第一个文档 (Sample.doc) 。Set Doc1 = Documents.(FileName :=C:DocumentsSample.doc)Set Doc2 = Documents.Open(FileName

22、:=C:DocumentsOther.doc)Doc1. Activate打印一个文档要打印一个文档，可以对 Document对象应用PrintOut方法， 如以下示例所示。ActiveDocument. PrintOut要通过程序来设置那些也可以在“打印”对话框 ( 在“文件”菜 单中 )里进行设置的打印选项，可以使用 PrintOut 方法的参数来实 现。用户可以使用 Options 对象的属性来设置打印选项，这些选项 也可以在“选项”对话框 ( 在“工具”菜单中 )“打印”一表里进行设 置。以下示例设置活动文档打印隐藏的文字，并且只打印出前三页。Options. PrintHiddenT

23、ext = TrueActiveDocument. PrintOut Range :=wdPrintFromTo, From :=1, To :=3关闭文档要关闭一个文档，可以对 Document对象应用Close方法。以下 的示例关闭了名为“ Sales.doc ”的文档。Documents (Sales.doc). Close如果对文档进行过修改， Word 会显示出一条消息来询问用户是 否要 保 存所进行 的修改 。 用 户可以 随 SaveChanges 参数使 用 wdDoNotSaveCha nge或wdSaveCha nges常量来使该提示不再出现。 以下的示例保存并且关闭了 S

24、ales.doc 。Documents (Sales.doc). CloseSaveChanges :=wdSaveChanges要关闭所有已打开的文档，可以对Documents集合应用Close方 法。以下的示例没有保存修改就关闭了所有的文档。Documents. Close SaveChanges :=wdDoNotSaveChanges访问文档中的对象用户可以从 Document 对象来访问返回对象的一系列属性和方 法。要查看在Document对象中所能使用的对象的层次关系图，可以 参阅“帮助”中的 “Microsoft Word对象(Documents) ”。例如，Table 属性，它

25、能够返回一个 Table对象的集合，可以在 Document对象中 使用。随着一个集合对象使用的 Count 属性能够判断在该集合中所包 含的项数。以下的示例显示一条消息来指出在活动文档中有多少表 格。MsgBox ActiveDocument. Tables. Count & table(s) in this document使用 Table(index) 可以返回一个单张表格对象，这里的 index 是索引号。在以下的示例中， myTable 代表“ Sales.doc ”文档里的 第一张表格。Set myTable = Documents (Sales.doc). Tables(1) 关

26、于返回一个特殊对象的信息可以从 “帮助”中的对象主题本身 (例如，“Table对象”)和相应的集合对象主题(例如，“Table集合 对象” ) 中获得。向文档添加对象可以使用随着能在Docume nt对象中访问的集合对象的 Add方法 来向文档添加诸如脚注、备注或表格这样的对象。例如，以下命令在 myRange变量(myRange是一个包含了一个Range对象的对象变量)所 指定的位置上添加了一张3x3的表格。ActiveDocument. Tables. Add Range :二myRange, NumRows=3, NumColum ns :=3以下的示例在myRange变量所指定的位置上

27、添加了一个脚注。ActiveDocume nt. Foot no tes. Add Range :=myRa nge,Text :二The Willow TreeA要获得支持Add方法的集合对象列表，请参阅“帮助”中的“Add 方法”。运用Range对象当使用Visual Basic 时一个常见的任务就是在文档中指定一块 区域，然后对它进行处理，比如插入文字或应用格式等。例如，用户 可能想编写一个宏，来对文档中某个部分里的某个单词或短语进行定 位。那就可以使用一个Range对象来表示想在其中搜索特定单词或短 语的部分文档。在确定Range对象后，用户能够应用该对象的方法和 属性来修改相应范围中

28、的内容。一个Range对象代表了文档中的一块连续的区域。每一个 Range 对象都由一个起始字符位置和一个终止字符位置来定义。 与用户在文档中使用书签的方法类似，可以在 Visual Basic 中使用Range对象 来识别一个文档的特定部分。一个 Range对象既可以和插入点一样小，也可以和整个文档一样大。但是，与书签不同， Ra nge对象仅仅在定义它的过程正在运行时才存在。Range对象同选定内容相互独立；也就是说，可以定义和修改范 围而不会改变选定内容。用户也可以在文档中定义多个范围， 而此时每个文档窗格中仅有一个选定内容。Start、End和StoryType属性唯一地确定了一个 R

29、ange对象。Start和End属性分别返回或者设置 Range对象的起始和结束字符的 位置。每个文档构成部分起始处的字符位置是 0 (zero)，而第一个字符之后的位置是1,依此类推。StoryType属性的WdStoryType常 量可以表示十一种不同的文档构成部分类型。例如，如果在注脚区域 中有一个 Range对象，那么StoryType属性返回wdFootnotesStory。 要对文档构成部分作进一步了解，请参阅本节后面的“运用文档构成 部分”一节的有关内容。使用Range对象来代替Selection对象宏录制器会经常创建一个使用 Selection 属性来控制操纵Selection

30、对象的宏。但是，用户通常可以用一个或几个 Ra nge对象来以很少的命令完成相同的任务。以下的示例是用宏录制器创建的。 该宏对文档中的前两个单词进行加粗。Selection. HomeKey Unit :=wdStorySelection. MoveRight Unit :=wdWord, Count:=2, Extend :=wdExtendSelection. Font.Bold = wdToggle以下的示例没有使用 Selection 对象而完成了相同的任务。ActiveDocument. Range (Start:=0, End :=ActiveDocument. Words(2).

31、 End) .Bold = True以下的示例对文档中的前两个单词进行加粗， 然后插入一个新的 段落。Selection. HomeKey Unit :=wdStorySelection. MoveRight Unit :=wdWord, Count :=2, Extend :=wdExtendSelection. Font.Bold = wdToggleSelection. MoveRight Unit :=wdCharacter, Count:=1Selection. TypeParagraph 以下的示例没有使用 Selection 对象就完成了上述示例中的同 样任务。Set myRange = ActiveDocument. Range(Start:=0, End :=ActiveDocument. Words(2). End)myRange. Bold = TruemyRange. InsertParagraphAfter 前面的两个示例改变了活动文档中的格式但没有改变选定内容。在大多数的场合下，Range对象比Selection对象更可取，原因如下： 用户可以定义和使用多个 Range对象，而在每个文档窗口中只能 有一个 Selection 对象。控制管理Range对象不会改变所选择