请问word中如何批量选中复制固定文本后的文本？

asklazyworm · 发表于 2016-4-21 11:27

@413191246se 非常感谢您为我写了一段宏,原来还可以用Paragraph来玩,涨见识了

从结果上,运行宏后,出现的是这个结果(文本为红色)
今日选择是
123
今日推荐
456
今日吐槽的观点
789

结果应该是：
今日选择是
今日推荐
今日吐槽的观点

123,456,789只是多余的段落,不应该被复制出来的,提取的只是固定文本"His: "同一行之后的值,不包含下面的段落的文本

再次感谢您为我写了一段代码

duquancai · 发表于 2016-4-21 12:59

本帖最后由 duquancai 于 2016-4-21 13:21 编辑

使用通配符 1、查找“His：[!^13]@^13”（不包含引号）；2、复制，再ctrl+n（新建文档)，再粘贴；3、在新建文档中，使用通配符，查找替换（此时还未关闭查找对话框，点击到替换）：查找“His："([!^13]@^13)”（不包含引号）,替换”\1"（不包含引号）,点击替换全部。也可以按照上面步骤录制一个宏（不过，不能通过vba代码选中非连续区（也不能通过VBA代码选中查找到的连续或者非连续），这是关键！

asklazyworm · 发表于 2016-4-21 13:23

@duquancai 你好谢谢回复试过了

查找“His：[!^13]@^13”（不包含引号）,出来的结果相当于全选,并没有选择到"His: "+后面同行的文本

替换”\1"（不包含引号）提示:"替换内容"含有超出范围的一组数

duquancai · 发表于 2016-4-21 13:34

本帖最后由 duquancai 于 2016-4-21 13:36 编辑

asklazyworm 发表于 2016-4-21 13:23
@duquancai 你好谢谢回复试过了

查找“His：[!^13]@^13”（不包含引号）,出来的结果相当于全选,并没 ...

不会吧！你用WPS吗？还有你确定看清楚了我写的表达式及操作正确了？还有你也没有提供文档附件，因此谁知道你的内容还有什么状况？

asklazyworm · 发表于 2016-4-21 16:05

@duquancai 可能对这个论坛还不是很熟悉,我文字没有表达好,因为在一楼我列举了word的内容和需要的结果,附件其实就是一楼的案例复制到word中即可,没有特殊的状况

413191246se · 发表于 2016-4-22 09:56

楼主，在我的2003上，完全符合你的要求，没有123、456、789这三个段落，你再重新试试。

asklazyworm · 发表于 2016-4-22 11:29

@413191246se 真的不行...好奇怪啊

413191246se · 发表于 2016-4-22 14:53

要不上个附件，楼主。

jaffedream · 发表于 2017-4-6 19:35

asklazyworm 发表于 2016-4-21 11:27
@413191246se 非常感谢您为我写了一段宏,原来还可以用Paragraph来玩,涨见识了

从结果上,运行宏后,出现 ...

综合所有留言，我觉得你没有替换成功的原因是你的文件里采用了软回车，也就是手动换行符，你要在不使用通配符的情况下，先把^l替换成^p，然后再用其他人的方法，他们的方法都是针对硬回车的。

jaffedream · 发表于 2017-4-6 19:36

duquancai 发表于 2016-4-21 12:59
使用通配符 1、查找“His：[!^13]@^13”（不包含引号）；2、复制，再ctrl+n（新建文档)，再粘贴；3、在新建 ...

“His："([!^13]@^13)”，这个部分中多了一个引号，会导致楼主无法替换成功。

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

[求助] 请问word中如何批量选中复制固定文本后的文本？