WORD之VBA几种全选的方法

转自：https://baijiahao.baidu.com/s?id=1654133934465654783&wfr=spider&for=pc

以下是本人自学心得分享并记录，以便日后忘记了可以翻查，同时希望能帮到自学的朋友，测试环境为WORD2007，测试文档为纯文字文档，没有对插入图表、表格、图片、多媒体等内容的文档进行测试，有需要可以自行测试。

 

activedocument.Range(activedocument.Words.First.Start,activedocument.Words.Last.End).Select要对WORD文档内容进行选择就要先了角WORD文档内容的组成，大家在看小说的时候都能看到第几章第几节的，其它是WORD里也有分节的，可以在需要的时候手动插入，如果没有插入分节符，无论文档有多少页，都只有一个节，要插入节的时候可以点菜单栏》页面布局》分隔符》分节符，Sections(X)代表第X节。

无论有多少个节，

ActiveDocument.Sections.First.Range.Select都代表第一个节

ActiveDocument.Sections.Last.Range.Select都代表最后一个节

如果只有一个节，那么无论是选择第一节还是选择最后一节都相当于全选

无论有多少个节，都可以使用以下语句全选

ActiveDocument.Range(ActiveDocument.Sections.First.Range.Start, ActiveDocument.Sections.Last.Range.End).Select

上面词句意思意思是选择第一节开始到最后一节结尾，也就是全选的意思，ActiveDocument.Range(区域开始，区域结束)，意思是为活动文本指定一个区域，区域里就是区域范围，指定区域开始和区域结束位置

 

每个节里有若干段落，段落标记^p，在“查找和替换”窗口中点击“特殊格式”就可以选择段落标志，或直接在查询内容中输入^p，段落标志由回车键产生，代表分段，一个回车就是一段。在WORD中回车符号见下图左边被方框圈着的标志。

 

Paragraphs(2)，代表第二段落

整个文档由若干段落组成，所以我们也可以通过选择段落的方法全选

ActiveDocument.Range(ActiveDocument.Paragraphs.First.Range.Start, ActiveDocument.Paragraphs.Last.Range.End).Select

通常情况下，文档第一段是标题，如果我们要选择除标题外的其它所有内容则可以

ActiveDocument.Range(ActiveDocument.Paragraphs(2).Range.Start, ActiveDocument.Paragraphs.Last.Range.End).Select

每个段落又是由若干的句子组成，每个句子由若干的词组和字符组成，由此也是可以通过选择句子，单词或字符的方法全选。

Characters(index)，字符

Words(index)，单词，以WORD词库划分

Sentences(index)句子，以句号划分

通常标题只有一句内容，所以要选择除标题外的其它所有内容也可以写成

ActiveDocument.Range(ActiveDocument.Sentences(2).Start, ActiveDocument.Sentences.Last.End).Select

通过选择句子的方法全选可以写成

ActiveDocument.Range(ActiveDocument.Sentences.First.Start, ActiveDocument.Sentences.Last.End).Select

注意的是，"Sections节"和"Paragraphs段落"后面是要写上range对象的，但“Sentences句子”、“Words单词”、“Characters字符”后面是不用接range，

通过选择单词的方法全选可以写成

activedocument.Range(activedocument.Words.First.Start,activedocument.Words.Last.End).Select

通过选择字符的方法全选和其它的有点区别，直接写上从第几个字符到第几个字符就可以了，由于不知道有多少个字符所以可以使用ActiveDocument.Characters.Count得到总字符数

ActiveDocument.Range(0, ActiveDocument.Characters.Count).Select

当前也可以写成和通过单词或句子一样的方法

ActiveDocument.Range(ActiveDocument.Characters.First.Start,ActiveDocument.Characters.Last.End).Select

但不建议使用字符的方法来全选，毕竟是以字符为单位，如果文章内容多的时候，运行效率是会明显比选择节或段落的方法低。如果要区分标题和正文内容的话，建议使用段落的选择方法，如果是包括标题的所有文字内容建议使用

ActiveDocument.Content.Select '全选文字内容

Content代表主文档文字部分 （文章：包含文档中可区别于其他文字区域的文字区域。例如，如果文档包括正文文本、脚注和标题，则文章包含主文章、脚注文章和标题文章。)

需要在文章最后添加内容可以

ActiveDocument.Content.InsertAfter "文章后新增内容"