设为首页收藏本站
简字体切换切换到宽版

ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步，快速开始

快捷登录

搜索
ExcelHome技术论坛»论坛 › Office Family › Word › Word录制宏后，让宏对字体的颜色更改为蓝色、无法保存
EH技术汇-专业的职场技能充电站 妙哉！函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器，一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理，一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
1 ...3456789101112... 30下一页
返回列表 发新帖
楼主: 13907933959

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

[复制链接]
413191246se

TA的精华主题

TA的得分主题
发表于 2015-6-7 08:35 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册★
楼主，宏3共33步，你试试吧！（结合《重新打开》宏，反复试验，不要存盘，自己做一份简单的 demo）：
  1. Sub test()
  2. '中医----宏 3
  3.     Selection.HomeKey Unit:=wdStory
  4.     Do
  5.         Selection.Find.Execute FindText:="，^?^p"
  6.         Selection.Font.Color = wdColorRed
  7.     Loop Until Selection.Find.Found = False

  9.     Selection.HomeKey Unit:=wdStory
  10.     Do
  11.         Selection.Find.Execute FindText:="，^?^?^p"
  12.         Selection.Font.Color = wdColorRed
  13.     Loop Until Selection.Find.Found = False

  15.     Selection.HomeKey Unit:=wdStory
  16.     Do
  17.         Selection.Find.Execute FindText:="，^?^?^?^p"
  18.         Selection.Font.Color = wdColorRed
  19.     Loop Until Selection.Find.Found = False

  21.     Selection.HomeKey Unit:=wdStory
  22.     Do
  23.         Selection.Find.Execute FindText:="、^?^p"
  24.         Selection.Font.Color = wdColorRed
  25.     Loop Until Selection.Find.Found = False

  27.     Selection.HomeKey Unit:=wdStory
  28.     Do
  29.         Selection.Find.Execute FindText:="、^?^?^p"
  30.         Selection.Font.Color = wdColorRed
  31.     Loop Until Selection.Find.Found = False

  33.     Selection.HomeKey Unit:=wdStory
  34.     Do
  35.         Selection.Find.Execute FindText:="^p^?，"
  36.         Selection.Font.Color = wdColorRed
  37.     Loop Until Selection.Find.Found = False

  39.     Selection.HomeKey Unit:=wdStory
  40.     Do
  41.         Selection.Find.Execute FindText:="^p^?^?，"
  42.         Selection.Font.Color = wdColorRed
  43.     Loop Until Selection.Find.Found = False

  45.     Selection.HomeKey Unit:=wdStory
  46.     Do
  47.         Selection.Find.Execute FindText:="^p^?^?^?，"
  48.         Selection.Font.Color = wdColorRed
  49.     Loop Until Selection.Find.Found = False

  51.     Selection.HomeKey Unit:=wdStory
  52.     Do
  53.         Selection.Find.Execute FindText:="《^?^p"
  54.         Selection.Font.Color = wdColorRed
  55.     Loop Until Selection.Find.Found = False

  57.     Selection.HomeKey Unit:=wdStory
  58.     Do
  59.         Selection.Find.Execute FindText:="《^?^?^p"
  60.         Selection.Font.Color = wdColorRed
  61.     Loop Until Selection.Find.Found = False

  63.     Selection.HomeKey Unit:=wdStory
  64.     Do
  65.         Selection.Find.Execute FindText:="《^?^?^?^p"
  66.         Selection.Font.Color = wdColorRed
  67.     Loop Until Selection.Find.Found = False
  68. ''下面一段代码中，若出现红色，则将 findtext:=后面第二个双引号改为中文左双引号，自己键入吧！
  69.     Selection.HomeKey Unit:=wdStory
  70.     Do
  71.         Selection.Find.Execute FindText:="“^?^p"
  72.         Selection.Font.Color = wdColorRed
  73.     Loop Until Selection.Find.Found = False
  74. '下面一段代码中，若出现红色，则将 findtext:=后面第二个双引号改为中文左双引号，自己键入吧！
  75.     Selection.HomeKey Unit:=wdStory
  76.     Do
  77.         Selection.Find.Execute FindText:="“^?^?^p"
  78.         Selection.Font.Color = wdColorRed
  79.     Loop Until Selection.Find.Found = False

  81.     Selection.HomeKey Unit:=wdStory
  82.     Do
  83.         Selection.Find.Execute FindText:="^p^?》"
  84.         Selection.Font.Color = wdColorRed
  85.     Loop Until Selection.Find.Found = False

  87.     Selection.HomeKey Unit:=wdStory
  88.     Do
  89.         Selection.Find.Execute FindText:="^p^?^?》"
  90.         Selection.Font.Color = wdColorRed
  91.     Loop Until Selection.Find.Found = False

  93.     Selection.HomeKey Unit:=wdStory
  94.     Do
  95.         Selection.Find.Execute FindText:="^p^?^?^?》"
  96.         Selection.Font.Color = wdColorRed
  97.     Loop Until Selection.Find.Found = False

  99.     Selection.HomeKey Unit:=wdStory
  100.     Do
  101.         Selection.Find.Execute FindText:="》^?^p"
  102.         Selection.Font.Color = wdColorRed
  103.     Loop Until Selection.Find.Found = False

  105.     Selection.HomeKey Unit:=wdStory
  106.     Do
  107.         Selection.Find.Execute FindText:="》^?^?^p"
  108.         Selection.Font.Color = wdColorRed
  109.     Loop Until Selection.Find.Found = False

  111.     Selection.HomeKey Unit:=wdStory
  112.     Do
  113.         Selection.Find.Execute FindText:="^p^?。"
  114.         Selection.Font.Color = wdColorRed
  115.     Loop Until Selection.Find.Found = False

  117.     Selection.HomeKey Unit:=wdStory
  118.     Do
  119.         Selection.Find.Execute FindText:="^p^?^?。"
  120.         Selection.Font.Color = wdColorRed
  121.     Loop Until Selection.Find.Found = False

  123.     Selection.HomeKey Unit:=wdStory
  124.     Do
  125.         Selection.Find.Execute FindText:="（^p"
  126.         Selection.Font.Color = wdColorRed
  127.     Loop Until Selection.Find.Found = False

  129.     Selection.HomeKey Unit:=wdStory
  130.     Do
  131.         Selection.Find.Execute FindText:="（^?^p"
  132.         Selection.Font.Color = wdColorRed
  133.     Loop Until Selection.Find.Found = False

  135.     Selection.HomeKey Unit:=wdStory
  136.     Do
  137.         Selection.Find.Execute FindText:="（^?^?^p"
  138.         Selection.Font.Color = wdColorRed
  139.     Loop Until Selection.Find.Found = False

  141.     Selection.HomeKey Unit:=wdStory
  142.     Do
  143.         Selection.Find.Execute FindText:="^p^?^p"
  144.         Selection.Font.Color = wdColorRed
  145.     Loop Until Selection.Find.Found = False

  147.     Selection.HomeKey Unit:=wdStory
  148.     Do
  149.         Selection.Find.Execute FindText:="^p^?^?^p"
  150.         Selection.Font.Color = wdColorRed
  151.     Loop Until Selection.Find.Found = False

  153.     Selection.HomeKey Unit:=wdStory
  154.     Do
  155.         Selection.Find.Execute FindText:="^p？"
  156.         Selection.Font.Color = wdColorRed
  157.     Loop Until Selection.Find.Found = False

  159.     Selection.HomeKey Unit:=wdStory
  160.     Do
  161.         Selection.Find.Execute FindText:="^p^?）"
  162.         Selection.Font.Color = wdColorRed
  163.     Loop Until Selection.Find.Found = False

  165.     Selection.HomeKey Unit:=wdStory
  166.     Do
  167.         Selection.Find.Execute FindText:="^p^?^?）"
  168.         Selection.Font.Color = wdColorRed
  169.     Loop Until Selection.Find.Found = False

  171.     Selection.HomeKey Unit:=wdStory
  172.     Do
  173.         Selection.Find.Execute FindText:="^p^?^?^?）"
  174.         Selection.Font.Color = wdColorRed
  175.     Loop Until Selection.Find.Found = False

  177.     Selection.HomeKey Unit:=wdStory
  178.     Do
  179.         Selection.Find.Execute FindText:="^p^#."
  180.         Selection.Font.Color = wdColorRed
  181.     Loop Until Selection.Find.Found = False

  183. '查找绿色某词替换为无
  184.     With ActiveDocument.Content.Find
  185.         .Font.Color = wdColorGreen
  186.         .Execute FindText:="^p", ReplaceWith:="", Format:=True, Replace:=wdReplaceAll
  187.     End With

  189. '查找绿色某词替换为无
  190.     With ActiveDocument.Content.Find
  191.         .Font.Color = wdColorGreen
  192.         .Execute FindText:=" .", ReplaceWith:="、", Format:=True, Replace:=wdReplaceAll
  193.     End With

  195. '查找绿色替换为黑色
  196.     With ActiveDocument.Content.Find
  197.         .Font.Color = wdColorGreen
  198.         .Replacement.Font.Color = wdColorBlack
  199.         .Execute FindText:="", ReplaceWith:="", Format:=True, Replace:=wdReplaceAll
  200.     End With
  201. End Sub
