Word Macro to Find a phrase followed by a number and a lower case letter, capitalizing the letter

rekent · #1 01-14-2025, 01:40 AM

Hello. I am trying to search a document for the phrase FIG., FIGs. or FIGS. followed by any number and a lower case letter. For example, FIG. 1a. I'm wanting to capitalize the A so that the resulting text is FIG. 1A.

I thought this would do it, but it doesn't, and I'm not sure where I went wrong. The find and basic replace are straightforward enough that I assume it has to be in the UCase portion. Any guidance on where I went wrong?

Code:

With ActiveDocument.Content.Find
  .Text = "(FIG. [1-9])([a-z])"
  .Replacement.Text = "\1"UCase(\2)
  .MatchWildcards = true
  .Text = "(FIG[Ss]. [1-9])([a-z])"
  .Replacement.Text = "\1"UCase(\2)
  .MatchWildcards = true
End With

Bonus points if anyone has an idea on how to tackle a string of multiple similar to "FIGS. 1a, 3b, ..., and 11f ...".

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Issue with Accented Letter Replacement (Upper/Lower Case)	onlywonderboy	Word VBA	1	12-21-2017 08:57 PM
How to stop Word from capitalizing the first letter?	mobileone	Word	2	08-27-2016 07:17 PM
Find and replace with a macro, problem with letter case	garcanrya	Word VBA	2	01-10-2014 05:40 AM
Repeatedly capitalizing first letter of a word in a document	Microsoftenquirer1000	Word	1	02-21-2013 07:36 PM
Replace is capitalizing the first letter of the first word	Beachhouse	Word	1	02-07-2012 03:36 PM