Word VBA 批量替换字体颜色

Sub 批量替换字体颜色()

With ActiveDocument.Content.Find

.ClearFormatting

.Font.Color = wdColorRed

With .Replacement

.ClearFormatting

.Font.Color = wdColorBlack

End With

.Execute FindText:="", ReplaceWith:="", Format:=True, Replace:=wdReplaceAll
End With

End Sub

赏 支付宝打赏 微信打赏

如果文章或资源对您有帮助，欢迎打赏作者。一路走来，感谢有您！