复制代码
回复

举报

413191246se

TA的精华主题

TA的得分主题
发表于 2015-6-7 08:40 | 显示全部楼层
[广告] ★Excel Home云课堂 - 专业的职场技能充电站★         ★Excel三大利器★        ★ 笨办法学VBA全系列★
注意：如果拷贝到VBA编辑器中，有的代码呈红色，其实就是：有两段代码，因为是中文左双引号，它变成了英文的了，不合语法，你手动把呈红色段落的第 3 行语句：Selection.Find.Execute FindText:="“^?^p"，就是findtext:=等号后面第2个双引号，手动改为中文左双引号即可。——如果出现红色，会有两段要改；如果没有红色，运行即可。
回复

举报

13907933959

TA的精华主题

TA的得分主题
 楼主| 发表于 2015-6-7 11:00 | 显示全部楼层
[广告] ★ ReportLite:表哥表姐早下班神器，专治各种报表不服，拒绝无意义的重复劳动 ★
本帖最后由 13907933959 于 2015-6-7 11:16 编辑
413191246se 发表于 2015-6-7 08:40
注意：如果拷贝到VBA编辑器中，有的代码呈红色，其实就是：有两段代码，因为是中文左双引号，它变成了英文 ...

前辈好！
真是太缴动了，你真是神人，你的技术真是蓝波湾让人仰慕，前辈、代码粘贴后没有出现红色，运行正常，就是后面3步你可能没注意到，你把查找的字及符号替换为了红色（应为绿色），导至后3步没有实现，还不能把断行连了起来，查找的汉字没有变回黑色。再一个我想加一步这个  ：＾？＾？＾？＾？＾P  不知可成否？

