Word录制宏后，让宏对字体的颜色更改为蓝色、无法保存

413191246se

楼主，你得自己键入一段文字，文字中必须包括“录不到”三个字，然后再试验，才有变化呢！

413191246se

你没看到 findtext 吗？（意思是：搜索文本）

13907933959

413191246se 发表于 2015-6-5 19:43
你没看到 findtext 吗？（意思是：搜索文本）

前辈好！
现在试出来了，是要在试验的文档中加入“录不到”3个字，然后运行代码就会出现“录不到可以编”6个红色、黑体、二号字。

前辈好！

我还不太明白你的意思，你是不是说^?（任意字符）^P（段落标记）写进代码无用的意思？

413191246se

是的！你看该宏的代码：findtext:="录不到"——find 汉语是“搜索、查找”，text 汉语是“文本、文字”，你自己把双引号中间的文字替换为自己的查找词汇，就是灵活运用了，不能不看代码。replacewith:“录不到可以编"——replace 汉语是“替换”，合起来是替换为的文本。自己做一下 demo 保存起来，反复试验。

13907933959

413191246se 发表于 2015-6-5 20:11
是的！你看该宏的代码：findtext:="录不到"——find 汉语是“搜索、查找”，text 汉语是“文本、文字”，你 ...

前辈好！
在宏代码中：段落标记、手动换行符、任意字符、任意数字、红色、蓝色、绿色，它们都分别用什么代码代替？
前辈、还恳请你把下面这33个步骤编成一个单独的宏代码，谢谢！
，＾？＾P替换成绿色
，＾？＾？＾P替换成绿色
，＾？＾？＾？＾P替换成绿色
、＾？＾P替换成绿色
、＾？＾？＾P替换成绿色
＾P＾？，替换成绿色
＾P＾？＾？，替换成绿色
＾P＾？＾？＾？，替换成绿色
《＾？＾P替换成绿色
《＾？＾？＾P替换成绿色
《＾？＾？＾？＾P替换成绿色
“＾？＾P替换成绿色
“＾？＾？＾P替换成绿色
＾P＾？》替换成绿色
＾P＾？＾？》替换成绿色
＾P＾？＾？＾？》替换成绿色
》＾？＾P替换成绿色
》＾？＾？＾P替换成绿色
＾P＾？。替换成绿色
＾P＾？＾？。替换成绿色
（＾P替换成绿色
（＾？＾P替换成绿色
（＾？＾？＾P替换成绿色
＾P＾？＾P替换成绿色
＾P＾？＾？＾P替换成绿色
＾P？（这个红色的？是普通的问号）替换成绿色
＾P＾？）替换成绿色
＾P＾？＾？）替换成绿色
＾P＾？＾？＾？）替换成绿色
＾P＾＃.替换成绿色
1、查找绿色＾P替换为空白（不填任何内容）
2、查找绿色 .替换为 、
3、查找绿色替换为黑色

前辈呀！如一篇一篇用“查找替换”，是可以完成，可每一篇都要经过33次的替换，乘以700＝23100次，想想都怕，能否努把力帮小第去除这个难路虎。我真是没有办法可想，恳求你再想想办法，因为你的办法比我的总要多的多。

413191246se

楼主，SORRY，我水平也不高。我刚才又把代码换了一种写法，达到目的。你先自己做个例文，就是 demo，然后配合“重新打开”宏，反复试验可也。但要注意：在代码中的写法，除中文的逗号、句号等为全角外，其它如^?^p等都要保持英文半角状态，请试试如下代码（仅针对你第一行的情况，如果可行，只须将主体代码复制一遍放到原代码下面继续执行即可（注意在一个过程Sub中。Do...Loop是无限循环语句，在findtext:=""双引号中为你要替换的内容，注意要小写/英文，如果是空格直接打空格即可）：

1. Sub test()
   
2. '替换为绿色
   
3.     Selection.HomeKey Unit:=wdStory '光标至文首
   
4.     Do
   
5.         Selection.Find.Execute findtext:="，^?^p"
   
