word 宏vba 批量字符串替换

Sub Macro字符串替换()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find

   .Text = "讨论"
   .Replacement.Text = "研讨"

End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

赏 支付宝打赏 微信打赏

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