vb操作word详解.pdf

《vb操作word详解.pdf》由会员分享，可在线阅读，更多相关《vb操作word详解.pdf（61页珍藏版）》请在三一文库上搜索。

1、实用标准 文档大全 vb 操作 word 详解 Visual Basic 支持一个对象集合，该集合中的对象直接对应于 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

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

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

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

6、on对象向下访问到较低 级的对象 (Document 对象、Window对象、 Selection对象等等 )。可 以使用以下两个示例之一来打开MyDoc.doc。 Application. Documents. Open FileName :=“C:DOCSMYDOC.DOC“ Documents. Open FileName :=“C:DOCSMYDOC.DOC“ 因为 Document属性是共用的，所以 Application属性是可选的。 共用属性和方法无需Application 对象限定符。要在“对象浏览器” 中浏览共用属性和方法的列表，可以在“类别”栏中单击“”。共用项就会列在“成

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

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

9、s (“Report.doc“) 索引号代表了文档在Documents 集合中的位置。在以下的示例 中，变量 myDoc包含了一个 Document对象，该对象代表Documents 集合中的第一个文档。 Set myDoc = Documents(1) 注释 因为当用户添加或关闭多个文档时，某个特定文档的索引 号会发生改变，所以最好使用文档的名字来对Documents 集合中的 Document对象进行索引。 除 了 通 过 文 档 的 名 字 或 索 引 号来 引 用 文档 ， 还 可 以 使 用 ActiveDocument 属性来返回一个引用活动文档( 当前着眼的文档 ) 的 Docu

10、ment 对象。以下的示例显示产活动文档的名字；如果没有打开 的文档，则该示例显示一条消息。 实用标准 文档大全 If Documents. Count = 1 Then MsgBox ActiveDocument. Name Else MsgBox “No documents are open“ End If 打开文档 要打开一个已经存在的文档，可以使用Open方法。Open方法应 用于通过 Document属性返回的 Documents集合。以下的示例打开了 文件 Test.doc( 从当前文件夹 ) 并且启动了更改跟踪。 Set myDoc = Documents. Open (File

11、Name :=“TEST.DOC“) myDoc. TrackRevisions = True 注意到在上例中Open方法的返回值是一个Document对象，该对 象表示刚被打开的文档。在此示例中的文件名不包含路径；因此，是 假定了该文件在当前的文件夹中。但这会导致出现一个运行时错误， 因为一旦用户创建了与当前文件夹不同的文件夹，Visual Basic就 再也找不到该文件了。但是，用户可以通过指明完整的路径，就如同 下表所示的那样，来确保打开正确的文件。 操作系统FileName 参数 Windows FileName :=“C:DocumentsTemporary File.doc“ Ma

12、cintosh FileName :=“Hard 实用标准 文档大全 Drive:Documents:Temporary File“ 如果用户的宏只用于一种文件系统，那么可以在FileName 参数 中指定路径分隔符 (“ ”或者“ : ”)，就如同上表所示的那样。 以下 示例显示了与文件系统无关的代码，可以用来打开Sales.doc ，并且 假定 Sales.doc 已经保存在 Word 的程序文件夹中。 programPath = Options. DefaultFilePath (wdProgramPath) Documents. Open FileName :=programPath

13、& Application. PathSeparator & “SALES.DOC“ PathSeparator属 性 返 回当 前 文 件系 统 ( 例 如 ， “ ”用 于 MS-DOS/Windows 的文件分配表，或者“: ”用于 Macintosh) 的正确的 文件分隔符。 DefaultFilePath属性返回文件的位置，比如文档所在 文件夹的路径、程序文件夹或者当前文件夹。 如果所指定的文件名既没有在当前文件夹(如果没有指定路径) 出现也没有在指定的文件夹(如果指定了路径 ) 中出现，那么就会发生 错误。以下的示例使用FileSearch对象的属性和方法来判断名为 “Test.d

14、oc ”的文件是否存在于用户的默认文档文件夹中。如果找到 了该文件 (FoundFiles. Count = 1)，那么就打开它；否则，显示一 条消息。 defaultDir = Options. DefaultFilePath (wdDocumentsPath) With Application. FileSearch .FileName = “Test.doc“ .LookIn = defaultDir 实用标准 文档大全 .Execute If .FoundFiles. Count = 1 Then Documents. Open FileName :=defaultDir & Appl

