word_vba_详解

word vba 详解（转一）2009-07-12 09:29Office 中的Word作者: David Shank在所有Office 应用程序中，Microsoft Word 可能是应用最广泛的应用程序，它还经常在自定义Office 解决方案中扮演重要的角色。

开发人员用各种不同的方式使用Word，有一些方式很简单，而另一些极其复杂。

无论涉及何种自定义解决方案，用Visual Basic for Applications (VBA) 处理Word 文档的基本方法都是一样的。

在本月的栏目中，我将概括地介绍如何使用Word，并提供一些关于如何运用Range 对象处理Word 文档内容的详细资料。

理解基本方法在Word 中，几乎所有的操作都要调用Document（记录）对象本身或其内容。

当您用VBA 操作Word 时，Document 对象表示一个打开的文档，而且所有的Document 对象都是Application 对象的Documents 集合的成员。

文档是一个由字符、单词、句子和段落组成的集合，字符组成单词，单词组成句子，句子组成段落，等等。

因此，每一个Document 对象都具有Characters（字符）、Words （分类号单词）、Sentences（句子）和Paragraghs 四个集合。

此外，每个文档具有一个包含一个或多个节的Sections 集合，每一个节都有一个包含该节页眉和页脚的HeadersFooters 集合。

注意：您可以在Microsoft Office 2000 开发人员对象模型指南（英文）中查阅完整的Word 对象模型。

另外，您也可以使用对象浏览器和Microsoft Word Visual Basic 参考帮助来学习有关具体某个对象、属性、方法和事件的详细内容。

通过VBA 使用Word 时，Document 对象处于中心位置。

如果您要打开文档或创建新文档，就要创建新的Document 对象。

每个打开或新创建的文档均被添加至Documents 集合。

具有焦点的文档称为活动文档，由ActiveDocument 属性表示。

Document 对象作为Documents 集合中的一个成员，您可以通过使用Document 对象的索引值（Document 对象在Documents 集合中的位置，1 是集合中的第一个文档）或名称来引用它。

另外，您也可以使用ActiveDocument 属性来引用当前具有焦点的文档。

例如，如果名为Policies.doc 的文档是唯一打开的文档，则以下三个对象变量将全部指向Policies.doc：Dim docOne As Word.DocumentDim docTwo As Word.DocumentDim docThree As Word.DocumentSet docOne = Documents(1)Set docTwo = Documents("Policies.doc")Set docThree = ActiveDocument一般情况下不要使用Documents 集合中的索引值来引用文档，因为当其它文档打开或关闭时，某个特定文档的索引值可能会随之改变。

通常，您可以通过使用ActiveDocument 属性或使用Documents 集合的Add 方法或Open 方法创建的Document 对象变量。

以下示例显示了如何使用ActiveDocument 属性把一个地址添加到当前具有焦点的文档中：With ActiveDocument.Envelope.Insert Address:="Office Talk" _& vbCrLf & "One Microsoft Way" & vbCrLf _& "Redmond, WA 98052", ReturnAddress:= _"David Shank" & vbCrLf & _"77 First Street" & vbCrLf & _"Any Town, USA 12345"End With下面的示例说明如何通过使用Documents 集合的Open 方法，实例化Document 对象变量。

Dim docPolicy As Word.DocumentSet docPolicy = Documents.Open("c:\my documents\policies.doc")最后一个示例显示如何通过使用Add 方法，为新的空文档创建Document 对象的实例。

Dim docPolicy As Word.DocumentSet docPolicy = Documents.Add通过使用Open 方法打开的文档，或者通过使用Add 方法创建的文档，都将成为用ActiveDocument 属性表示的当前活动文档。

如果您想使Documents 集合里的其它文档成为活动文档，可使用Document 对象的Active 方法。

一旦您获取了要操作的Document 对象，绝大部分您想通过VBA 进行的工作将涉及文本的操作。

首先要指定文档的一个部分，然后对它进行某些操作。

例如，添加或删除文本，或者设置单词或字符的格式。

您可以使用Range 或Selection 这两个对象来完成很多工作。

在本月的专栏中，我将只讨论Range 对象。

下个月我们将进一步讨论Selection 对象的具体内容。

