求助如何把Selection.Find.Execute FindText 选到的内容 添加到一个列表中，并输出。

lonelj

求大神帮助：    求助如何把Selection.Find.Execute FindText 选到的内容 添加到一个列表中，并在文档末尾 下移一两个回车 再把列表内容全部输出？？

lonelj

所有问题都自己解决啦 哈哈哈

413191246se

楼主，可以谈谈经验，怎么解决的？

lonelj

413191246se 发表于 2021-1-17 17:18
楼主，可以谈谈经验，怎么解决的？

一边录宏 一边研究代码实现的。Find 方法搜索关键字死活不好用，无法实现在选定区域类搜索。然后弃坑，按照遍历的方式来实现。现在还有个问题就是，不知为什么 代码不识别 **  ？ 这些通配符

413191246se

* 楼主，如果手动查找的话：若不勾选使用通配符，可以一个一个地找到所要找的字符；若勾选使用通配符，可以用[*]{1,}找到；在“查找”标签页中查找，点击“在以下项中查找”——“主文档”，则会找到所有你要找的字符，复制；再关闭查找框，粘贴即可。这是不用编程。
* 当然也可以编程来解决，恭喜 楼主 会编程，懂宏。我喜欢懂宏的人。可以把你的宏贴上来分享一下。

無岩

额，请问怎么遍历整个文档呢？

413191246se

遍历整个文档，可以分为两种方法：一种是遍历所有字符（此法较慢），一种是遍历所有段落（速度较快）。都用 For Each ... Next 语句遍历即可。一般可提出具体的方案来。