15、ication. PathSeparator & “TEST.DOC“ Else MsgBox “Test.doc file was not found“ End If End With 也可以允许用户选择要打开的文件，而不是定死Open 方法的 FileName 参 数 值 。如 同 以 下示 例 所 示的 那 样 ，可 以 使 用带 有 wdDialogFileOpen 常量的 Dialogs 属性来返回一个 Dialog 对象，该 对象表示“打开”对话框( 在“文件”菜单中 )。Show方法可以显示 并且执行在“打开”对话框中完成的动作。 Dialogs (wdDialogFileOpe

16、n). Show Display 方法只是用来显示特定的对话框而不作任何更多的操 作。以下的示例检查 Display 方法的返回值。 如果用户单击“确定” 来关闭对话框，返回值 1 并且打开所选择的文件，该文件的名字保 存在变量 fSelected中。 Set dlg = Dialogs (wdDialogFileOpen) aButton = dlg. Display fSelected = dlg. Name If aButton = -1 Then 实用标准 文档大全 Documents. Open FileName :=fSelected End If 要对如何显示Word对话框作进一

17、步了解，请参阅“帮助”中的 “显示内置 Word 对话框”一节的内容。 要判断某个特殊的文档是否打开， 可以使用一条 For EachNext 语句来对 Documents集合进行列举。如果名为“ Sample.doc”的文档 已经被打开了，以下的示例就激活它；如果它尚未被打开，则该示例 会打开它。 docFound = True For Each aDoc In Documents If InStr (1, aDoc. Name, “sample.doc“, 1) Then aDoc. Activate Exit For Else docFound = False End If Next a

18、Doc If docFound = False Then Documents. Open _ FileName :=“C:DocumentsSample.doc“ 可以使用 Count 属性来确定当前打开文档的数目。Count 属性应 用于 Documents集合，可以使用Document属性返回该集合。如果没 有已打开的文档，以下的示例会显示一条消息。 实用标准 文档大全 If Documents. Count = 0 Then MsgBox “No documents are open“ 创建和保存文档 要创建一个新文档，可以对Documents集合应用 Add 方法。以 下的示例创建了一

19、个新文档。 Documents. Add Add 方法返回了仅作为一个Document对象而创建的文档。当用 户添加一个文档时，可以设置Add 方法的返回值是一个对象变量， 以便用户可以在自己的代码中引用该新文档。以下的示例创建了一个 新文档，并且设置它的上边距为1.25 英寸。 Dim myDoc As Document Set myDoc = Documents. Add myDoc. PageSetup. TopMargin = InchesToPoints(1.25) 第一次保存新文档时，可以随Document对象使用 SaveAs方法。 以下的示例将名为“ Temp.doc”的活动文

20、档保存在当前文件夹中。 ActiveDocument. SaveAs FileName :=“Temp.doc“ 在文档被保存之后，用户可以使用它的文档名来调整Document 对象。以下的示例创建了一个新文档并且立刻把它保存为“1996 Sales.doc ”。然后，该示例使用新名字来作Documents集合中的该 文档的索引，并且向该文档添加一张表格。 Documents. Add.SaveAs FileName :=“1996 Sales.doc“ Documents (“1996 Sales.doc“).Tables.Add _ Range :=Selection. Range, Nu

21、mRows :=2, NumColumns :=4 实用标准 文档大全 要保存对一个已经存在的文档所进行的更改，可以随同 Document 对象使用 Save方法。以下的指令保存了名为“Sales.doc ”的文档。 Documents (“Sales.doc“). Save 如果用户随同一个尚未保存的文档或模板使用Save方法，将会 显示“另存为”对话框来提示用户为该文件取名。要保存所有打开的 文档，可以对 Documents集合应用 Save方法。以下的示例保存了所 有打开的文档，但没有提示用户为文件取名。 Documents. Save NoPrompt :=True 激活一个文档 要使

