颜色替换

duquancai

chuhaiou 发表于 2016-12-2 11:19
我改不来，你还帮我一下吧。

简单粗暴！

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.                 Stop
   
9.             ElseIf .Font.Color = RGB(0, 0, 255) Then '蓝色判断
   
10.                 .Font.Color = RGB(0, 255, 0) '改为绿色
    
11.                 Stop
    
12.             End If
    
13.             .Collapse 0
    
14.         Loop Until .End = ActiveDocument.Content.End - 1
    
15.     End With
    
16. End Sub

复制代码

duquancai

chuhaiou 发表于 2016-12-2 11:19
我改不来，你还帮我一下吧。

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.                 MsgBox "替换红色吗！"
   
9.             ElseIf .Font.Color = RGB(0, 0, 255) Then '蓝色判断
   
10.                 .Font.Color = RGB(0, 255, 0) '改为绿色
    
11.                 MsgBox "替蓝色吗！"
    
12.             End If
    
13.             .Collapse 0
    
14.         Loop Until .End = ActiveDocument.Content.End - 1
    
15.     End With
    
16. End Sub

复制代码

chuhaiou

duquancai 发表于 2016-12-2 11:24
简单粗暴！

谢谢，是实现了。可就是每点击一次，运行到“Stop”就停了。

duquancai

chuhaiou 发表于 2016-12-2 11:31
谢谢，是实现了。可就是每点击一次，运行到“Stop”就停了。

自己改改吧！我懒得搞了！真不想纠缠这么久！

chuhaiou

duquancai 发表于 2016-12-2 11:33
自己改改吧！我懒得搞了！真不想纠缠这么久！

谢谢！你可能帮了我的大忙！太谢谢了！

duquancai

chuhaiou 发表于 2016-12-2 11:39
谢谢！你可能帮了我的大忙！太谢谢了！

自己在详细修改msgbox对话框进行交互式对话

chuhaiou

duquancai 发表于 2016-12-2 11:42
自己在详细修改msgbox对话框进行交互式对话

谢谢！搞好了！

chuhaiou

duquancai 发表于 2016-12-2 11:30

谢谢无私的帮助! 可能将这个代码改成自下而上的变色?我做课件需要.