Case sensitive replace

[weeze2]

Hi. The code below replaces "AAA" with "BBB" in the document.

How can I avoid replacing "aaa" with "BBB"?

I have tried Option Compare Binary but without results. I could not check for lowercase inside the With either.

****************************************************
findx = "AAA"
replacex = "BBB"

Dim rngStory As Range
For Each rngStory In ActiveDocument.StoryRanges
With rngStory.Find
.Text = findx
.Replacement.Text = replacex
.Wrap = wdFindContinue
.Execute Replace:=wdReplaceAll
End With
Next rngStory
****************************************************

 

[xwb]

.MatchCase = False

 

[CautionMP]

weeze2,
[tt]Option Compare Binary[/tt] is for the module, not built in methods.

In Word 2003 you can use [tt]MatchCase[/tt] or [tt]MatchByte[/tt].

findx = "AAA"
replacex = "BBB"
 
Dim rngStory As Range
  For Each rngStory In ActiveDocument.StoryRanges
    With rngStory.Find
      .Text = findx
      [b].MatchCase = True[/b]
      .Replacement.Text = replacex
      .Wrap = wdFindContinue
      .Execute Replace:=wdReplaceAll
    End With
  Next rngStory

Hope this helps,
CMP

[small]For the best results do what I'm thinking, not what I'm saying.[/small]
(GMT-07:00) Mountain Time (US & Canada)

 

[weeze2]

Thanks, just what I was looking for!