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 Basic 帮
3、助。如果用户已经安装好了 Word，那么可以再次运行 Setup 程序来安装 Visual Basic 帮助。要查看 Word Visual Basic 帮助，可以在“Visual Basic 编辑器里的“帮助”菜单中点击“目录和索引”一项。在“帮助主题”对话框的“目录”一表中，双击“Microsoft Word Visual Basic 参考” ，然后再双击“Visual Basic 参考 ”。 “帮助主题”对话框会重新出现，显示出 Microsoft Word Visual Basic 的目录和索引。运用 Application 对象在用户启动一个 Word 时段的同时，也创建了一个 Ap
4、plication对象。用户可以使用 Application 对象的属性或方法来控制或返回应用程序范围内的特性、控制应用程序窗口的外观或者调整 Word 对象模型的其他方面。可以使用 Application 属性来返回 Word Application 对象。以下的示例从视图状态切换到打印预览状态。 Application. PrintPreview = TrueApplication 对象的一些属性控制着应用程序的外观。例如，如果 DisplayStatusBar 属性为 True(真)，那么状态栏是可见的，如果 WindowState 属性值为 wdWindowStateMaximize，
5、那么应用程序窗口处于最大化状态。以下的示例设置了屏幕上应用程序窗口的大小。 With Application.WindowState = wdWindowStateNormal.Height = 450.Width = 600End WithApplication 对象的属性也可以访问处于对象层次中较低级的对象，比如 Windows 集合(代表了当前所有打开的窗口)和Documents 集合(代表了当前所有打开的文档)。用户可以使用属性，有时候也叫做访问者，从对象层次中最高一级的 Application 对象向下访问到较低级的对象(Document 对象、Window 对象、 Selectio
6、n 对象等等)。可以使用以下两个示例之一来打开MyDoc.doc。 Application. Documents. Open FileName :=“C:DOCSMYDOC.DOC“Documents. Open FileName :=“C:DOCSMYDOC.DOC“因为 Document 属性是共用的，所以 Application 属性是可选的。共用属性和方法无需 Application 对象限定符。要在“对象浏览器”中浏览共用属性和方法的列表，可以在“类别”栏中单击“” 。共用项就会列在“成员”栏中。注释 Option 对象包含了控制 Word 共用行为的一些属性。许多Option 对象
7、的属性对应于 Option 对话框中的各项(Tools 菜单)。使用 Application 对象的 Option 属性可以返回 Option 对象。以下的示例设置了三个应用程序范围内的选项(因为 Option 属性是共用的，所以在本示例中无需 Application 属性)。 With Application.Options.AllowDragAndDrop = True.ConfirmConversions = False.MeasurementUnit = wdPointsEnd With运用 Document 对象当用户在 Word 中打开或创建一个文件的同时，也创建了一个Docume
8、nt 对象。用户可以使用 Document 对象或 Documents 集合的属性或方法来打开、创建、保存、激活或者关闭文件。返回 Document 对象用户可以使用语法 Documents (index)来返回作为一个Document 对象的任何打开的文档，在这里 index 是该文档的名字或索引号。在以下的示例中，变量 myDoc 包含一个 Document 对象，该对象代表名为“Report.doc”的打开的文档。 Set myDoc = Documents (“Report.doc“)索引号代表了文档在 Documents 集合中的位置。在以下的示例中，变量 myDoc 包含了一个 D
9、ocument 对象，该对象代表 Documents集合中的第一个文档。 Set myDoc = Documents(1)注释 因为当用户添加或关闭多个文档时，某个特定文档的索引号会发生改变，所以最好使用文档的名字来对 Documents 集合中的Document 对象进行索引。除了通过文档的名字或索引号来引用文档，还可以使用ActiveDocument 属性来返回一个引用活动文档(当前着眼的文档)的Document 对象。以下的示例显示产活动文档的名字；如果没有打开的文档，则该示例显示一条消息。 If Documents. Count = 1 Then MsgBox ActiveDocume
10、nt. NameElseMsgBox “No documents are open“End If打开文档要打开一个已经存在的文档，可以使用 Open 方法。Open 方法应用于通过 Document 属性返回的 Documents 集合。以下的示例打开了文件 Test.doc(从当前文件夹)并且启动了更改跟踪。 Set myDoc = Documents. Open (FileName :=“TEST.DOC“)myDoc. TrackRevisions = True注意到在上例中 Open 方法的返回值是一个 Document 对象，该对象表示刚被打开的文档。在此示例中的文件名不包含路径；因
11、此，是假定了该文件在当前的文件夹中。但这会导致出现一个运行时错误，因为一旦用户创建了与当前文件夹不同的文件夹，Visual Basic 就再也找不到该文件了。但是，用户可以通过指明完整的路径，就如同下表所示的那样，来确保打开正确的文件。 操作系统 FileName 参数Windows FileName :=“C:DocumentsTemporary File.doc“ Macintosh FileName :=“Hard Drive:Documents:Temporary File“ 如果用户的宏只用于一种文件系统，那么可以在 FileName 参数中指定路径分隔符(“”或者“:”)，就如同上
12、表所示的那样。以下示例显示了与文件系统无关的代码，可以用来打开 Sales.doc，并且假定 Sales.doc 已经保存在 Word 的程序文件夹中。 programPath = Options. DefaultFilePath (wdProgramPath)Documents. Open FileName :=programPath & Application. PathSeparator & “SALES.DOC“PathSeparator 属性返回当前文件系统(例如， “”用于 MS-DOS/Windows 的文件分配表，或者“:”用于 Macintosh)的正确的文件分隔符。Defa
13、ultFilePath 属性返回文件的位置，比如文档所在文件夹的路径、程序文件夹或者当前文件夹。如果所指定的文件名既没有在当前文件夹(如果没有指定路径)出现也没有在指定的文件夹(如果指定了路径)中出现，那么就会发生错误。以下的示例使用 FileSearch 对象的属性和方法来判断名为“Test.doc”的文件是否存在于用户的默认文档文件夹中。如果找到了该文件(FoundFiles. Count = 1)，那么就打开它；否则，显示一条消息。 defaultDir = Options. DefaultFilePath (wdDocumentsPath)With Application. FileS
14、earch.FileName = “Test.doc“.LookIn = defaultDir.ExecuteIf .FoundFiles. Count = 1 ThenDocuments. Open FileName :=defaultDir & Application. PathSeparator & “TEST.DOC“ElseMsgBox “Test.doc file was not found“End IfEnd With也可以允许用户选择要打开的文件，而不是定死 Open 方法的FileName 参数值。如同以下示例所示的那样，可以使用带有wdDialogFileOpen 常量的
15、Dialogs 属性来返回一个 Dialog 对象，该对象表示“打开”对话框(在“文件”菜单中)。Show 方法可以显示并且执行在“打开”对话框中完成的动作。 Dialogs (wdDialogFileOpen). ShowDisplay 方法只是用来显示特定的对话框而不作任何更多的操作。以下的示例检查 Display 方法的返回值。如果用户单击“确定”来关闭对话框，返回值1 并且打开所选择的文件，该文件的名字保存在变量 fSelected 中。 Set dlg = Dialogs (wdDialogFileOpen)aButton = dlg. DisplayfSelected = dlg.
16、 NameIf aButton = -1 ThenDocuments. Open FileName :=fSelectedEnd If要对如何显示 Word 对话框作进一步了解，请参阅“帮助”中的“显示内置 Word 对话框”一节的内容。要判断某个特殊的文档是否打开，可以使用一条 For EachNext 语句来对 Documents 集合进行列举。如果名为“Sample.doc”的文档已经被打开了，以下的示例就激活它；如果它尚未被打开，则该示例会打开它。 docFound = TrueFor Each aDoc In DocumentsIf InStr (1, aDoc. Name, “sa
17、mple.doc“, 1) Then aDoc. ActivateExit ForElsedocFound = FalseEnd IfNext aDocIf docFound = False Then Documents. Open _FileName :=“C:DocumentsSample.doc“可以使用 Count 属性来确定当前打开文档的数目。Count 属性应用于 Documents 集合，可以使用 Document 属性返回该集合。如果没有已打开的文档，以下的示例会显示一条消息。 If Documents. Count = 0 Then MsgBox “No documents
18、are open“创建和保存文档要创建一个新文档，可以对 Documents 集合应用 Add 方法。以下的示例创建了一个新文档。 Documents. AddAdd 方法返回了仅作为一个 Document 对象而创建的文档。当用户添加一个文档时，可以设置 Add 方法的返回值是一个对象变量，以便用户可以在自己的代码中引用该新文档。以下的示例创建了一个新文档，并且设置它的上边距为 1.25 英寸。 Dim myDoc As DocumentSet myDoc = Documents. AddmyDoc. PageSetup. TopMargin = InchesToPoints(1.25)第一
19、次保存新文档时，可以随 Document 对象使用 SaveAs 方法。以下的示例将名为“Temp.doc”的活动文档保存在当前文件夹中。 ActiveDocument. SaveAs FileName :=“Temp.doc“在文档被保存之后，用户可以使用它的文档名来调整 Document对象。以下的示例创建了一个新文档并且立刻把它保存为“1996 Sales.doc”。然后，该示例使用新名字来作 Documents 集合中的该文档的索引，并且向该文档添加一张表格。 Documents. Add.SaveAs FileName :=“1996 Sales.doc“Documents (“19
20、96 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)。 Documents (“MyDocument.doc“). Activate以下的示例打开了两个文档，然后激活其中的第一个文档(Sample.doc)。 Set Doc1 = Documents. Open (FileName :=“C:DocumentsSample.doc“)Set Doc2 = Documents.Open (FileName :=“C:Docume
22、ntsOther.doc“)Doc1. Activate打印一个文档要打印一个文档，可以对 Document 对象应用 PrintOut 方法，如以下示例所示。 ActiveDocument. PrintOut要通过程序来设置那些也可以在“打印”对话框(在“文件”菜单中)里进行设置的打印选项，可以使用 PrintOut 方法的参数来实现。用户可以使用 Options 对象的属性来设置打印选项，这些选项也可以在“选项”对话框(在“工具”菜单中)“打印”一表里进行设置。以下示例设置活动文档打印隐藏的文字，并且只打印出前三页。 Options. PrintHiddenText = TrueActiv
23、eDocument. PrintOut Range :=wdPrintFromTo, From :=“1“, To :=“3“关闭文档要关闭一个文档，可以对 Document 对象应用 Close 方法。以下的示例关闭了名为“Sales.doc”的文档。 Documents (“Sales.doc“). Close如果对文档进行过修改，Word 会显示出一条消息来询问用户是否要保存所进行的修改。用户可以随 SaveChanges 参数使用wdDoNotSaveChanges 或 wdSaveChanges 常量来使该提示不再出现。以下的示例保存并且关闭了 Sales.doc。 Document
24、s (“Sales.doc“). Close SaveChanges :=wdSaveChanges要关闭所有已打开的文档，可以对 Documents 集合应用 Close方法。以下的示例没有保存修改就关闭了所有的文档。 Documents. Close SaveChanges :=wdDoNotSaveChanges访问文档中的对象用户可以从 Document 对象来访问返回对象的一系列属性和方法。要查看在 Document 对象中所能使用的对象的层次关系图，可以参阅“帮助”中的“Microsoft Word 对象(Documents)” 。例如，Table属性，它能够返回一个 Table
25、对象的集合，可以在 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集合对象”)中获得。向文档添加对象可以使用随着能在 Document 对象中访问的集合对象的 Add 方法来向文档添加诸如脚注、备注或表格这样的对象。例如，以下命令在 myRange 变量(myRange 是一个包含了一个 Range 对象的对象变量)所指定的位置上添加了一张 3x3 的表格。 ActiveDocument. Tables. Add Range :=myRange, NumRows :=3, NumColumns :=3以下的示例在 myRange 变量所指定的位置上添加了一个
27、脚注。 ActiveDocument. Footnotes. Add Range :=myRange, Text :=“The Willow Tree“A要获得支持 Add 方法的集合对象列表，请参阅“帮助”中的“Add 方法” 。运用 Range 对象当使用 Visual Basic 时一个常见的任务就是在文档中指定一块区域，然后对它进行处理，比如插入文字或应用格式等。例如，用户可能想编写一个宏，来对文档中某个部分里的某个单词或短语进行定位。那就可以使用一个 Range 对象来表示想在其中搜索特定单词或短语的部分文档。在确定 Range 对象后，用户能够应用该对象的方法和属性来修改相应范围中
28、的内容。一个 Range 对象代表了文档中的一块连续的区域。每一个Range 对象都由一个起始字符位置和一个终止字符位置来定义。与用户在文档中使用书签的方法类似，可以在 Visual Basic 中使用Range 对象来识别一个文档的特定部分。一个 Range 对象既可以和插入点一样小，也可以和整个文档一样大。但是，与书签不同，Range 对象仅仅在定义它的过程正在运行时才存在。Range 对象同选定内容相互独立；也就是说，可以定义和修改范围而不会改变选定内容。用户也可以在文档中定义多个范围，而此时每个文档窗格中仅有一个选定内容。Start、End 和 StoryType 属性唯一地确定了一个
29、 Range 对象。Start 和 End 属性分别返回或者设置 Range 对象的起始和结束字符的位置。每个文档构成部分起始处的字符位置是 0 (zero)，而第一个字符之后的位置是 1，依此类推。StoryType 属性的 WdStoryType常量可以表示十一种不同的文档构成部分类型。例如，如果在注脚区域中有一个 Range 对象，那么 StoryType 属性返回wdFootnotesStory。要对文档构成部分作进一步了解，请参阅本节后面的“运用文档构成部分”一节的有关内容。使用 Range 对象来代替 Selection 对象宏录制器会经常创建一个使用 Selection 属性来控
30、制操纵Selection 对象的宏。但是，用户通常可以用一个或几个 Range 对象来以很少的命令完成相同的任务。以下的示例是用宏录制器创建的。该宏对文档中的前两个单词进行加粗。 Selection. HomeKey Unit :=wdStorySelection. MoveRight Unit :=wdWord, Count:=2, Extend :=wdExtendSelection. Font.Bold = wdToggle以下的示例没有使用 Selection 对象而完成了相同的任务。 ActiveDocument. Range (Start:=0, End :=ActiveDocum
31、ent. Words(2). End) .Bold = True以下的示例对文档中的前两个单词进行加粗，然后插入一个新的段落。 Selection. HomeKey Unit :=wdStorySelection. MoveRight Unit :=wdWord, Count :=2, Extend :=wdExtendSelection. Font.Bold = wdToggleSelection. MoveRight Unit :=wdCharacter, Count:=1Selection. TypeParagraph以下的示例没有使用 Selection 对象就完成了上述示例中的同样任
32、务。 Set myRange = ActiveDocument. Range(Start:=0, End :=ActiveDocument. Words(2). End)myRange. Bold = TruemyRange. InsertParagraphAfter前面的两个示例改变了活动文档中的格式但没有改变选定内容。在大多数的场合下，Range 对象比 Selection 对象更可取，原因如下： 用户可以定义和使用多个 Range 对象，而在每个文档窗口中只能有一个 Selection 对象。 控制管理 Range 对象不会改变所选择的文字内容。 控制管理 Range 对象比运用 Sel
33、ection 对象速度要快。 使用 Range 方法返回 Range 对象可以使用 Range 方法在特定文档中创建一个 Range 对象。Range方法(可以从 Document 对象使用)返回一个 Range 对象，该对象定位于主文档构成部分中，有给定的起始点和结束点。以下示例创建了一个 Range 对象，并且赋给 myRange 变量。 Set myRange = ActiveDocument. Range (Start :=0, End :=10)在上述示例中，myRange 表示活动文档中的前十个字符。当对保存在 myRange 变量中的 Range 对象应用一种属性或方法时，就可以
34、看到已经创建的 Range 对象。以下的示例对活动文档中的前十个字符进行加粗。 Set myRange = ActiveDocument. Range(Start :=0, End :=10)myRange. Bold = True当用户需要对一个 Range 对象进行多次引用时，可以使用 Set语句来设置一个等价于 Range 对象的变量。但是，如果用户需要在一个对象上执行一次操作，那么就没有必要将对象保存到变量中。用户可以使用一条确定范围并且改变 Bold 属性的命令来取得同样的结果；如以下示例所示。 ActiveDocument. Range(Start :=0, End :=10).
35、Bold = True和书签类似，一个范围能够在文档中横跨一组字符，也可以标记其中的一个位置。在以下的示例中，Range 对象的起始和终止点相同，并且该范围内不包含任何文字。该示例在活动文档的起始处插入文字。 ActiveDocument. Range(Start :=0, End :=0). InsertBefore Text :=“Hello “用户可以通过使用如上述示例所示的字符位置数字，或者随同Selection 对象、Bookmark 对象或 Range 对象使用 Start 属性和End 属性，来定义一个范围的起始和终止位置。以下示例创建了一个 Range 对象，来表示活动文档中的
36、第三和第四个句子。 Set myDoc = ActiveDocumentSet myRange = myDoc. Range (Start :=myDoc. Sentences(3). Start, _End :=myDoc. Sentences (4). End)技巧 Range 对象在文档中的表示不可见。但是，用户可以使用Select 方法来选定一个 Range 对象，以保证 Range 对象表示正确的文字范围。在以下示例中的 Range 对象表示活动文档中的前三个段落。在该宏运行完毕之后，选定内容是指包含在 aRange 变量中的文字范围。 Set aRange = ActiveDocu
37、ment.Range (Start :=0, _End :=ActiveDocument. Paragraphs (3). Range. End)aRange. Select使用 Range 属性来返回一个 Range 对象在许多对象都可以使用 Range 属性例如，Paragraph 对象、Bookmark 对象、Endnote 对象以及 Cell 对象Range 属性用来返回一个 Range 对象。以下的示例返回了一个 Range 对象，该对象表示活动文档的第一段。 Set myRange = ActiveDocument.Paragraphs (1). Range在创建了对 Range
38、对象的引用之后，用户可以使用它的任何属性或方法来修改该范围。以下的示例复制了活动文档中的第一段。 Set myRange = ActiveDocument. Paragraphs (1). RangemyRange. Copy以下的示例复制了活动文档中表格一的第一行。ActiveDocument. Tables(1). Rows(1). Range. Copy以下的示例显示了活动文档中由第一个书签标记的文字。Range属性可以在 Bookmark 对象中使用。 MsgBox ActiveDocument. Bookmarks (1). Range. Text如果用户需要对同一个 Range 对
39、象应用多种属性或方法，那么可以使用 WithEnd With 语句。以下的示例为活动文档的第一段设定了文字的格式。 Set myRange = ActiveDocument. Paragraphs (1). RangeWith myRange.Bold = True.ParagraphFormat. Alignment = wdAlignParagraphCenter.Font. Name = “Arial“End With要获得关于返回 Range 对象的其他示例，请参阅“帮助”中的“Range 属性” 。修改文档的一部分Visual Basic 包含了一些对象，可以使用它们来修改以下类型的
40、文档元素：字符、单词、句子、段落以及节。下面的表格包含了对应于这些文档元素的属性和属性所返回的对象。 表 达 式 返 回 的 对 象Word (index) Range 对象Characters (index) Range 对象Sentences (index) Range 对象Paragraphs (index) Paragraph 对象Sections (index) Section 对象当用户不带 index 来使用这些属性时，就返回一个同名的集合例如，Paragraphs 属性返回 Paragraphs 集合。但是，如果用户使用 index 来确定在某个集合中的一项，就返回上述表格第二
41、列中的对象例如，Words(1)返回一个 Range 对象。用户可以使用任何范围属性或方法来修改 Range 对象，如以下示例所示，该示例将选定内容中的第一个单词复制到剪贴板中。 Selection. Words (1). Copy在 Paragraphs 集合以及 Sections 集合中的集合项分别是Paragraph 对象和 Section 对象，而不是 Range 对象。但是，在Paragraph 对象和 Section 对象中都可以使用 Range 属性(它返回一个 Range 对象)。以下的示例将获得文档中的第一段复制到剪贴板中。ActiveDocument. Paragraphs
42、(1). Range. Copy上述表格中所有的文档元素属性都可以在 Document 对象、Selection 对象以及 Range 对象中使用，如以下三个示例所示。 本例设置活动文档中第一个单词的大小写。 ActiveDocument. Words(1). Case = wdUpperCase本例设置选中的第一节的下边距为 0.5 英寸。 Selection.Sections(1). PageSetup. BottomMargin = InchesToPoints(0.5)本例设置活动文档中的文字为两倍行距(Content 属性返回一个Range 对象，该对象表示主文档构成部分)。 Act
43、iveDocument. Content. ParagraphFormat. Space2修改一组文档元素要修改由一组文本元素(字符、单词、句子、段落或节)构成的范围，可以创建一个包含文档元素的 Range 对象。随同 Range 对象使用 Start 和 End 属性，用户可以新建一个 Range 对象，该对象引用了一组文档元素。以下的示例创建了一个 Range 对象(myRange)，该对象引用了活动文档中的前三个单词，然后将这些单词的字体改为 Arial。 Set Doc = ActiveDocumentSet myRange = Doc.Range (Start :=Doc. Word
44、s(1). Start, End :=Doc. Words(3). End)myRange. Font. Name = “Arial“以下的示例创建了一个 Range 对象，该对象起始于第二段的开头，到第四段之后结束。 Set myDoc = ActiveDocumentSet myRange = myDoc. Range (Start :=myDoc. Paragraphs(2). Range. Start, _End :=myDoc. Paragraphs(4). Range. End)以下的示例创建了一个 Range 对象(aRange)，该对象起始于第二段的开头，到第三段之后结束。Pa
45、ragraphFormat 属性用来访问诸如 SpaceBefore 和 SpaceAfter 这样的设置段落格式的属性。 Set Doc = ActiveDocumentSet aRange = Doc. Range (Start :=Doc. Paragraphs(2). Range. Start, _End :=Doc. Paragraphs(3). Range. End)With aRange. ParagraphFormat.Space1.SpaceAfter = 6.SpaceBefore = 6End With返回或设置范围中的文字可以使用 Text 属性来返回或设置一个 Ran
46、ge 对象中的内容。以下的示例返回了活动文档中的第一个单词。 strText = ActiveDocument. Words(1). Text以下示例将活动文档中的第一个单词改为“Hello” 。 ActiveDocument. Words(1). Text = “Hello“可以使用 InsertAfter 方法或者 InsertBefore 方法在一个范围的前面或后面插入文字。以下的示例在活动文档的第二段之前插入文字。 ActiveDocument. Paragraphs(2). Range. InsertBefore Text :=“In the beginning “在使用 Inser
47、tAfter 方法或者 InsertBefore 方法之后，范围随之扩大，包含新的文字。但是，也可以使用 Collapse 方法将范围折叠到起始位置或终止位置。以下的示例在现有文档之前插入单词“Hello”,然后将范围折叠到它的起始位置(在单词“Hello”之前)。With ActiveDocument.Paragraphs(2).Range.InsertBefore Text:=“Hello “.Collapse Direction:=wdCollapseStartEnd With设置范围中文字的格式可以使用 Font 属性来取得设置字符格式的属性和方法，而使用ParagraphFormat
48、 属性来取得设置段落格式的属性和方法。以下的示例设置了活动文档中第一段的字符格式和段落格式。 With ActiveDocument. Paragraphs(1). Range. Font.Name = “Times New Roman“.Size = 14.AllCaps = TrueEnd WithWith ActiveDocument.Paragraphs(1).Range. ParagraphFormat.LeftIndent = InchesToPoints(0.5).Space1End With重新定义 Range 对象可以使用 SetRange 方法来重新定义一个已经存在的 Ra
49、nge 对象。以下的示例定义 myRange 为当前的选定内容。SetRange 方法重新定义 myRange，使它表示当前的选定内容加上随后的十个字符。 Set myRange = Selection. RangemyRange.SetRange Start:=myRange.Start,End:=myRange.End + 10要获得重新定义 Range 对象的其他信息和示例，请参阅“帮助”中“SetRange 方法” 。用户也可以通过改变 Start 属性和 End 属性的值，或者使用MoveStart 方法或 MoveEnd 方法来重新定义一个 Range 对象。以下的示例重新定义 myRange 对象，使它表示当前的选定内容加上随后的十个字符。 Set myRange = Selection.RangemyRange.End = myRange.End + 10以下的示例使用 MoveEnd 方法扩展了 myRange，使它包含下一段。 Set myRange = ActiveDocument.Paragraphs(2)myRange.MoveEnd Unit:=wdParagraph, Count:=1在范围内的段落中循环可以通过几种不同的方法在范围内的段落中进行循环。本节包含使用 For Each.Next 语句和 Nex