理解Word 的段落标记当您通过程序处理文本时，必须理解Word 如何处理段落标记。

从根本上来看，Word 文档不过是一个巨大的字符流。

人们倾向于认为文档是单词、句子和段落的集合。

但实际上，文档就是一些字符。

每个字符都有一定的作用。

某些字符是字母、空格或制表符，另一些字符是段落标记或分页符。

段落标记在Word 文档中扮演独特的角色，有时这种角色容易被误解。

段落包含一个段落标记以及所有位于此段落标记和前一个段落标记之间的文本（不包括前一个段落标记）。

另外，重要的是，段落标记本包含该段落的所有格式信息。

当复制单词、句子和段落时，如果包含段落标记，则所有包含在段落标记中的格式信息也被复制，并在它们被粘贴到其它位置时应用于所属段落。

如果您想从段落中复制文本并将其粘贴到另一个段落中，但不想同时复制段落格式，复制时请不要包括您要复制的文本旁边的段落标记。

word vba 详解（转二）2009-07-12 09:29每个空白的Word 文档仅有一个段落标记，其中同时包含Character 对象、Word 对象、Sentence 对象和Paragragh 对象各一个。

但是，“属性”对话框（“文件”菜单）中的“统计信息”选项卡将报告空白文档中没有字符、单词、句子和段落。

这种差异突出显示了Word 的一个重要侧面，当编程操作这些对象时，您需要特别注意这一点。

Range 对象Range 对象表示文档中的一个连续范围，由一个起始字符位置和一个终止字符位置定义。

这个连续范围可以小到一个插入点，大到整个文档。

它也可能是（而非必须是）由当前节表示的范围。

您也可以定义一个Range 对象，表示和当前节不同的范围。

也可以在同一个文档中定义多个Range 对象。

Range 对象中的字符包含非打印字符，例如，空格、回车符和段落标记。

使用Range 对象创建Range 对象的典型方法为：声明一个Range 类型的对象变量，然后用Document 对象的Range 方法或另一个对象（例如Character、Word、Sentence 或Selection 对象）的Range 属性来实例化该变量。

例如，以下代码创建了两个Range 对象，均表示活动文档中的第二个句子。

Dim rngRangeMethod As Word.RangeDim rngRangeProperty As Word.RangeWith ActiveDocumentIf .Sentences.Count >= 2 ThenSet rngRangeMethod = .Range(.Sentences(2).Start, _.Sentences(2).End)Set rngRangeProperty = .Sentences(2)End IfEnd With当您使用Range 方法来指定文档的特定范围时，您必须使用此方法的Start 参数指定这个范围开始的位置，使用End 参数指定结束的位置。

文档的第一个字符的字符位置为0。

最后一个字符的位置和文档的字符总数相等。

您可以通过使用Characters 集合的Count 属性确定文档中的字符数。

如前面的示例所示，您也可以使用Bookmark、Selection 或Range 对象的Start 和End 属性来指定Range方法的Start 和End 参数。

您可以将Start 和End 参数设置为同一个数字，这将创建一个不包含任何字符的范围。

您可以使用对象的SetRange 方法设置或重新定义Range 对象的内容。

您也可以通过使用Range 对象的Start 属性或MoveStart 方法指定或重新定义范围开始的位置。

同样地，您也可以通过使用Range 对象的End 属性或它的MoveEnd 方法指定或重新定义范围结束的位置。

以下示例先用ContentRagne 对象，该对象包含了文档的所有内容。

接着，改变EndSetRange 方法重新定义范围，使之包含文档的第一个段落。

最后，使用MoveEnd 方法将范围的结束位置扩展至文档的第二个段落末尾。

此示例中的每一步都将当前范围中包含的字符的数量打印到“立即窗口”。

Sub RangeExample()Dim rngSample As RangeSet rngSample = ActiveDocument.ContentWith rngSampleDebug.Print "范围现在包含" & .Characters.Count _& " 个字符。

".End = ActiveDocument.Sentences(1).EndDebug.Print "范围现在包含" & .Characters.Count _& " 个字符。

".SetRange Start:=0, End:=ActiveDocument._Paragraphs(1).Range.EndDebug.Print "范围现在包含" & .Characters.Count _& " 个字符。