Issue with Accented Letter Replacement (Upper/Lower Case)

onlywonderboy · #1 12-21-2017, 03:58 PM

Hey all,

I'm using a macro that strips out special characters from word documents. This is the code I've been using for find and replace:

Code:

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

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

This has worked with most characters, but I'm having an issue with accented characters. Both Á and á are being replaced with A (instead of A and a respectively). Anyone have any suggestions on how to resolve this? Thanks!

macropod · #2 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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
lower/upper	xor	Excel	0	09-01-2016 07:46 AM
No upper and lower borders	Diane	Word	2	04-25-2014 10:31 PM
Regular expressions: lower case after hyphen	SusanG	Word	2	06-06-2012 11:58 PM
From all UPPER CASE to Proper Case	davers	Word	1	04-30-2009 12:41 PM
Upper to lower case	jd	Excel	1	04-28-2006 07:40 AM