还有一个下面的这个问题，我知道是我的这些步骤 ，＾？＾？＾P   ，＾？＾？＾？＾P导置的，能不能让33个步骤里面的查找＾？的时候不包括蓝色的★和▲
★<篇名>果，上部▲内容：大枣 杀乌头，毒。★<目录>卷三\下经▲
★<篇名>菜，上部▲内容：冬葵子 黄芩为使。葱实，解藜芦毒。
★<篇名>米，上部▲内容：麻、麻子 畏牡蛎、白薇；恶茯苓。
★<篇名>米，中部▲内容：大豆及黄卷 恶五参、龙胆；得前胡、乌喙、杏仁
回复

举报

413191246se

TA的精华主题

TA的得分主题
发表于 2015-6-7 11:58 | 显示全部楼层
[广告] ★Excel Home云课堂 - 专业的职场技能充电站★         ★Excel三大利器★        ★ 笨办法学VBA全系列★
楼主，是这样，我看代码中都错了！都是红色的了！我重新改成 绿色（Green）的了。——另外，这个五角星和三角形，在查找和替换代码中我觉得是无能为力，但有个简便办法：你点击：编辑菜单——全选——颜色：自动色，就可以了。以后专门对《篇名》和《目录》做处理，很简单的，段落循环即可，现在你不必管这些。你只管替换即可，宏3加入了你附加的一段，试试吧：（文件不要存盘，只是试验，结合《重新打开》按钮）
  1. Sub test()
  2. '中医----宏 3（查找变绿色）
  3.     Selection.HomeKey Unit:=wdStory
  4.     Do
  5.         Selection.Find.Execute FindText:="，^?^p"
  6.         Selection.Font.Color = wdColorGreen
  7.     Loop Until Selection.Find.Found = False

  9.     Selection.HomeKey Unit:=wdStory
  10.     Do
  11.         Selection.Find.Execute FindText:="，^?^?^p"
  12.         Selection.Font.Color = wdColorGreen
  13.     Loop Until Selection.Find.Found = False

  15.     Selection.HomeKey Unit:=wdStory
  16.     Do
  17.         Selection.Find.Execute FindText:="，^?^?^?^p"
  18.         Selection.Font.Color = wdColorGreen
  19.     Loop Until Selection.Find.Found = False

  21.     Selection.HomeKey Unit:=wdStory
  22.     Do
  23.         Selection.Find.Execute FindText:="、^?^p"
  24.         Selection.Font.Color = wdColorGreen
  25.     Loop Until Selection.Find.Found = False

  27.     Selection.HomeKey Unit:=wdStory
  28.     Do
  29.         Selection.Find.Execute FindText:="、^?^?^p"
  30.         Selection.Font.Color = wdColorGreen
  31.     Loop Until Selection.Find.Found = False

  33.     Selection.HomeKey Unit:=wdStory
  34.     Do
  35.         Selection.Find.Execute FindText:="^p^?，"
  36.         Selection.Font.Color = wdColorGreen
  37.     Loop Until Selection.Find.Found = False

  39.     Selection.HomeKey Unit:=wdStory
  40.     Do
  41.         Selection.Find.Execute FindText:="^p^?^?，"
  42.         Selection.Font.Color = wdColorGreen
  43.     Loop Until Selection.Find.Found = False

  45.     Selection.HomeKey Unit:=wdStory
  46.     Do
  47.         Selection.Find.Execute FindText:="^p^?^?^?，"
  48.         Selection.Font.Color = wdColorGreen
  49.     Loop Until Selection.Find.Found = False

  51.     Selection.HomeKey Unit:=wdStory
  52.     Do
  53.         Selection.Find.Execute FindText:="《^?^p"
  54.         Selection.Font.Color = wdColorGreen
  55.     Loop Until Selection.Find.Found = False

  57.     Selection.HomeKey Unit:=wdStory
  58.     Do
  59.         Selection.Find.Execute FindText:="《^?^?^p"
  60.         Selection.Font.Color = wdColorGreen
  61.     Loop Until Selection.Find.Found = False

  63.     Selection.HomeKey Unit:=wdStory
  64.     Do
  65.         Selection.Find.Execute FindText:="《^?^?^?^p"
  66.         Selection.Font.Color = wdColorGreen
  67.     Loop Until Selection.Find.Found = False
  68. '下面一段代码中，若出现红色，则将 findtext:=后面第二个双引号改为中文左双引号，自己键入吧！
  69.     Selection.HomeKey Unit:=wdStory
  70.     Do
  71.         Selection.Find.Execute FindText:="“^?^p"
  72.         Selection.Font.Color = wdColorGreen
  73.     Loop Until Selection.Find.Found = False
  74. '下面一段代码中，若出现红色，则将 findtext:=后面第二个双引号改为中文左双引号，自己键入吧！
  75.     Selection.HomeKey Unit:=wdStory
  76.     Do
  77.         Selection.Find.Execute FindText:="“^?^?^p"
  78.         Selection.Font.Color = wdColorGreen
  79.     Loop Until Selection.Find.Found = False

  81.     Selection.HomeKey Unit:=wdStory
  82.     Do
  83.         Selection.Find.Execute FindText:="^p^?》"
  84.         Selection.Font.Color = wdColorGreen
  85.     Loop Until Selection.Find.Found = False

  87.     Selection.HomeKey Unit:=wdStory
  88.     Do
  89.         Selection.Find.Execute FindText:="^p^?^?》"
  90.         Selection.Font.Color = wdColorGreen
  91.     Loop Until Selection.Find.Found = False

  93.     Selection.HomeKey Unit:=wdStory
  94.     Do
  95.         Selection.Find.Execute FindText:="^p^?^?^?》"
  96.         Selection.Font.Color = wdColorGreen
  97.     Loop Until Selection.Find.Found = False

  99.     Selection.HomeKey Unit:=wdStory
  100.     Do
  101.         Selection.Find.Execute FindText:="》^?^p"
  102.         Selection.Font.Color = wdColorGreen
  103.     Loop Until Selection.Find.Found = False

  105.     Selection.HomeKey Unit:=wdStory
  106.     Do
  107.         Selection.Find.Execute FindText:="》^?^?^p"
  108.         Selection.Font.Color = wdColorGreen
  109.     Loop Until Selection.Find.Found = False

  111.     Selection.HomeKey Unit:=wdStory
  112.     Do
  113.         Selection.Find.Execute FindText:="^p^?。"
  114.         Selection.Font.Color = wdColorGreen
  115.     Loop Until Selection.Find.Found = False

  117.     Selection.HomeKey Unit:=wdStory
  118.     Do
  119.         Selection.Find.Execute FindText:="^p^?^?。"
  120.         Selection.Font.Color = wdColorGreen
  121.     Loop Until Selection.Find.Found = False

  123.     Selection.HomeKey Unit:=wdStory
  124.     Do
  125.         Selection.Find.Execute FindText:="（^p"
  126.         Selection.Font.Color = wdColorGreen
  127.     Loop Until Selection.Find.Found = False

  129.     Selection.HomeKey Unit:=wdStory
  130.     Do
  131.         Selection.Find.Execute FindText:="（^?^p"
  132.         Selection.Font.Color = wdColorGreen
  133.     Loop Until Selection.Find.Found = False

  135.     Selection.HomeKey Unit:=wdStory
  136.     Do
  137.         Selection.Find.Execute FindText:="（^?^?^p"
  138.         Selection.Font.Color = wdColorGreen
  139.     Loop Until Selection.Find.Found = False

  141.     Selection.HomeKey Unit:=wdStory
  142.     Do
  143.         Selection.Find.Execute FindText:="^p^?^p"
  144.         Selection.Font.Color = wdColorGreen
  145.     Loop Until Selection.Find.Found = False

  147.     Selection.HomeKey Unit:=wdStory
  148.     Do
  149.         Selection.Find.Execute FindText:="^p^?^?^p"
  150.         Selection.Font.Color = wdColorGreen
  151.     Loop Until Selection.Find.Found = False

  153.     Selection.HomeKey Unit:=wdStory
  154.     Do
  155.         Selection.Find.Execute FindText:="^p？"
  156.         Selection.Font.Color = wdColorGreen
  157.     Loop Until Selection.Find.Found = False

  159.     Selection.HomeKey Unit:=wdStory
  160.     Do
  161.         Selection.Find.Execute FindText:="^p^?）"
  162.         Selection.Font.Color = wdColorGreen
  163.     Loop Until Selection.Find.Found = False

  165.     Selection.HomeKey Unit:=wdStory
  166.     Do
  167.         Selection.Find.Execute FindText:="^p^?^?）"
  168.         Selection.Font.Color = wdColorGreen
  169.     Loop Until Selection.Find.Found = False

  171.     Selection.HomeKey Unit:=wdStory
  172.     Do
  173.         Selection.Find.Execute FindText:="^p^?^?^?）"
  174.         Selection.Font.Color = wdColorGreen
  175.     Loop Until Selection.Find.Found = False

  177.     Selection.HomeKey Unit:=wdStory
  178.     Do
  179.         Selection.Find.Execute FindText:="^p^#."
  180.         Selection.Font.Color = wdColorGreen
  181.     Loop Until Selection.Find.Found = False

  183.     Selection.HomeKey Unit:=wdStory
  184.     Do
  185.         Selection.Find.Execute FindText:="^?^?^?^?^p"
  186.         Selection.Font.Color = wdColorGreen
  187.     Loop Until Selection.Find.Found = False

  189. '查找绿色某词替换为无
  190.     With ActiveDocument.Content.Find
  191.         .Font.Color = wdColorGreen
  192.         .Execute FindText:="^p", ReplaceWith:="", Format:=True, Replace:=wdReplaceAll
  193.     End With

  195. '查找绿色某词替换为无
  196.     With ActiveDocument.Content.Find
  197.         .Font.Color = wdColorGreen
  198.         .Execute FindText:=" .", ReplaceWith:="、", Format:=True, Replace:=wdReplaceAll
  199.     End With

  201. '查找绿色替换为黑色
  202.     With ActiveDocument.Content.Find
  203.         .Font.Color = wdColorGreen
  204.         .Replacement.Font.Color = wdColorBlack
  205.         .Execute FindText:="", ReplaceWith:="", Format:=True, Replace:=wdReplaceAll
  206.     End With
  207. End Sub
