With Selection.Find
.Text = "施工機具:"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
明明沒有Selection.Find.ClearFormatting這句 為何還是會取代
哪裡不對呢 先多謝告知
Selection.Find.Execute Replace:=wdReplaceAll
改成
Selection.Find.Execute Replace:=wdReplaceNone
試試看