???????find??,execute???replaceall??(?word??????)????,?????????:?????????range?start ? end???.??????.??????range???,????range?text????????.?????open for input as ?????.??.Sub replacetest0() '2012/6/5Dim a As Range, x As Long, q As StringDim s As Date, e As Date, g, i'Set a = ActiveDocument.Range'Debug.Print Len(a)s = VBA.Timerq = ActiveDocument.Rangex = InStr(q, "???")'x = InStr(a.Text, "???")For Each g In ActiveDocument.Comments g.DeleteNextWith ActiveDocument Do Until x = 0' .Range(x - 1, x + 3 - 1).Select .Range(x - 1, x + Len("???") - 1).Text = "???" i = i + 1' If i = 68 Then Stop x = InStr(x + 1, q, "???") If .Range(x - 1, x + 3 - 1) <> "???" Then e = VBA.Timer Debug.Print e - s Debug.Print i Stop End If 'a.Text = Replace(a.Text, "???", "???") 'a.Find.Execute "???", , , , , , , , , "???", wdReplaceAll '????!! LoopEnd Withe = VBA.TimerDebug.Print e - sEnd Sub http://ejigbajq.com [url=http://gmdnkb.com]gmdnkb[/url] [link=http://eblhsooszi.com]eblhsooszi[/link]