As I already said ...



You would need to account for each case e.g.

Replace BRIDGE with BRG (matchcase=True)
Replace Bridge with Brg (matchcase=True)
Replace bridge with brg (matchcase=True)

__________________
Microsoft PowerPoint MVP 2007-2023
Free Advanced PowerPoint Tips and Tutorials

Apparently, this isn't an efficient solution in my case..
Thanks anyway

Hi all..
Looks I have come across a solution to my problem. It is indeed using MatchCase as suggested by John, but in a slightly more developed logic. Nevertheless, it does the trick.

Sub DoReplace(tr As TextRange, findThis, replaceWith)
If InStr(1, tr.Text, findThis, vbTextCompare) > 0 Then 'is the word found at all?
'found at least one case form - just try to replace any case form found...
tr.Replace findWhat:=LCase(findThis), Replacewhat:=LCase(replaceWith), _
WholeWords:=True, MatchCase:=True
tr.Replace findWhat:=UCase(findThis), Replacewhat:=UCase(replaceWith), _
WholeWords:=True, MatchCase:=True
tr.Replace findWhat:=StrConv(findThis, vbProperCase), _
Replacewhat:=StrConv(replaceWith, vbProperCase), _
WholeWords:=True, MatchCase:=True
End If
End Sub

I hope it helps others as well.
Best of luck!
Cheers!