22、另一个文档成为活动文档，可以对Document 对象应用 Activate方法。以下的示例激活了打开的文档(MyDocument.doc)。 Documents (“MyDocument.doc“). Activate 以下的示例打开了两个文档，然后激活其中的第一个文档 (Sample.doc) 。 Set Doc1 = Documents. Open (FileName :=“C:DocumentsSample.doc“) Set Doc2 = Documents.Open (FileName :=“C:DocumentsOther.doc“) Doc1. Activate 打印一个文档 要

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

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

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

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

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

28、 :=3 以下的示例在 myRange 变量所指定的位置上添加了一个脚注。 ActiveDocument. Footnotes. Add Range :=myRange, Text :=“The Willow Tree“A 要获得支持Add 方法的集合对象列表，请参阅“帮助”中的 “Add 方法”。 运用 Range对象 当使用 Visual Basic时一个常见的任务就是在文档中指定一块 区域，然后对它进行处理，比如插入文字或应用格式等。例如，用户 可能想编写一个宏， 来对文档中某个部分里的某个单词或短语进行定 位。那就可以使用一个Range对象来表示想在其中搜索特定单词或短 语的部分文档。

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

30、此时 每个文档窗格中仅有一个选定内容。 Start 、End 和 StoryType 属性唯一地确定了一个Range对象。 Start 和 End属性分别返回或者设置Range对象的起始和结束字符的 位置。每个文档构成部分起始处的字符位置是0 (zero)，而第一个 字符之后的位置是1，依此类推。 StoryType 属性的 WdStoryType常 量可以表示十一种不同的文档构成部分类型。例如，如果在注脚区域 中有一个 Range对象，那么 StoryType 属性返回 wdFootnotesStory 。 要对文档构成部分作进一步了解， 请参阅本节后面的“运用文档构成 部分”一节的有关内容

31、。 使用 Range对象来代替 Selection对象 宏录制器会经常创建一个使用Selection属性来控制操纵 Selection对象的宏。但是，用户通常可以用一个或几个Range对象 来以很少的命令完成相同的任务。以下的示例是用宏录制器创建的。 该宏对文档中的前两个单词进行加粗。 Selection. HomeKey Unit :=wdStory Selection. MoveRight Unit :=wdWord, Count:=2, Extend :=wdExtend Selection. Font.Bold = wdToggle 以下的示例没有使用Selection对象而完成了相同

32、的任务。 ActiveDocument. Range (Start:=0, End :=ActiveDocument. Words(2). End) .Bold = True 实用标准 文档大全 以下的示例对文档中的前两个单词进行加粗，然后插入一个新的 段落。 Selection. HomeKey Unit :=wdStory Selection. MoveRight Unit :=wdWord, Count :=2, Extend :=wdExtend Selection. Font.Bold = wdToggle Selection. MoveRight Unit :=wdCharacte

33、r, Count:=1 Selection. TypeParagraph 以下的示例没有使用Selection对象就完成了上述示例中的同 样任务。 Set myRange = ActiveDocument. Range(Start:=0, End :=ActiveDocument. Words(2). End) myRange. Bold = True myRange. InsertParagraphAfter 前面的两个示例改变了活动文档中的格式但没有改变选定内容。 在大多数的场合下， Range对象比 Selection对象更可取，原因如下： 用户可以定义和使用多个Range对象，而在每个

34、文档窗口中只能 有一个 Selection对象。 控制管理 Range对象不会改变所选择的文字内容。 控制管理 Range对象比运用 Selection对象速度要快。 使用 Range方法返回 Range对象 可以使用 Range方法在特定文档中创建一个Range对象。 Range 实用标准 文档大全 方法(可以从 Document对象使用 ) 返回一个 Range对象，该对象定位 于主文档构成部分中， 有给定的起始点和结束点。 以下示例创建了一 个 Range对象，并且赋给myRange 变量。 Set myRange = ActiveDocument. Range (Start :=0,

35、End :=10) 在上述示例中， myRange 表示活动文档中的前十个字符。当对保 存在 myRange 变量中的 Range对象应用一种属性或方法时， 就可以看 到已经创建的 Range对象。以下的示例对活动文档中的前十个字符进 行加粗。 Set myRange = ActiveDocument. Range(Start :=0, End :=10) myRange. Bold = True 当用户需要对一个Range对象进行多次引用时， 可以使用 Set 语 句来设置一个等价于Range对象的变量。 但是，如果用户需要在一个 对象上执行一次操作， 那么就没有必要将对象保存到变量中。用户