复制代码
回复

举报

13907933959

TA的精华主题

TA的得分主题
 楼主| 发表于 2015-6-7 12:48 | 显示全部楼层
[广告] ★Excel Home云课堂 - 专业的职场技能充电站★         ★Excel三大利器★        ★ 笨办法学VBA全系列★
413191246se 发表于 2015-6-7 11:58
楼主，是这样，我看代码中都错了！都是红色的了！我重新改成 绿色（Green）的了。——另外，这个五角星和三 ...

前辈好！
前辈、前辈救命呀！这个代码把文档中所的＾p全部替掉了，整个文档成一块了。
回复

举报

413191246se

TA的精华主题

TA的得分主题
发表于 2015-6-7 13:34 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助★
呵呵！楼主，这个我救不了你，上面代码倒数第三段，所有绿色^p（回车符）全部替换为""（无），你得自救！（好在，有原文件备份，啥也不怕，折腾吧！）
回复

举报

13907933959

TA的精华主题

TA的得分主题
 楼主| 发表于 2015-6-7 14:28 | 显示全部楼层
[广告] ★用Excel做企业管理系统，Excel服务器学习和下载★
本帖最后由 13907933959 于 2015-6-7 17:23 编辑
413191246se 发表于 2015-6-7 13:34
呵呵！楼主，这个我救不了你，上面代码倒数第三段，所有绿色^p（回车符）全部替换为""（无），你得自救！（ ...

