Microsoft Office Forums - View Single Post - [Solved] Issue with Accented Letter Replacement (Upper/Lower Case)

macropod · 12-21-2017, 08:57 PM

You need to tell Word to match the Find/Replace case:

Code:

With Selection.Find
  .ClearFormatting
  .Replacement.ClearFormatting
  .Forward = True
  .MatchCase = True
  .Wrap = wdFindContinue
  .Text = "Á"
  .Replacement.Text = "A"
  .Execute Replace:=wdReplaceAll
  .Text = "á"
  .Replacement.Text = "a"
  .Execute Replace:=wdReplaceAll
End With