6.         If Selection.Find.Found = True Then Selection.Font.Color = wdColorGreen Else Exit Do '如果找到则替换为绿色；否则退出循环
   
7.     Loop
   
8. End Sub

复制代码

13907933959

413191246se 发表于 2015-6-6 12:03
楼主，SORRY，我水平也不高。我刚才又把代码换了一种写法，达到目的。你先自己做个例文，就是 demo，然后配 ...

前辈、前辈！是成功了！可查找到第一个步骤里面的内容，并替换成了绿色，谁说你不成、你真是太棒了！请你再努把力把余下的步骤完成，就可大功告成呀！辛苦你了、谢谢！

前辈好！我看到这个，不知对你有用否，我看不懂。

查找与替换的基本代码用法之三(批量替换）

功能简介：同时进行多个查找与替换，支持非通配符下的特殊字符的替换。

比如，适用于ISO文件，因组织机构调整，对所有原有部门一次输入后替换为新部门。查找的各个内容之间，用英文逗号分隔（","），查找数量不限。

替换的各个内容之间，用英文逗号分隔（",")，替换数量必须等同于查找数量，如是删除某个查找内容，替换中键入""(空空）

'* + ++ + + + + + + + + + + + + + + + + + + + + + + + + + +

'AThe CodeCopyIn [ThisDocument-ThisDocument]^'

'*---

Private Sub Document_Close()

On Error Resume Next

Application.CommandBars("Edit").Controls("多个替换").Delete '恢复原有菜单End Sub »

Private Sub Document_Open()

On ErrorResume Next

Dim NewButtonAs CommandBarButton

CustomizationContext = ActiveDocument '将自定义组合键和工具命令保存于

活动文档中

'指定CTRL+F为键盘快捷方式

KeyBindings.AddwdKeyCategoryMacro, "MySub", BuildKeyCode(wdKeyControl,wdKeyF)

'指定F5为快捷方式

KeyBindings.Add wdKeyCategoryMacro,"MySub", BuildKeyCode(wdKeyF5) Application.CommandBars("Edit").Controls("多个替换").Delete '预防性删除SetNewButton =

Application.CommandBars("Edit").Controls.Add(Type:=msoControlButton,Before: = 11) With NewButton

.Caption ="多个替换" '命令名称 .Faceld = 100 '命令的 Faceld .Visible = True '可见 .OnAction = "MySub"'指定响应过程名 End With End Sub »

Sub MySub()

UserForml.ShowEnd Sub »

Sub ComReset()'恢复默认设置

Application.CommandBars("Edit").Reset End Sub

413191246se

楼主，你提供的代码是本论坛 守柔版主 的杰作，我知道，但我也看不懂。
——是这样，67楼代码，你去掉 Sub test() 这行和 End Sub 这行，中间的代码你可以复制若干次，然后把 findtext:="ABC"这个双引号""中间放上你的代码，你再找一篇 demo 来测试就可以了，我希望你自己一段一段地用这段代码来完成你的替换（不要存盘，只是试验）。
记住：除中文的逗号、书名号之外，其它的都是小写英文半角状态，如：^?^p，如果是空格，直接在双引号中间打一个空格即可。（第一个你试验成功了，其它的不是一样吗？）

13907933959

413191246se 发表于 2015-6-6 19:48
楼主，你提供的代码是本论坛 守柔版主 的杰作，我知道，但我也看不懂。
——是这样，67楼代码，你去掉 Sub ...

前辈好！
我的意思是让你把我给你的“宏3”，那33个步骤编成一段代码，就好了，我现连字都还识一个，更不要说写一篇文章，我不可能把它编成，你每次给我一段代码，而且你把每一步都注解得很清楚，我都如临大敌，每次都还是很难操作，更不要说看懂代码，如你有一步注解得不清楚，我便无从下手，如你刚刚的回复我就大多数看不懂，前辈呀！请理解一个外行的苦衷，我真是一点都不懂，恳请你辛辛苦，努努力，想办法帮忙把它完成，我只有恳请你，你是我唯一的希望！真得是唯一的希望！

413191246se

好的，我把宏3的内容都集成在一起。。。