颜色替换

chuhaiou · 发表于 2016-12-1 11:27

本帖最后由 chuhaiou 于 2016-12-2 09:32 编辑

我想将WORD文档中的红色、蓝色二种字体，每点一次左键,就能从前到后,依次将红色替换成白色，蓝色替换成绿色.试用下程序没反应：

Sub 字体变色()

On Error ResumeNext

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.ClearFormatting

.Replacement.ClearFormatting

If .Font.Color = wdColorRed Then

.Replacement.Font.Color =wdColorWhite

ElseIf .Font.Color =wdColorBlue Then

.Replacement.Font.Color =wdColorGreen

End If

.Text = ""

.Replacement.Text =""

.Forward = False

.Wrap = wdFindContinue

.Format = True

End With

With Selection

.Find.Execute Replace:=wdReplaceOne

.MoveRight Unit:=wdCharacter, Count:=1

.MoveLeft wdCharacter, 1, wdExtend

End With

End Sub

duquancai · 发表于 2016-12-1 11:27

附件呢？便于测试。

chuhaiou · 发表于 2016-12-1 11:51

duquancai 发表于 2016-12-1 11:27
附件呢？便于测试。

谢谢！我上传在上面了！

duquancai · 发表于 2016-12-1 12:11

chuhaiou 发表于 2016-12-1 11:51
谢谢！我上传在上面了！

Sub shishi()
With ActiveDocument.Content.Find
.Font.Color = RGB(255, 0, 0)
.Replacement.Font.Color = RGB(255, 255, 255)
.Execute Replace:=wdReplaceAll
.Font.Color = RGB(0, 0, 255)
.Replacement.Font.Color = RGB(0, 255, 0)
.Execute Replace:=wdReplaceAll
End With
End Sub

复制代码

chuhaiou · 发表于 2016-12-1 12:19

本帖最后由 chuhaiou 于 2016-12-1 12:20 编辑

duquancai 发表于 2016-12-1 12:11

谢谢！我不是想一次性替换，而是想每点击一次鼠标左键，从前到后只替换一次颜色。所以我用到了.Find.ExecuteReplace:=wdReplaceOne

duquancai · 发表于 2016-12-1 12:24

chuhaiou 发表于 2016-12-1 12:19
谢谢！我不是想一次性替换，而是想每点击一次鼠标左键，从前到后只替换一次颜色。所以我用到了.Find.Exec ...

你开始说一篇文档。。。。。怎样怎样。。。。现在有说怎样怎样。。。。自己改改吧！！！

chuhaiou · 发表于 2016-12-1 12:42

duquancai 发表于 2016-12-1 12:24
你开始说一篇文档。。。。。怎样怎样。。。。现在有说怎样怎样。。。。自己改改吧！！！

怪我没有表达好!谢谢!

chuhaiou · 发表于 2016-12-1 12:58

我实在想不出办法了

chuhaiou · 发表于 2016-12-1 13:01

两种颜色,辨别不出下一种颜色会是什么颜色

chuhaiou · 发表于 2016-12-1 13:06

本帖最后由 chuhaiou 于 2016-12-1 13:42 编辑

修改了一下,还是先替换一种颜色,请哪位教师帮忙修改一下.谢谢.!
Sub 字体变色()
On Error Resume Next
With ActiveDocument.Content.Find
.Font.Color = RGB(255, 0, 0) Or .Font.Color = RGB(0, 0, 255)
   If .Font.Color = RGB(255, 0, 0) Then
   .Replacement.Font.Color = RGB(255, 255, 255)
   .Execute Replace:=wdReplaceOne
   ElseIf .Font.Color = RGB(0, 0, 255) Then
   .Replacement.Font.Color = RGB(0, 255, 0)
   .Execute Replace:=wdReplaceOne
   End If
End With
End Sub

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

[求助] 颜色替换