对选中的每一个单词实现如下效果（最终）

666611430 · 发表于 2020-6-14 21:03

本人因由于工作和个人爱好需要，最初题目以《怎么对选中的每一个单词实现如下效果(不知能否实现)》发过帖。为此对sylun和ming0018老师表示感激。
*由于工作需要，以前的要求有了些变化，所以再一次开了本帖。希望大家赐教，帮本人解决一下。

对英文文章实现如下效果
********选择方式有三种
1) 单选
单选.png

2）连续选择

3）无选中任何内容

若无任何选中内容，就对每一个单词进行上述图片中的效果

*********要实现的要求如下
1）加序号

2）若有重复单词，只保留一个。

3）加对单词拆分，效果如上图所示。

4）如图红线所示距离以一个TAB隔开

5）选中单词的出现次数
6）提供两种方式（提示效果显示在文章最后还是输出到txt文件）
---------------------------------------------------------------------------
*英文文章是以各种英文内容单词以标点符号隔开的，无论是哪一种选中，如果选中内容有标点符号，只对单词实现上述效果。
*无论文字方向从左还是从右（有些语言是从右开始，有的从左开始）都能实现。

补充内容 (2020-7-23 10:56):
***问题已解决***

666611430 · 发表于 2020-6-23 20:41

自己顶一下！！！

413191246se · 发表于 2020-6-23 23:30

楼主，你第一个问题：单选。但我看图片，有好几个单词同时被选中，怎么是单选呢？我就不明白了，别人也可能不明白。所以，请楼主再细细描述一下，到底想要干什么。

666611430 · 发表于 2020-6-24 10:18

413191246se 发表于 2020-6-23 23:30
楼主，你第一个问题：单选。但我看图片，有好几个单词同时被选中，怎么是单选呢？我就不明白了，别人也可能 ...

谢谢　你的回复.
第一图的单选是不连续选择.意思就是单词不连续选择,一个或多个单词不连续选择.

413191246se · 发表于 2020-6-25 12:58

楼主，你好！——第一个问题：单选。我发现，虽然手动按 CTRL 键可以不连续选择一些文字，但在 VBA 上就无法处理这些不连续选择的单词；所以，我建议，或者将这些不连续选择的单词加下划线，或者将其变为红色，或者将其加粗均可，这样VBA就容易处理了！——另外，请楼主提供一份仿真的英文附件文档（不必太大）。

666611430 · 发表于 2020-6-25 21:59

413191246se 发表于 2020-6-25 12:58
楼主，你好！——第一个问题：单选。我发现，虽然手动按 CTRL 键可以不连续选择一些文字，但在 VBA 上就无 ...

附件：

Template.rar (12 KB, 下载次数: 71)

谢谢你的回复。上次sylun老师对第一种情况处理的非常好。希望你参考原贴中的代码。如果实在不行，那就其改为下划线吧。

413191246se · 发表于 2020-7-4 12:55

* 楼主，你好！另一个帖子的回帖我已经看到了，我建议，还是请楼主重新述说一下 3 种情况的问题。
* 比如：第 1 个问题，单选。这样不连续选择，VBA只能处理最后一个单词，前面的无法处理。但是如果将每个单词，都加下划线（或改为红色也可），这样，通过循环语句查找下划线单词（或标红单词）就能一一处理了！

666611430 · 发表于 2020-7-4 20:15

413191246se 发表于 2020-7-4 12:55
* 楼主，你好！另一个帖子的回帖我已经看到了，我建议，还是请楼主重新述说一下 3 种情况的问题。
* 比 ...

*谢谢你关注。好的，那就把单词标红吧。只要达到我所要求效果，请您就按照你自己的最好的处理方法来帮我解决一下。

413191246se · 发表于 2020-7-5 02:35

本帖最后由 413191246se 于 2020-7-5 08:53 编辑

* 楼主，在 sylun 老师面前，我是 VBA 小学生，水平有限，请见谅！针对你的附件，假设不连续选定单词时均加了下划线（单选），请试用下面的代码：（如果反应太慢，时间太长，请按组合键 Ctrl + PauseBreak 来终止宏的运行）
* 有一点儿问题：因为我用的是 Win10-64位+Office2019，所以，代码中的汉字刚才贴上来发现不能被识别，所以请楼主下载压缩包吧！
*

test-single.rar (1.01 KB, 下载次数: 60)

666611430 · 发表于 2020-7-12 19:56

413191246se 发表于 2020-7-5 02:35
* 楼主，在 sylun 老师面前，我是 VBA 小学生，水平有限，请见谅！针对你的附件，假设不连续选定单词时均加 ...

谢谢您的回复
*由于最近有点忙没能及时回复你了。我下了附件，但一运行代码就退出了word，不知什么原因。
*运行环境：win10(64位)+office 2019(位)

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

[求助] 对选中的每一个单词实现如下效果（最终）