Microsoft Word 对象

Microsoft Word 对象(10)
以下示例将活动文档中的第一个单词改为“Hello”。

ActiveDocument. Words(1). Text = "Hello"

可以使用InsertAfter 方法或者InsertBefore方法在一个范围的前面或后面插入文字。以下的示例在活动文档的第二段之前插入文字。

ActiveDocument. Paragraphs(2). Range. InsertBefore Text :="In the beginning "

在使用InsertAfter 方法或者InsertBefore方法之后，范围随之扩大，包含新的文字。但是，也可以使用Collapse方法将范围折叠到起始位置或终止位置。以下的示例在现有文档之前插入单词“Hello”,然后将范围折叠到它的起始位置(在单词“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方法重新定义myRange，使它表示当前的选定内容加上随后的十个字符。

Set myRange = Selection. Range

myRange. SetRange Start :=myRange. Start, End :=myRange. End + 10

要获得重新定义Range对象的其他信息和示例，请参阅“帮助”中“SetRange方法”。

用户也可以通过改变Start属性和End属性的值，或者使用MoveStart方法或MoveEnd方法来重新定义一个Range对象。以下的示例重新定义myRange对象，使它表示当前的选定内容加上随后的十个字符。

Set myRange = Selection. Range

myRange. End = myRange. End + 10

以下的示例使用MoveEnd方法扩展了myRange，使它包含下一段。

Set myRange = ActiveDocument. Paragraphs(2)

myRange. MoveEnd Unit :=wdParagraph, Count :=1

在范围内的段落中循环

可以通过几种不同的方法在范围内的段落中进行循环。本节包含使用For Each...Next语句和Next属性及方法在范围内的段落中进行循环的内容。也可以使用同样的技术在范围内的字符、单词或句子中进行循环。

使用For Each...Next语句

建议在范围内进行段落循环时使用For Each...Next语句，另外建议在集合内进行循环时也同样使用该语句。以下的示例在获得文档的前五段中进行循环，在每段之前添加文字。

Set myDoc = ActiveDocument

Set myRange = myDoc.Range (Start:=myDoc. Paragraphs(1). Range. Start, _