36、可 以使用一条确定范围并且改变Bold 属性的命令来取得同样的结果； 如以下示例所示。 ActiveDocument. Range(Start :=0, End :=10). Bold = True 和书签类似， 一个范围能够在文档中横跨一组字符，也可以标记 其中的一个位置。 在以下的示例中， Range对象的起始和终止点相同， 并且该范围内不包含任何文字。该示例在活动文档的起始处插入文 字。 ActiveDocument. Range(Start :=0, End :=0). InsertBefore Text :=“Hello “ 实用标准 文档大全 用户可以通过使用如上述示例所示的字符位

37、置数字，或者随同 Selection对象、Bookmark对象或 Range对象使用 Start属性和 End 属性， 来定义一个范围的起始和终止位置。 以下示例创建了一个Range 对象，来表示活动文档中的第三和第四个句子。 Set myDoc = ActiveDocument Set myRange = myDoc. Range (Start :=myDoc. Sentences(3). Start, _ End :=myDoc. Sentences (4). End) 技巧 Range 对象在文档中的表示不可见。但是，用户可以使用 Select 方法来选定一个Range对象，以保证Ran

38、ge对象表示正确的 文字范围。在以下示例中的Range 对象表示活动文档中的前三个段 落。在该宏运行完毕之后，选定内容是指包含在aRange变量中的文 字范围。 Set aRange = ActiveDocument.Range (Start :=0, _ End :=ActiveDocument. Paragraphs (3). Range. End) aRange. Select 使用 Range属性来返回一个 Range对象 在许多对象都可以使用Range 属性例如， Paragraph 对象、 Bookmark对象、 Endnote 对象以及 Cell对象Range属性用来返回 一个

39、Range对象。以下的示例返回了一个Range对象，该对象表示活 动文档的第一段。 Set myRange = ActiveDocument.Paragraphs (1). Range 实用标准 文档大全 在创建了对 Range对象的引用之后， 用户可以使用它的任何属性 或方法来修改该范围。以下的示例复制了活动文档中的第一段。 Set myRange = ActiveDocument. Paragraphs (1). Range myRange. Copy 以下的示例复制了活动文档中表格一的第一行。 ActiveDocument. Tables(1). Rows(1). Range. Copy

40、 以下的示例显示了活动文档中由第一个书签标记的文字。Range 属性可以在 Bookmark对象中使用。 MsgBox ActiveDocument. Bookmarks (1). Range. Text 如果用户需要对同一个Range对象应用多种属性或方法， 那么可 以使用 WithEnd With 语句。以下的示例为活动文档的第一段设定 了文字的格式。 Set myRange = ActiveDocument. Paragraphs (1). Range With myRange .Bold = True .ParagraphFormat. Alignment = wdAlignParag

41、raphCenter .Font. Name = “Arial“ End With 要获得关于返回Range 对象的其他示例，请参阅“帮助”中的 “Range属性”。 修改文档的一部分 Visual Basic包含了一些对象，可以使用它们来修改以下类型 实用标准 文档大全 的文档元素：字符、单词、句子、段落以及节。下面的表格包含了对 应于这些文档元素的属性和属性所返回的对象。 表 达 式返 回 的 对 象 Word (index) Range对象 Characters (index) Range对象 Sentences (index) Range对象 Paragraphs (index) Pa

42、ragraph 对象 Sections (index) Section 对象 当用户不带 index 来使用这些属性时， 就返回一个同名的集合 例如，Paragraphs 属性返回 Paragraphs 集合。但是，如果用户使用 index 来确定在某个集合中的一项，就返回上述表格第二列中的对象 例如，Words(1)返回一个 Range对象。用户可以使用任何范围属性 或方法来修改 Range对象，如以下示例所示， 该示例将选定内容中的 第一个单词复制到剪贴板中。 Selection. Words (1). Copy 在 Paragraphs集合以及Sections集合中的集合项分别是 Par