前辈好！
可问题是它把黑色的＾P都全部替掉了。
到数第3步我只是说把绿色的 ^p 替换为空，不是把所有的 ^p 都替换为空。
还有我叫你后加的一个步骤，你好象只加了 ^?^?^?^?^p 前面漏掉了一个引号 ：^?^?^?^?^p

前辈呀！
是哪个漏加的引号，导至整篇文档变成了一块，我加了引号之后就正常了，断行也连上了70％。

前辈、还要再劳你，把下面的这十几个步骤加进代码中。（请加在代码倒数第2个'查找绿色某词替换为无，的前面）好让更多的断行能连上。


：＾？＾？＾？＾P 替换成绿色
：＾？＾？＾P 替换成绿色
：＾？＾P 替换成绿色
；＾？＾P 替换成绿色
；＾？＾？＾P 替换成绿色
；＾？＾？＾？＾P 替换成绿色
；＾？＾？＾？＾？＾P 替换成绿色
，＾？＾？＾？＾？＾P 替换成绿色
＾P＾？＾？《替换成绿色
》＾？＾？＾？＾？＾P 替换成绿色
。＾？＾P 替换成绿色
。＾？＾？＾P 替换成绿色


前辈、下面这2个步骤是为了解决步分★▲这二行和正文连在一起的问题（请加在代码的最后面， 4个★，除了写有（蓝色的五角星）外，其它3个★不用设定颜色）。


