较难的查找替换.谁能帮我.?

助人为乐

我想把文档中所有带有"?"的段落文字全部替换为红色的格式.怎么做?

要是用查找替换功能不能实现的话,用VBA怎么实 现?

守柔

以下是引用助人为乐在2004-9-14 10:28:00的发言：

我想把文档中所有带有"?"的段落文字全部替换为红色的格式.怎么做?

要是用查找替换功能不能实现的话,用VBA怎么实 现?

查找与替换：

先将所有段落标记替换成手动换行符(^p-^l),再如图所示进行替换.

用VBA法:

Sub Pb() Dim i As Paragraph Application.ScreenUpdating = False For Each i In ActiveDocument.Paragraphs If InStr(i.Range, "？") > 0 Then i.Range.Font.Color = wdColorRed End If Next Application.ScreenUpdating = True End Sub

伊万

第一种方法好象不是很行。

可能是统配符有点出入，望再指教。

助人为乐

象这种情况也被改了.[em06]

(回车符)

答：①中国革命和建设的实践，是中国共产党领导的广大人民群众的历史活动。毛泽东思想作为中国革命和建设的理论，就是对全党和全国人民进行革命和建设实践经验的科学总结，因而凝聚了党和人民的集体智慧②在毛泽东思想形成和发展过程中，党的许多卓越领导人做出了巨大贡献。这主要表现在：他们根据马克思列宁主义的基本原理对中国革命和建设各方面经验所做的系统的总结，或者补充、丰富、发展了毛泽东论著中的许多观点，或者与毛泽东的某些观点交相辉映；此外，党中央集体总结革命经验、提出重大理论原则、制定重要政策，经过实践检验证明是正确的文件和文献，也是党中央集体智慧的结晶。因此，毛泽东思想是全党集体智慧的结晶，是全党的宝贵精神财富

２毛泽东思想产生的社会历史条件是什么?

(回车符)

[此贴子已经被作者于2004-9-14 12:52:56编辑过]

助人为乐

第二种方法VBA的运行后没有反应,还请版主再烦心帮忙!

可能VBA方法中差一句把整段选中的代码.

说明一点,一般情况下 ?和回车是在一起的,只要把?号和回车所在行替换成红色的格式就可以了

守柔

你的回车符为什么放在下面了？

你的文章段落肯定设置中有问题，或者是有空白段落。还有你的问号是英文状态下的,而我的代码和上述中都是中文状态下的,能没有问题吗?

你将我的代码中的问号改为英文状态下的,应该可以的.

如果你还搞不行,可以上传附件.很简单的呀!

助人为乐

http://club.excelhome.net/viewthread.php?tid=61899

我上传了一个附件,但不小心按成了新建贴子.