2 "by"

[Steved]

Hello from Steved

With the paragraph below I would like to have a macro that will leave please
"by Kessem"

Pyrus (USA)-Donalee(by Kessem by Twirling Row)

Thankyou.

 

[Tony Jollans]

Something like this:

ActiveDocument.Range.Find.Execute _
FindText:="(\(by*) by *\)", _
ReplaceWith:="\1)", _
MatchWildcards:=True, _
Replace:=wdReplaceAll

 

[Steved]

Hello Tony from Steved

Thanks you are excellent value.