颜色替换

413191246se

谢谢 杜先生！ 又学到一手！ 楼主请试试下面代码：

1. Sub 蓝色变绿色()
   
2.     With ActiveDocument.Content.Find
   
3.         .Font.Color = wdColorRed '红色
   
4.         .Replacement.Font.Color = wdColorPink '粉红
   
5.         .Execute Replace:=wdReplaceOne
   
6. '
   
7.         .Font.Color = wdColorBlue '蓝色
   
8.         .Replacement.Font.Color = wdColorGreen '绿色
   
9.         .Execute Replace:=wdReplaceOne
   
10.     End With
    
11. End Sub

复制代码

chuhaiou

413191246se 发表于 2016-12-1 21:36
谢谢 杜先生！ 又学到一手！ 楼主请试试下面代码：

还是没有达到从前到后依次变色哟！你这是先让红的变，后让蓝的变。如这个例子：奇妙核磁共振姬配套工程在本世纪内磁共振姬配套工程在本世磁共振姬配套工程在本世磁共振姬配套工程在本世磁共振姬配套工程在本世磁共振姬配套工程在本世

chuhaiou

搞来搞去，都是先替换一种颜色的，烦死了。

chuhaiou

替换多个不同字词的网上到是有例子

duquancai

chuhaiou 发表于 2016-12-2 09:40
替换多个不同字词的网上到是有例子

还在纠结？这又不难！但是没意义啊！何必呢？非要这样吗？你要是开始就把需求说明，那会纠结这么久?真不难啊！

chuhaiou

duquancai 发表于 2016-12-2 10:57
还在纠结？这又不难！但是没意义啊！何必呢？非要这样吗？你要是开始就把需求说明，那会纠结这么久?真不 ...

上课时，想用颜色突出一些特别的词。做好了，对老师课堂教学很有用。

duquancai

chuhaiou 发表于 2016-12-2 09:40
替换多个不同字词的网上到是有例子

看到你这么烦躁不安！我给个例子，你测试！估计你又会纠结为啥不用查找替换啊！朋友不要转牛角尖，本身你这题目意义不大！

1. Sub 色变龙()
   
2.     With Selection
   
3.         .HomeKey wdStory
   
4.         Do
   
5.             .SelectCurrentColor
   
6.             If .Font.Color = RGB(255, 0, 0) Then '红色判断
   
7.                 .Font.Color = RGB(255, 255, 255) '改为白色
   
8.             ElseIf .Font.Color = RGB(0, 0, 255) Then '蓝色判断
   
9.                 .Font.Color = RGB(0, 255, 0) '改为绿色
   
10.             End If
    
11.             .Collapse 0
    
12.         Loop Until .End = ActiveDocument.Content.End - 1
    
13.     End With
    
14. End Sub

复制代码

chuhaiou

duquancai 发表于 2016-12-2 11:05
看到你这么烦躁不安！我给个例子，你测试！估计你又会纠结为啥不用查找替换啊！朋友不要转牛角尖，本身你 ...

谢谢你！因PPT播放长文档，若用控件会丢失理科公式或图片，但用WORD，就不在这个问题，可以将WORD改造成与PPT差不多的功能。要是实现，点击一次，只改变一处就好了。

duquancai

chuhaiou 发表于 2016-12-2 11:15
谢谢你！因PPT播放长文档，若用控件会丢失理科公式或图片，但用WORD，就不在这个问题，可以将WORD改造成 ...

这不难啊！你改一下啊！

chuhaiou

duquancai 发表于 2016-12-2 11:17
这不难啊！你改一下啊！

我改不来，你还帮我一下吧。