求前辈们帮忙实现这样的“查找替换”

13907933959 · 发表于 2017-5-6 16:20

本帖最后由 13907933959 于 2017-5-8 11:40 编辑

前辈们好！

替换的大概意思如下：

1、把全文字符设为黑色。

2、把文档中的手动换行符，全部替换为段落符。

3、把语句后上逗号前数量不等的空格，统一替换为二个半角空格。

4、让上逗号紧靠中文注释语。

5、把中文注释语后面，没有任何标点符号的加上一个中文句号。

6、把语句前的多个上逗号统一替换为一个，并让它紧靠语句前，语句的位置不变。

7、把语句前的单个不靠近语句前的上逗号让它紧靠语句前，语句的位置不变。

8、把语句后的中文注释语及句号，统一替换为蓝色，段落符的黑色不变。

9、把单独另起一行的中文注释语及句号，统一替换为绿色，段落符的黑色不变。

10、把单独另起一行，前面是英文字母，后面是中文的统一替换为紫色，段落符的黑色不变。

11、把上逗号统一替换为红色。

……

详情请见下面的模拟附件（附件内有替换前后的样子）。

谢谢！

duquancai · 发表于 2017-5-6 17:23

这么多的条件，这是在干嘛？？？？？

skyzxh · 发表于 2017-5-6 17:29

抓壮丁。。。。。。。。。。。。。。。。。。。。

13907933959 · 发表于 2017-5-7 06:50

本帖最后由 13907933959 于 2017-5-9 08:30 编辑

duquancai 发表于 2017-5-6 17:23
这么多的条件，这是在干嘛？？？？？

杜前辈好！

接触 VBA 有一段时间了（惭愧的是还是个门外汉），得到过您及其他前辈们的帮助，也收藏了一些您们编写的代码，这几天医院病人较少，有些时间，想整理一下它们，如一个一个逐句整理，我又没有那么多的时间，编一个代码来解决，我还没有那个实力，搞不定它，才向前辈们求助！如前辈您有时间，希望得到您的出手相助！谢谢！

至于条件多，我也是为了方便前来帮忙的前辈们快速的明白我的意思，因我还是外行，难免有外行说，这10多条“替换的大概意思” 对于内行来说可能是多余的，看替换前、替换后的“附件”就明白，不需要这么多的替换步骤就能搞定。

13907933959 · 发表于 2017-5-7 06:51

本帖最后由 13907933959 于 2017-5-7 07:25 编辑

skyzxh 发表于 2017-5-6 17:29
抓壮丁。。。。。。。。。。。。。。。。。。。。

前辈好！
不是抓壮丁，确实是我自已搞不定，才向前辈们求助！如前辈您有时间，同样希望得到您的出手相助！谢谢！

小花鹿 · 发表于 2017-5-7 10:55

第一，这种题目没有什么实际意义，大多数人用不上，所以，没有写代码的动力
第二，你一下子提这么多问题，把别人吓跑了，一次提一个问题，很快就会有答案的，然后自己再整合起来

skyzxh · 发表于 2017-5-7 13:18

13907933959 发表于 2017-5-7 06:51
前辈好！
不是抓壮丁，确实是我自已搞不定，才向前辈们求助！如前辈您有时间，同样希望得到您的出手相助！ ...

下载附件看了下，Excel表是学生成绩，好像跟医院没关系；Word是一些代码，你是要对代码进行替换？有必要吗？复制到VBA编辑器里看，也就是没几条有问题，手动修改一下花不了几分钟。。。。。。。。。

13907933959 · 发表于 2017-5-7 14:32

本帖最后由 13907933959 于 2017-5-7 15:38 编辑

skyzxh 发表于 2017-5-7 13:18
下载附件看了下，Excel表是学生成绩，好像跟医院没关系；Word是一些代码，你是要对代码进行替换？有必要 ...

前辈好！
您误会了，也可能没有看清我要替换的真正意思，我说了是 “模拟附件”，我没有说跟医院有关系，附件中的代码只是我收藏的部分代码。

13907933959 · 发表于 2017-5-7 14:55

本帖最后由 13907933959 于 2017-5-9 08:51 编辑

小花鹿发表于 2017-5-7 10:55
第一，这种题目没有什么实际意义，大多数人用不上，所以，没有写代码的动力
第二，你一下子提这么多问题， ...

前辈好！
我觉得有不有意义是因人、因事而异，VBA 本来就不是大多数人能用得上的，您说全球70多亿人，用得上 VBA 的人有多少？提的问题多是因为本案会涉及到这些问题，如一次提一个问题，我又怕有人会说我没完没了。再说整合问题的能力有大小，正因为我没有整合这些问题的能力，才一起发帖求助！

skyzxh · 发表于 2017-5-7 15:58

13907933959 发表于 2017-5-7 14:32
前辈好！
您误会了，也可能没有看清我要替换的真正意思，我说了是 “模拟附件”，我没有说跟医院有关系 ...

是看不明白你要做什么？如果是VBA代码，改不改字体颜色有啥关系？（1、把全文字符设为、黑色。）；这里（2、把文档中的手动换行符，全部替换为、段落符。）手动换行符是啥意思？还有自动换行符么？全部替换为顿号（、）？还是“段落符”？也不懂段落符是啥。。。。。。。。。。。。。。

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

[求助] 求前辈们帮忙实现这样的“查找替换”