Word - VBA - 学习交流资料（全）

rngParagraphs.Select End Sub

'选定文档中的文本：我觉得用处不大，原因就是为什么要选中呢？能操作就直接操作，不能的话，就选中吧（他可以说是没办法的办法）.

七、编辑文字

本主题包含与下列任务相关的 Visual Basic 示例：

? ? ? ? ?

确定文本是否被选定 折叠选定内容或区域 扩展选定内容或区域 重新定义 Range 对象 更改文本

有关其他编辑任务的信息和示例，请参阅下列主题： 从文档返回文本 选定文档中的文本 将文本插入文档 修改文档的某一部分 确定文本是否被选定

Selection 对象的 Type 属性返回所选内容类型的信息。

'如果所选内容为插入点，则下列示例显示一条消息\is Selected\。没选中任何问题

Sub IsTextSelected()

If Selection.Type = wdSelectionIP Then MsgBox \selected\

End Sub

折叠所选内容或区域

使用 Collapse 方法可将 Selection 或 Range 对象折叠到开始或结束点的位置。下列示例在所选内容的开头将所选内容折叠为一个插入点。

Sub CollapseToBeginning()

Selection.Collapse Direction:=wdCollapseStart 'Selection.Collapse Direction:=wdCollapseEnd End Sub

'这个是标准的折叠的程序,以后可能会用到的噢!

下列示例将区域折叠至其结束点（在第一个单词之后），并添加新文本。 Sub CollapseToEnd() Dim rngWords As Range

Set rngWords = ActiveDocument.Words(1) '设置第一个单词为区域rngWords

With rngWords

.Collapse Direction:=wdCollapseEnd '折叠到最后，区域与可以折叠的噢！

.Text = \'在折叠的最后加入这些文字 End With End Sub

扩展所选内容或区域

下列示例使用 MoveEnd 方法扩展所选内容的结尾以包含三个附加的单词（总共是4个！）。MoveLeft、MoveRight、MoveUp 和 MoveDown 方法也可以用于扩展 Selection 对象。

Sub ExtendSelection()

Selection.MoveEnd Unit:=wdWord, Count:=3 End Sub

下列示例使用 MoveEnd 方法扩展区域，以包含活动文档中的前三个段落。 Sub ExtendRange()

Dim rngParagraphs As Range

Set rngParagraphs = ActiveDocument.Paragraphs(1).Range rngParagraphs.MoveEnd Unit:=wdParagraph, Count:=2 End Sub

重新定义 Range 对象

使用 SetRange 方法可重新定义现有的 Range 对象。 更改文字

通过更改某一区域中的内容可更改现有的文字。下列指令通过将 Text 属性设为“The”来更改活动文档中的第一个单词。

Sub ChangeText()

ActiveDocument.Words(1).Text = \End Sub

也可以使用 Delete 方法删除现有文本，然后使用 InsertAfter 或 InsertBefore 方法插入新文本。下列示例删除活动文档的第一段，并插入新文本。

Sub DeleteText()

Dim rngFirstParagraph As Range

Set rngFirstParagraph = ActiveDocument.Paragraphs(1).Range With rngFirstParagraph .Delete

.InsertAfter Text:=\ .InsertParagraphAfter End With End Sub

'上面的这个例子我们通常不用,我们更喜欢用下面

Sub DeleteText1()

Dim rngFirstParagraph As Range

Set rngFirstParagraph = ActiveDocument.Paragraphs(1).Range rngFirstParagraph.Text = \End Sub

八、将格式应用于文本

本主题包含与下列任务相关的 Visual Basic 示例：

? ? ? ? ? ?

将格式应用于选定内容 将格式应用于某一区域

插入文本并应用字符和段落格式 在 12 磅和无之间切换段前间距 切换加粗格式

将左边距增加 0.5 英寸

将格式应用于选定内容

下列示例使用 Selection 属性将字符和段落格式应用于选定文本。使用 Font 属性获得字体格式的属性和方法，使用 ParagraphFormat 属性获得段落格式的属性和方法。

Sub FormatSelection() With Selection.Font

.Name = \ .Size = 14

.AllCaps = True '全部大写 End With

With Selection.ParagraphFormat

.LeftIndent = InchesToPoints(0.5) '左缩进0.5英寸 .Space1 '这是单倍行距的缩写

End With End Sub

将格式应用于某一区域

下列示例定义了一个 Range 对象，它引用了活动文档的前三个段落。通过应用 Font 和 ParagraphFormat 对象的属性来设置 Range 对象的格式。

Sub FormatRange()

Dim rngFormat As Range

Set rngFormat = ActiveDocument.Range( _

Start:=ActiveDocument.Paragraphs(1).Range.Start, _ End:=ActiveDocument.Paragraphs(3).Range.End) With rngFormat

.Font.Name = \

.ParagraphFormat.Alignment = wdAlignParagraphJustify '两端对齐

End With End Sub

插入文字并应用字符和段落格式

下列示例在当前文档的上部添加单词 Title。第一段居中对齐，并在该段落之后添加半英寸的间距。将单词 Title 的格式设为 24 磅 Arial 字体。

Sub InsertFormatText() Dim rngFormat As Range

Set rngFormat = ActiveDocument.Range(Start:=0, End:=0) With rngFormat

.InsertAfter Text:=\

.InsertParagraphAfter '插入段落标记 With .Font

.Name = \