将 word 第3段，第8段加入selection 如何操作？

yxp

如题。段落不连续如何选择？
ActiveDocument.Paragraphs(3).Range.Select
ActiveDocument.Paragraphs(8).Range.Select

这样只能选择最后一个段落，selection 对象也没有找到 add 方法。


另外，哪里有 word vba 的书籍和教程，百度都搜不到。

wdpfox

每选一段，分别进行操作即可：

yxp

wdpfox 发表于 2020-1-23 22:19
每选一段，分别进行操作即可：

手动操作的时候，按 Ctrl 可以实现，就是不知道用 vba 怎么实现

凌空一羽

http://club.excelhome.net/forum. ... 036&pid=4038196

借wylong老师的贴子回复

yxp

我的目的是从一大篇文档中，不同样式的段落里，自动亮显相同格式的文字，进行统一操作，降低手动选择的劳动强度。经查，word 没有这个功能，但是提供了如下函数可以实现
WordBasic.SelectSimilarFormatting

kingtau

选择不连续段落好办：

1. Sub 选择不连续段落()
   
2.     With ActiveDocument
   
3.         .DeleteAllEditableRanges -6
   
4.         .Paragraphs(3).Range.Editors.Add -6
   
5.         .Paragraphs(8).Range.Editors.Add -6
   
6.         .SelectAllEditableRanges -6
   
7.         .DeleteAllEditableRanges -6
   
8.     End With
   
9. End Sub

复制代码

楼主标题所述将第3段和第8段，加入到已有的Selection没研究明白：
Selection.Editors.Add -6
只会将已选择范围的最后一部分加入到编辑器，还请大佬们解释。

daibao88

VBA不提供多个不连续区域的选中操作，循环一段段处理吧。