怎样用宏改变指定字符的字体颜色？

yy0y0yy33 · 发表于 2010-4-13 22:06

我想把Word文档中指定字符串的字体颜色变为红色，用宏怎样实现？我用查找替换，可以实现，但是录制成宏就失败了，不知为什么，盼高手指点迷津。先谢谢了！

守柔 · 发表于 2010-4-14 08:30

原帖由 yy0y0yy33 于 2010-4-13 22:06 发表
我想把Word文档中指定字符串的字体颜色变为红色，用宏怎样实现？我用查找替换，可以实现，但是录制成宏就失败了，不知为什么，盼高手指点迷津。先谢谢了！

Sub Example()
With ActiveDocument.Content.Find
      .ClearFormatting
      .Text = "敏捷"
      .Format = True
      .Replacement.ClearFormatting
      .Replacement.Text = Empty
      .Replacement.Font.Color = wdColorRed
      .Execute Replace:=wdReplaceAll
End With
End Sub

yy0y0yy33 · 发表于 2010-4-14 15:49

谢谢版主的无私帮助！

qxwzl · 发表于 2013-10-10 19:12

exclej里呢?请帮忙写一下,谢谢!

努牛 · 发表于 2016-11-10 10:24

守柔发表于 2010-4-14 08:30
Sub Example()
With ActiveDocument.Content.Find
.ClearFormatting

大神，那如果是要把文档中红色的不定字符批量变黑，该如何实现呢？

413191246se · 发表于 2016-11-10 21:58

Sub 红字变黑()
With ActiveDocument.Content.Find
.ClearFormatting
.Font.Color = wdColorRed '红色
With .Replacement
.ClearFormatting
.Font.Color = wdColorPink '粉红
.Font.Underline = wdUnderlineWavyHeavy '重波浪线
End With
.Execute FindText:="", ReplaceWith:="", Format:=True, Replace:=wdReplaceAll
End With
End Sub

复制代码

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

[求助] 怎样用宏改变指定字符的字体颜色？

谢谢版主