word2013vba表示选中文本

Select方法可用于多种对象，例如Bookmark、Field、Range 和Table对象。

A：下列示例选定活动文档中的第一个表格

Sub SelectTable()

ActiveDocument.Tables(1).Select

End Sub

B：下列示例选定活动文档中的第一个域

Sub SelectField()

ActiveDocument.Fields(1).Select

End Sub

C：下列示例选定活动文档中的前四个段落

Range方法用于创建一个引用前四个段落的 Range对象，然后将 Select方法应用于 Range对象。

Sub SelectRange()

Dim rngParagraphs As Range

Set rngParagraphs = ActiveDocument.Range( Start:=ActiveDocument.Paragraphs(1).Range.Start, End:=ActiveDocument.Paragraphs(4).Range.End)

rngParagraphs.Select

End Sub

D：下列命令选定活动文档中的第一个单词

Sub SelectFirstWord()

ActiveDocument.Words(1).Select

End Sub