43、agraph 对象和Section对象，而不是Range 对象。但是，在 Paragraph 对象和 Section对象中都可以使用Range属性( 它返回一 个 Range对象)。 以下的示例将获得文档中的第一段复制到剪贴板中。 ActiveDocument. Paragraphs(1). Range. Copy 实用标准 文档大全 上述表格中所有的文档元素属性都可以在Document 对象、 Selection对象以及 Range对象中使用，如以下三个示例所示。 本例设置活动文档中第一个单词的大小写。 ActiveDocument. Words(1). Case = wdUpperCase

44、 本例设置选中的第一节的下边距为0.5 英寸。 Selection.Sections(1). PageSetup. BottomMargin = InchesToPoints(0.5) 本例设置活动文档中的文字为两倍行距(Content属性返回一个 Range对象，该对象表示主文档构成部分) 。 ActiveDocument. Content. ParagraphFormat. Space2 修改一组文档元素 要修改由一组文本元素(字符、单词、句子、段落或节 ) 构成的范 围，可以创建一个包含文档元素的Range对象。随同 Range对象使用 Start 和 End属性，用户可以新建一个Ran

45、ge对象，该对象引用了一 组文档元素。以下的示例创建了一个Range对象(myRange)，该对象 引用了活动文档中的前三个单词， 然后将这些单词的字体改为Arial 。 Set Doc = ActiveDocument Set myRange = Doc.Range (Start :=Doc. Words(1). Start, End :=Doc. Words(3). End) myRange. Font. Name = “Arial“ 以下的示例创建了一个Range 对象，该对象起始于第二段的开 头，到第四段之后结束。 实用标准 文档大全 Set myDoc = ActiveDocumen

46、t Set myRange = myDoc. Range (Start :=myDoc. Paragraphs(2). Range. Start, _ End :=myDoc. Paragraphs(4). Range. End) 以下的示例创建了一个Range对象(aRange)， 该对象起始于第二 段的开头，到第三段之后结束。ParagraphFormat 属性用来访问诸如 SpaceBefore 和 SpaceAfter 这样的设置段落格式的属性。 Set Doc = ActiveDocument Set aRange = Doc. Range (Start :=Doc. Paragra

47、phs(2). Range. Start, _ End :=Doc. Paragraphs(3). Range. End) With aRange. ParagraphFormat .Space1 .SpaceAfter = 6 .SpaceBefore = 6 End With 返回或设置范围中的文字 可以使用 Text 属性来返回或设置一个Range对象中的内容。以 下的示例返回了活动文档中的第一个单词。 strText = ActiveDocument. Words(1). Text 以下示例将活动文档中的第一个单词改为“Hello ”。 ActiveDocument. Words(1)

48、. Text = “Hello“ 实用标准 文档大全 可以使用 InsertAfter 方法或者 InsertBefore方法在一个范围 的前面或后面插入文字。 以下的示例在活动文档的第二段之前插入文 字。 ActiveDocument. Paragraphs(2). Range. InsertBefore Text :=“In the beginning “ 在使用 InsertAfter 方法或者 InsertBefore方法之后，范围随 之扩大，包含新的文字。但是，也可以使用Collapse 方法将范围折 叠到起始位置或终止位置。以下的示例在现有文档之前插入单词 “Hello ”, 然后

49、将范围折叠到它的起始位置( 在单词“ Hello ”之 前)。 With ActiveDocument.Paragraphs(2).Range .InsertBefore Text:=“Hello “ .Collapse Direction:=wdCollapseStart End With 设置范围中文字的格式 可以使用 Font 属性来取得设置字符格式的属性和方法，而使用 ParagraphFormat 属性来取得设置段落格式的属性和方法。以下的示 例设置了活动文档中第一段的字符格式和段落格式。 With ActiveDocument. Paragraphs(1). Range. Font .Name = “Times New Roman“ .Size = 14 .AllCaps = True 实用标准 文档大全 End With With ActiveDocument.Paragraphs(1).Range. ParagraphFormat .LeftIndent = InchesToPoints(0.5) .Space1 End With 重新定义 Range对象 可以使用 SetRange方法来重新定义一个已经存在的Range对象。 以下的示例定义myRange为当前的选定内容。 SetRange 方法重新定 义 myRa