怎么用VBA改变字体颜色

linnk · 发表于 2020-6-9 15:48

请问怎么用VBA把字号是二号的字体改成红色，其余不变，

效果如下：

原文.rar (9.61 KB, 下载次数: 4) word附件

ming0018 · 发表于 2020-6-9 15:49

录制宏就可以解决了

linnk · 发表于 2020-6-9 15:55

ming0018 发表于 2020-6-9 15:49
录制宏就可以解决了

录制不行啊，不能用

ming0018 · 发表于 2020-6-9 16:20

linnk 发表于 2020-6-9 15:55
录制不行啊，不能用

手动都可以解决，不需要ＶＢＡ的。

linnk · 发表于 2020-6-9 16:43

本帖最后由 linnk 于 2020-6-9 16:53 编辑

ming0018 发表于 2020-6-9 16:20
手动都可以解决，不需要ＶＢＡ的。

感谢回复，我这里抽出了一段文字示例，真的只有这么一段我也不会发上来求助来

，实际内容很多啊

413191246se · 发表于 2020-6-10 02:22

* 楼主，你的问题，不必用 VBA，只须查找和替换即可（另外，这种问题经常有人问，我觉得不应该问，应该会的啊！），请参照下面的图片及说明试试：

cuanju · 发表于 2020-6-10 08:07

可使用以下代码，
=========================
Sub Dm3()
Rem 二号字改为红色
With ActiveDocument.Content.Find
      .ClearFormatting
      .Font.Size = 22 '二号字
      With .Replacement
         .ClearFormatting
         .Font.Color = vbRed
      End With
      .Execute Format:=True, Replace:=wdReplaceAll
End With
End Sub

linnk · 发表于 2020-6-10 12:03

非常谢谢各位的帮忙

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

[求助] 怎么用VBA改变字体颜色

评分

评分

评分