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

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

413191246se 发表于 2015-6-8 20:40
楼主，宏2中的方框，我怎么找不到？你怎么找到的？见图片：

方框见附件

13907933959 · 发表于 2015-6-8 21:25

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

前辈好！

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

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

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

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

413191246se · 发表于 2015-6-9 00:41

楼主，91楼我的附件已经包含了所有的代码，你看一下，里面第三部分就是你要的加五角星的代码，但第二部分我用代码找不到方框。你提供的附件没用，我想知道在哪篇文章里有这样的方框。——至于循环遍历文件夹，处理很多文档，先不着急，咱们先把单个文档搞妥。

13907933959 · 发表于 2015-6-9 08:01

本帖最后由 13907933959 于 2015-6-9 08:15 编辑

413191246se 发表于 2015-6-9 00:41
楼主，91楼我的附件已经包含了所有的代码，你看一下，里面第三部分就是你要的加五角星的代码，但第二部 ...

特殊符号大全

前辈好！

我忘了说，一个方框就是一个空格的意思。

413191246se · 发表于 2015-6-9 09:32

楼主，你提供的附件很好，但我用不上。——我的意思是，那个方框，你在700本这套文件中，能否找得到？我怎么找不到？还有，宏2因为那个方框，我无法让它们运行，都注释掉了。
也许你知道，在VBA代码中，以英文单引号(')打头的一行，绿色，是注释行，程序不运行它，可以参照它。其它黑色字体的是运行的代码，而如果出现红色，一般是某个语句语法有问题了。
——请参照我91楼提供的附件中的代码，你自己拷贝到VBE中（按Alt+F11），逐语句阅读一下，参照注释，自己可以把相关代码拷贝到其中。
——另外注意：代码中不能有两个一样的宏，比如，已经有 test 这个过程（程序）了，再拷贝一个 test 过程，WORD 会出错或不运行，把先前的 test 改名为 test111也可以，或在WORD编辑界面按 Alt+F8 找到先前的 test 过程删除也可以。
——楼主，你能提供一下你是在哪一篇文档中找到这个方框的？（楼主，你自己可以把相关的代码拷贝到相应的地方去，试运行的。）

13907933959 · 发表于 2015-6-9 10:54

本帖最后由 13907933959 于 2015-6-9 11:06 编辑

413191246se 发表于 2015-6-9 09:32
楼主，你提供的附件很好，但我用不上。——我的意思是，那个方框，你在700本这套文件中，能否找得到？我怎 ...

前辈好！
第49号《五十二病方》内有方框。
我用方框是代表有一个空格，意思是要查找替换掉那个空格，不是指书内的方框。

因在医书内有很多很多空格是有用的，不能直接一下把空格全部替换掉，会引起书中文句大乱，所以才用这种有限制的替换空格的办法。

13907933959 · 发表于 2015-6-9 11:35

13907933959 发表于 2015-6-9 10:54
前辈好！
第49号《五十二病方》内有方框。
我用方框是代表有一个空格，意思是要查找替换掉那个空格，不 ...

前辈好！
下面这个代码如插入其它代码中运行或单独运行，怎么用？我试了一下用不了，是不是还要加什么代码才能用？

'<篇名><目录>前后加★▲（循环遍历所有段落）
Dim i As Paragraph
For Each i In ActiveDocument.Paragraphs
      If i.Range Like "<目录>*" Or i.Range Like "<篇名>*" Then
         With i.Range
            .InsertBefore Text:="★" '段前插入★
            .Characters.Last.InsertBefore Text:="▲" '段后插入▲
            .Font.Color = wdColorBlue '蓝色
         End With
      End If
Next

413191246se · 发表于 2015-6-9 18:14

*楼主，宏2内方框我无法把空放到代码中去执行，放进去之后方框都变成了?号，我就注释掉它了。
*在VBA中一个过程，就是一段小程序，第一句标志是Sub 某某某()，结束标志是End Sub，你只须把★▲这段放在单独的 Sub aaa()...End Sub过程之间即可运行，也可以把它放在任意一个过程（程序）之内即可。
一般，按 Alt+F8 是打开观看所有的宏，再运行某个宏；按 Alt+F11 是进入VBE进行编程；如果频繁使用某个宏可以给它指定到工具栏上为一个按钮或自定义一个热键（快捷键），一般 F4 键最为方便。
*在代码中，如i.Range Like "<目录>*"双引号之内的星号*它是代码若干个字符，英文问号?代表单个字符。
*91楼代码，是所有你替换操作的总汇总，你可以结合注释语句（绿色前面带英文单引号'的一行）把相应的模块复制/剪切到该过程的任意位置。

413191246se · 发表于 2015-6-9 18:16

楼主，你有时间可以看看——微软官方VBA帮助（原版）：

VBA 微软官方VBA帮助（原版）.rar (74.2 KB, 下载次数: 1)

13907933959 · 发表于 2015-6-9 20:11

本帖最后由 13907933959 于 2015-6-9 20:43 编辑

413191246se 发表于 2015-6-9 18:14
*楼主，宏2内方框我无法把空放到代码中去执行，放进去之后方框都变成了?号，我就注释掉它了。
*在VBA中一 ...

前辈好！
宏2内的方框（也就空格）如实在是编代码中实现不了（我在录制宏中空格好象可以），就按你的意思办，这半个多月来天天打扰你，我早就不好意思了，要不是实在没有办法，我也不会这样的不礼貌，说句实话今天看到你为我准备好“继续观看”，我感动了，真得是感动了，你我素不相识、未曾某面，而为我的事这样的费神劳力，真对不住你，前辈、真得是谢谢！谢谢！

前辈好！

我刚刚试了一下<篇名><目录>前后加★▲（循环遍历所有段落）这个代码，好用，就是第一行的大标题也会加上★▲变蓝色，如不让大标题加上★▲变色，要怎么办？

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

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