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

413191246se · 发表于 2015-6-7 19:30

楼主，经我试验，你说的——不光把绿色^p替换为无，而且蓝色的^p也替换为无了，这种说法，不正确！我的代码没错。——楼上代码是你所有想要的宏 3 代码。

13907933959 · 发表于 2015-6-7 20:23

本帖最后由 13907933959 于 2015-6-7 20:56 编辑

413191246se 发表于 2015-6-7 19:07

前辈好！

我在最后替换★的下面，还漏了一步，把黑色▲替换为蓝色▲＾P 还请加上。
抱歉、抱歉、都怪我，反反复复让你费了不少心，缘份、让你碰上个我这么赖皮的，开句玩笑，让你放忪一下。

413191246se · 发表于 2015-6-8 00:07

楼主，请把下面的代码加到上面的总代码中，放在 End Sub前面即可。——楼主笑得出来，看来还是不错的，别累坏了啊！

'Sub 查找红色A替换为蓝色B()
With ActiveDocument.Content.Find
.Font.Color = wdColorBlack
.Replacement.Font.Color = wdColorBlue
.Execute FindText:="▲", ReplaceWith:="▲^p", Format:=True, Replace:=wdReplaceAll
End With

复制代码

13907933959 · 发表于 2015-6-8 07:10

413191246se 发表于 2015-6-8 00:07
楼主，请把下面的代码加到上面的总代码中，放在 End Sub前面即可。——楼主笑得出来，看来还是不错的，别累 ...

谢谢前辈！
因为有你这样一位百问不厌的师长和朋友，我才会有笑容，不然、为这个事愁都愁死了，哭都没有时间，你的代码不是一般的棒是相当的棒，没有你我要走到美国去，是你让我坐飞机去，发自内心的感谢你！

413191246se · 发表于 2015-6-8 09:53

楼主，我仅仅会一点 VBA 的皮毛，与守柔版主、sylun 大侠等那样的高手相比，真是天壤之别呀！光有热情是不够的，还要有真本事。咱们共同进步吧！

13907933959 · 发表于 2015-6-8 12:37

本帖最后由 13907933959 于 2015-6-8 13:22 编辑

413191246se 发表于 2015-6-8 09:53
楼主，我仅仅会一点 VBA 的皮毛，与守柔版主、sylun 大侠等那样的高手相比，真是天壤之别呀！光有热情是 ...

前辈好！
你真谦虚，这个都算皮毛，哪再高的高手总不可能不用代码吧？反正不管怎样你的代码，完美的解决了困扰我很久的大问题，在我心中你就是高手，至于你提到的两位我也不认识，也没有亲眼见过他们的水平有多高，不过、我听我中医师傅说真正的好中医，要具备三点：一要人品好，二要有同情心，三才是技术好。我看这三点你都具备，所以才说你是我心中高手，这不是恭维的话，真的。

前辈、接下来到了我该受罚的时候，未经师傅你认可，偷偷的照葫芦画瓢在你的代码中再加了十几个步骤，还好、运行还算正常，断行连上了95％以上，不过还是劳请你为徒弟修改一下，谢谢！

前辈、接下来到了请你组装的时候，我希望能把我给你的“宏1”的代码，放在第一部分，“宏2”的代码，放在第二部分，你编的把含有 <目录> 和 <篇名> 的一行，改为蓝色★<目录>▲ ★<篇名>××××▲的代码，放在第三部分，“宏3”的代码，放在第四部分，因为我觉得它们的步骤是根据这个先后次序来的，不然会有很多步骤会执行不了，不知这个对不对，还请你指正！

哪个循环立遍、保存，文档的代码放在那一部分，是师傅你考虑的事，我不懂。我把3个宏代码用附件上传上来，等待师傅你过目、审阅，组装后，徒儿我就坐上了飞机去美国啰……。
嗨、咱老百啊！高兴、高兴、真高兴……师傅高兴一下吧！为我忙了这么久，真辛苦你了，感谢！感谢！再感谢！

413191246se · 发表于 2015-6-8 16:54

谢谢楼主夸奖！——我查你宏1中代码太多，我看着烦乱，你要是有留底，直接告诉我要达到什么目的吧，我编写代码即可；宏2中如：序言＾P替换成序言：＾P（红色），》＾P，替换成》（红色）------宏2的代码我并未给你编写，是否要编写一下？最近几天一直在编宏3，代码行数够多。关于第三部分《篇目》和《目录》加五角星，这个我似乎没留底，重编一下就行了。
***宏1：要实现什么目的，告诉我；宏2：我是否编辑一下？

413191246se · 发表于 2015-6-8 20:40

楼主，宏2中的方框，我怎么找不到？你怎么找到的？见图片：方框.gif

13907933959 · 发表于 2015-6-8 20:47

本帖最后由 13907933959 于 2015-6-8 20:49 编辑

413191246se 发表于 2015-6-8 16:54
谢谢楼主夸奖！——我查你宏1中代码太多，我看着烦乱，你要是有留底，直接告诉我要达到什么目的吧，我编 ...

前辈好！

我就是想请你把哪3段代码，和★《篇目》▲和★《目录》×××▲二行加上★▲变为蓝色的代码，还有那个“循环历遍”及保存的代码合为一个宏，今天我用自已录制的“宏1”“宏2”和你帮我编的“宏3”，及用查找替换把《篇目》和《目录》×××▲二行加上★▲变为蓝色，4套程序替换下来的样稿，下午给师傅及师兄他们看，他们相当满意，尽管还有5％左右的断行没有连上，那个没有办法，只能我和师兄们手工修改。

也就是说：你再编一段把《篇目》和《目录》×××▲二行加上★▲变为蓝色的代码，编一段“循环历遍”及保存文档的代码，把这5段代码合为一个宏，就万事大吉了。免得现在一篇文档我还要分4次处理×700＝2800次。如能“循环历遍”那个快就不用说。

我的想法可能是个外行的想法，可能在你哪里行不通，如果是这样就按你的想法办，只要能达样稿的效果怎样都成。

你问我“宏1” 要实现什么目的，我一二句讲不清，上传附件给你看。

ᐟᐟ

413191246se · 发表于 2015-6-8 20:49

楼主，我想继续说的话，因为字节太多，提供压缩包你下载观看吧：

继续收看.rar (6.72 KB, 下载次数: 2)

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

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