[求助]如何在range对象中进行查找替换

xlf512

我有一篇文档，有一些这样的字符：xlf2005; xlf2003; xlf2000; xlf1998; xlfabcd; xlf5dcd;等,xlf后面是4个数字或字母加一个分号，现在要求将第2段至第15段中的这些字替换成xlf2006;下面是我的代码，做法是将第2段至第15段定义成一个range，再在中进行查找，但无论怎样，只有将第一个替换，请各位高手指点，如何在range对象中进行查找替换。下面语句错在哪里，应如何修改! Sub Macro2() Dim MyRange As Word.Range, strText As String Dim myString As String Dim Textrange As Range Set Textrange = ActiveDocument.Range(Start:=ActiveDocument.Paragraphs(2).Range.Start, End:=ActiveDocument.Paragraphs(15).Range.End) Set MyRange = Textrange strText = "xlf*;" My: With MyRange.Find .ClearFormatting .Text = strText .MatchWildcards = True Do While .Execute myString = VBA.Replace(MyRange.Text, " ", "") myString = VBA.Mid(myString, 4, Len(myString) - 4) MyRange.Text = "2006" Set MyRange = Textrange GoTo My Loop End With End Sub 请指点为盼!

konggs

Sub Macro21()
Dim MyRange As Word.Range, strText As String
Dim myString As String
Dim Textrange As Range
Set Textrange = ActiveDocument.Range(Start:=ActiveDocument.Paragraphs(2).Range.Start, End:=ActiveDocument.Paragraphs(15).Range.End)
Set MyRange = Textrange
strText = "xlf*;"
My: With MyRange.Find
.ClearFormatting
.Text = strText
.MatchWildcards = True
Do While .Execute
myString = VBA.Replace(MyRange.Text, " ", "")
myString = VBA.Mid(myString, 4, Len(myString) - 4)
MyRange.Text = "2006"
MyRange.SetRange Start:=MyRange.End, End:=Textrange.End
GoTo My
Loop
End With
End Sub 或者这样： Sub Macro21() Dim Textrange As Range Set Textrange = ActiveDocument.Range(Start:=ActiveDocument.Paragraphs(2).Range.Start, End:=ActiveDocument.Paragraphs(15).Range.End) With Textrange.Find .Execute findtext:="xlf*;", MatchWildcards:=True, Forward:=True, _ replacewith:="xlf006;", Replace:=wdReplaceAll End With End Sub 参参find的帮助。在VBE中选中find，按F1,详细看一下。体会一下。

[此贴子已经被作者于2006-5-28 14:48:13编辑过]