查找＾P★替换为★（蓝色的五角星）


查找★替换为＾P★

回复

举报

413191246se

TA的精华主题

TA的得分主题
发表于 2015-6-7 17:49 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助★
如果替换有误，可以放弃，不必存盘。另外，像如果把绿色^p替换为无，也可以替换为```，过后再替换回来。——不过我还是很佩服你的，这么多的替换步骤，怎么想的？我看着都乱。——依我原来的愚见，最简单的就是找到比如：从“内容：”---->>>到双回车符有空行这一段，替换掉所有的回车符，是最简单的做法。
稍等一下我添加一下代码。。。
回复

举报

413191246se

TA的精华主题

TA的得分主题
发表于 2015-6-7 17:51 | 显示全部楼层
[广告] ★会Excel,就能做支持PC、手机、Web、App、Windows、安卓、IOS、Linux信息一体化的各种管理系统 ★
否则，放弃五角星和三角形？把全篇变为自动色，最后再处理它们两个，很简单的。
回复

举报

413191246se

TA的精华主题

TA的得分主题
发表于 2015-6-7 19:07 | 显示全部楼层
[广告] ★Excel Home云课堂 - 专业的职场技能充电站★         ★Excel三大利器★        ★ 笨办法学VBA全系列★
  1. Sub test()
  2. '中医----宏 3（查找变绿色）
  3.     Selection.HomeKey Unit:=wdStory
  4.     Do
  5.         Selection.Find.Execute FindText:="，^?^p"
  6.         Selection.Font.Color = wdColorGreen
  7.     Loop Until Selection.Find.Found = False

  9.     Selection.HomeKey Unit:=wdStory
  10.     Do
  11.         Selection.Find.Execute FindText:="，^?^?^p"
  12.         Selection.Font.Color = wdColorGreen
  13.     Loop Until Selection.Find.Found = False

  15.     Selection.HomeKey Unit:=wdStory
  16.     Do
  17.         Selection.Find.Execute FindText:="，^?^?^?^p"
  18.         Selection.Font.Color = wdColorGreen
  19.     Loop Until Selection.Find.Found = False

  21.     Selection.HomeKey Unit:=wdStory
  22.     Do
  23.         Selection.Find.Execute FindText:="、^?^p"
  24.         Selection.Font.Color = wdColorGreen
  25.     Loop Until Selection.Find.Found = False

  27.     Selection.HomeKey Unit:=wdStory
  28.     Do
  29.         Selection.Find.Execute FindText:="、^?^?^p"
  30.         Selection.Font.Color = wdColorGreen
  31.     Loop Until Selection.Find.Found = False

  33.     Selection.HomeKey Unit:=wdStory
  34.     Do
  35.         Selection.Find.Execute FindText:="^p^?，"
  36.         Selection.Font.Color = wdColorGreen
  37.     Loop Until Selection.Find.Found = False

  39.     Selection.HomeKey Unit:=wdStory
  40.     Do
  41.         Selection.Find.Execute FindText:="^p^?^?，"
  42.         Selection.Font.Color = wdColorGreen
  43.     Loop Until Selection.Find.Found = False

  45.     Selection.HomeKey Unit:=wdStory
  46.     Do
  47.         Selection.Find.Execute FindText:="^p^?^?^?，"
  48.         Selection.Font.Color = wdColorGreen
  49.     Loop Until Selection.Find.Found = False

  51.     Selection.HomeKey Unit:=wdStory
  52.     Do
  53.         Selection.Find.Execute FindText:="《^?^p"
  54.         Selection.Font.Color = wdColorGreen
  55.     Loop Until Selection.Find.Found = False

  57.     Selection.HomeKey Unit:=wdStory
  58.     Do
  59.         Selection.Find.Execute FindText:="《^?^?^p"
  60.         Selection.Font.Color = wdColorGreen
  61.     Loop Until Selection.Find.Found = False

  63.     Selection.HomeKey Unit:=wdStory
  64.     Do
  65.         Selection.Find.Execute FindText:="《^?^?^?^p"
  66.         Selection.Font.Color = wdColorGreen
  67.     Loop Until Selection.Find.Found = False
  68. '下面一段代码中，若出现红色，则将 findtext:=后面第二个双引号改为中文左双引号，自己键入吧！
  69.     Selection.HomeKey Unit:=wdStory
  70.     Do
  71.         Selection.Find.Execute FindText:="“^?^p"
  72.         Selection.Font.Color = wdColorGreen
  73.     Loop Until Selection.Find.Found = False
  74. '下面一段代码中，若出现红色，则将 findtext:=后面第二个双引号改为中文左双引号，自己键入吧！
  75.     Selection.HomeKey Unit:=wdStory
  76.     Do
  77.         Selection.Find.Execute FindText:="“^?^?^p"
  78.         Selection.Font.Color = wdColorGreen
  79.     Loop Until Selection.Find.Found = False

  81.     Selection.HomeKey Unit:=wdStory
  82.     Do
  83.         Selection.Find.Execute FindText:="^p^?》"
  84.         Selection.Font.Color = wdColorGreen
  85.     Loop Until Selection.Find.Found = False

  87.     Selection.HomeKey Unit:=wdStory
  88.     Do
  89.         Selection.Find.Execute FindText:="^p^?^?》"
  90.         Selection.Font.Color = wdColorGreen
  91.     Loop Until Selection.Find.Found = False

  93.     Selection.HomeKey Unit:=wdStory
  94.     Do
  95.         Selection.Find.Execute FindText:="^p^?^?^?》"
  96.         Selection.Font.Color = wdColorGreen
  97.     Loop Until Selection.Find.Found = False

  99.     Selection.HomeKey Unit:=wdStory
  100.     Do
  101.         Selection.Find.Execute FindText:="》^?^p"
  102.         Selection.Font.Color = wdColorGreen
  103.     Loop Until Selection.Find.Found = False

  105.     Selection.HomeKey Unit:=wdStory
  106.     Do
  107.         Selection.Find.Execute FindText:="》^?^?^p"
  108.         Selection.Font.Color = wdColorGreen
  109.     Loop Until Selection.Find.Found = False

  111.     Selection.HomeKey Unit:=wdStory
  112.     Do
  113.         Selection.Find.Execute FindText:="^p^?。"
  114.         Selection.Font.Color = wdColorGreen
  115.     Loop Until Selection.Find.Found = False

  117.     Selection.HomeKey Unit:=wdStory
  118.     Do
  119.         Selection.Find.Execute FindText:="^p^?^?。"
  120.         Selection.Font.Color = wdColorGreen
  121.     Loop Until Selection.Find.Found = False

  123.     Selection.HomeKey Unit:=wdStory
  124.     Do
  125.         Selection.Find.Execute FindText:="（^p"
  126.         Selection.Font.Color = wdColorGreen
  127.     Loop Until Selection.Find.Found = False

  129.     Selection.HomeKey Unit:=wdStory
  130.     Do
  131.         Selection.Find.Execute FindText:="（^?^p"
  132.         Selection.Font.Color = wdColorGreen
  133.     Loop Until Selection.Find.Found = False

  135.     Selection.HomeKey Unit:=wdStory
  136.     Do
  137.         Selection.Find.Execute FindText:="（^?^?^p"
  138.         Selection.Font.Color = wdColorGreen
  139.     Loop Until Selection.Find.Found = False

  141.     Selection.HomeKey Unit:=wdStory
  142.     Do
  143.         Selection.Find.Execute FindText:="^p^?^p"
  144.         Selection.Font.Color = wdColorGreen
  145.     Loop Until Selection.Find.Found = False

  147.     Selection.HomeKey Unit:=wdStory
  148.     Do
  149.         Selection.Find.Execute FindText:="^p^?^?^p"
  150.         Selection.Font.Color = wdColorGreen
  151.     Loop Until Selection.Find.Found = False

  153.     Selection.HomeKey Unit:=wdStory
  154.     Do
  155.         Selection.Find.Execute FindText:="^p？"
  156.         Selection.Font.Color = wdColorGreen
  157.     Loop Until Selection.Find.Found = False

  159.     Selection.HomeKey Unit:=wdStory
  160.     Do
  161.         Selection.Find.Execute FindText:="^p^?）"
  162.         Selection.Font.Color = wdColorGreen
  163.     Loop Until Selection.Find.Found = False

  165.     Selection.HomeKey Unit:=wdStory
  166.     Do
  167.         Selection.Find.Execute FindText:="^p^?^?）"
  168.         Selection.Font.Color = wdColorGreen
  169.     Loop Until Selection.Find.Found = False

  171.     Selection.HomeKey Unit:=wdStory
  172.     Do
  173.         Selection.Find.Execute FindText:="^p^?^?^?）"
  174.         Selection.Font.Color = wdColorGreen
  175.     Loop Until Selection.Find.Found = False

  177.     Selection.HomeKey Unit:=wdStory
  178.     Do
  179.         Selection.Find.Execute FindText:="^p^#."
  180.         Selection.Font.Color = wdColorGreen
  181.     Loop Until Selection.Find.Found = False

  183.     Selection.HomeKey Unit:=wdStory
  184.     Do
  185.         Selection.Find.Execute FindText:="^?^?^?^?^p"
  186.         Selection.Font.Color = wdColorGreen
  187.     Loop Until Selection.Find.Found = False

  189. '查找绿色某词替换为无
  190.     With ActiveDocument.Content.Find
  191.         .Font.Color = wdColorGreen
  192.         .Execute FindText:="^p", ReplaceWith:="", Format:=True, Replace:=wdReplaceAll
  193.     End With

  195. '查找绿色某词替换为无
  196.     With ActiveDocument.Content.Find
  197.         .Font.Color = wdColorGreen
  198.         .Execute FindText:=" .", ReplaceWith:="、", Format:=True, Replace:=wdReplaceAll
  199.     End With

  201. ''''后加的一批！

  203.     Selection.HomeKey Unit:=wdStory
  204.     Do
  205.         Selection.Find.Execute FindText:="：^?^?^?^p"
  206.         Selection.Font.Color = wdColorGreen
  207.     Loop Until Selection.Find.Found = False

  209.     Selection.HomeKey Unit:=wdStory
  210.     Do
  211.         Selection.Find.Execute FindText:="：^?^?^p"
  212.         Selection.Font.Color = wdColorGreen
  213.     Loop Until Selection.Find.Found = False

  215.     Selection.HomeKey Unit:=wdStory
  216.     Do
  217.         Selection.Find.Execute FindText:="：^?^p"
  218.         Selection.Font.Color = wdColorGreen
  219.     Loop Until Selection.Find.Found = False

  221.     Selection.HomeKey Unit:=wdStory
  222.     Do
  223.         Selection.Find.Execute FindText:="；^?^p"
  224.         Selection.Font.Color = wdColorGreen
  225.     Loop Until Selection.Find.Found = False

  227.     Selection.HomeKey Unit:=wdStory
  228.     Do
  229.         Selection.Find.Execute FindText:="；^?^?^p"
  230.         Selection.Font.Color = wdColorGreen
  231.     Loop Until Selection.Find.Found = False

  233.     Selection.HomeKey Unit:=wdStory
  234.     Do
  235.         Selection.Find.Execute FindText:="；^?^?^?^p"
  236.         Selection.Font.Color = wdColorGreen
  237.     Loop Until Selection.Find.Found = False

  239.     Selection.HomeKey Unit:=wdStory
  240.     Do
  241.         Selection.Find.Execute FindText:="；^?^?^?^?^p"
  242.         Selection.Font.Color = wdColorGreen
  243.     Loop Until Selection.Find.Found = False

  245.     Selection.HomeKey Unit:=wdStory
  246.     Do
  247.         Selection.Find.Execute FindText:="，^?^?^?^?^p"
  248.         Selection.Font.Color = wdColorGreen
  249.     Loop Until Selection.Find.Found = False

  251.     Selection.HomeKey Unit:=wdStory
  252.     Do
  253.         Selection.Find.Execute FindText:="^p^?^?《"
  254.         Selection.Font.Color = wdColorGreen
  255.     Loop Until Selection.Find.Found = False

  257.     Selection.HomeKey Unit:=wdStory
  258.     Do
  259.         Selection.Find.Execute FindText:="》^?^?^?^?^p"
  260.         Selection.Font.Color = wdColorGreen
  261.     Loop Until Selection.Find.Found = False

  263.     Selection.HomeKey Unit:=wdStory
  264.     Do
  265.         Selection.Find.Execute FindText:="。^?^p"
  266.         Selection.Font.Color = wdColorGreen
  267.     Loop Until Selection.Find.Found = False

  269.     Selection.HomeKey Unit:=wdStory
  270.     Do
  271.         Selection.Find.Execute FindText:="。^?^?^p"
  272.         Selection.Font.Color = wdColorGreen
  273.     Loop Until Selection.Find.Found = False

  275. ''''查找绿色替换为黑色
  276.     With ActiveDocument.Content.Find
  277.         .Font.Color = wdColorGreen
  278.         .Replacement.Font.Color = wdColorBlack
  279.         .Execute FindText:="", ReplaceWith:="", Format:=True, Replace:=wdReplaceAll
  280.     End With

  282. '''最后两个五角星和三角形的替换
  283.     With ActiveDocument.Content.Find
  284.         .Replacement.Font.Color = wdColorBlue
  285.         .Execute FindText:="^p★", ReplaceWith:="★", Format:=True, Replace:=wdReplaceAll
  286.     End With

  288.     ActiveDocument.Content.Find.Execute FindText:="★", ReplaceWith:="^p★", Replace:=wdReplaceAll
  289. End Sub
复制代码
回复

举报

下一页 »
1 ...3456789101112... 30下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2025-1-16 02:38 , Processed in 0.028166 second(s), 6 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！     本站特聘法律顾问：李志群律师

快速回复 返回顶部 返回列表