我可以照葫芦画瓢,这个照着就能学会,手把手教,用心良苦啊,谢谢!

不错，先收藏了

技术含量不高，只有这一点VBA语言：
Private Sub CommandButton1_Click()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = TextBox1.Text
.Replacement.Text = "^c"
.Forward = True
.Wrap = wdFindContinue
.MatchWholeWord = False
.MatchByte = True
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

不错，好东西，看样子楼主计算机水平比较高

经典之经典！