WordVBA---处理Range对象.docxVIP

WordVBA---处理 Range 对象一、Range 对象的概念使用 Visual Basic 完成的一种常见任务是在文档中指定一个区域，然后对该区域进行如插入文字或应用格式之类的某些操作。例如，您可能需要编写一个宏，用于在文档的某部分中查找一个单词或词组。文档的某部分可以用 Range 对象表示。标识 Range 对象后，就可以应用 Range 对象的方法和属性来修改该区域的内容。Range 对象引用文档中的某一连续区域。每个 Range 对象都是通过开始和结束字符位置来定义的。与在文档中使用书签的方法类似，在 Visual Basic 过程中使用 Range 对象可以标识文档中的特定部分。Range 对象可以小至一个插入点，或大至整个文档。与书签的不同之处是，Range 对象只在定义它的过程运行时才存在。用Range 对象的Start、End和StoryType属性唯一地标识一个 Range 对象。Start 和 End 属性返回或设置 Range 对象的开始和结束字符的位置。文档开始处的字符位置为 0，第一个字符后的位置为 1，依此类推。StoryType 属性的 WdStoryType 常量可以代表 11 种不同的文章类型。二、使用 Range对象使用 Document 对象的 Range 方法可创建一个 Range 对象，该对象位于主文章中并具有给定的起点和终点。下面的示例创建一个 Range 对象，该对象从第一个字符的开始位置开始并延伸到第十个字符。Sub SetNewRange() Dim rngDoc As Range Set rngDoc = ActiveDocument.Range(Start:=0, End:=10) End Sub将属性或方法应用于 Range 对象之前，先要创建 Range 对象。下面的示例对活动文档的前 10 个字符应用加粗格式。Sub SetBoldRange() Dim rngDoc As Range Set rngDoc = ActiveDocument.Range(Start:=0, End:=10) rngDoc.Bold = True End Sub如果需要多次引用一个 Range 对象，可使用 Set 语句设置一个其值为该 Range 对象的变量。但是，如果仅需要对 Range 对象执行一次操作，则不必将该对象存储在变量中。只使用一个标识区域并更改 Bold 属性的指令，也能得到相同的结果。Sub BoldRange() ActiveDocument.Range(Start:=0, End:=10).Bold = True End Sub类似于书签，一个区域可以跨越一组字符或标记文档中的某个位置。下列示例中的 Range 对象的开始和结束位置相同。该区域不包含任何文字。下列示例在活动文档的开头插入文字。Sub InsertTextBeforeRange() Dim rngDoc As Range Set rngDoc = ActiveDocument.Range(Start:=0, End:=0) rngDoc.InsertBefore Hello End Sub可以使用上述字符位置编号，或通过将 Start 和 End 属性用于 Selection、Bookmark 或 Range 等对象，来定义区域的开始和结束位置。下面的示例创建一个 Range 对象，该对象从第二段开头开始，至第三段末尾结束。Sub NewRange() Dim doc As Document Dim rngDoc As Range Set doc = ActiveDocument Set rngDoc = doc.Range(Start:=doc.Paragraphs(2).Range.Start, _ End:=doc.Paragraphs(3).Range.End) End Sub三、Range属性Paragraph对象、Bookmark对象 和 Cell对象等都具有Range 属性，Range 属性用于返回 Range 对象。下面的示例返回一个 Range 对象，该对象引用活动文档中的第一段。Sub SetParagraphRange() Dim rngParagraph As Range Set rngParagraph = ActiveDocument.Paragraphs(1).RangeEnd Sub得到 Range 对象后，可使用它的任何属性或方法来修改该 Range 对象。下列示例选定活动文档中的第二个段落并将所选内容居中。Sub FormatRange() ActiveDocument.Paragraphs(2).Range.Select