选择不连续的多个段落

cdqiu126 · 发表于 2010-7-19 12:40

我想在word中选择满足条件的不连续的多个段落，下面的代码只能选择最后一个段落；
怎样才能一次选择满足条件的所有段落呢？？

Dim p As Paragraph
For Each p In ActiveDocument.Paragraphs
If p.Range.Font.Color = wdColorRed Then
p.Range.Select
Next

请各位高手支招！！

weberchen · 发表于 2010-7-19 12:49

用ctrl,可以实现不连续选择

cdqiu126 · 发表于 2010-7-19 13:04

那个我也会，主要是我想要用vb代码实现啊，谁搞过，指点一下

亡者天下 · 发表于 2010-7-19 13:12

为什么一定要用VBA呢？
直接用Ctrl加鼠标不可以吗？

cdqiu126 · 发表于 2010-7-19 13:17

哎，文档有100多页，我想一次搞定啊，

wylong · 发表于 2010-7-19 14:18

word VBA不提供多个不连续区域的选中操作，用户只能通过GUI实现。
参见官方说明：http://support.microsoft.com/kb/288424/zh-cn

使用使用 Word 对象模型不连续的选定内容的限制
您不能通过使用 Word 对象模型以编程方式选择不连续的范围。可能只由用户在 Word 用户界面中创建不连续的选定内容。
一个 Range 对象，对象不能包含多个 subranges。因此，不连续当前所选内容是否 Selection.Range 将返回在用户选择的最后一个子范围。
----------------------------------------------------------------------------------
可以通过循环一个一个处理的方法解决

cdqiu126 · 发表于 2010-7-20 12:28

谢谢，wylong，还真没有办法啊，哎。结贴喽

守柔 · 发表于 2010-7-20 14:19

原帖由 cdqiu126 于 2010-7-20 12:28 发表
谢谢，wylong，还真没有办法啊，哎。结贴喽

我想楼主应该反思一下编程思路是否有问题。Word VBA 中选定不是目的，你完全可以把自己希望处理的结果列出来。另外，WORD VBA 虽然不提供直接的非连续区域的选定，但仍然可以对不连续区域进行选定，因为我们可以调用WORD 自身的方法。

renqiang851224 · 发表于 2010-7-20 23:45

选择不是目的啊

hhzjxss · 发表于 2010-10-12 13:14

原帖由 renqiang851224 于 2010-7-20 23:45 发表
选择不是目的啊

选择的目的估计是为了一次性删除或者做别的处理！

		自动登录	找回密码
密码			免费注册

[求助] 选择不连续的多个段落

回复 4楼亡者天下的帖子

回复 1楼 cdqiu126 的帖子

[求助] 选择不连续的多个段落

回复 4楼 亡者天下 的帖子

回复 1楼 cdqiu126 的帖子

回复 4楼亡者天下的帖子