VBA to select a specific font type

Guessed · #5 01-12-2022, 03:53 PM

No, it is not.

Uppercase can be searched for in two different ways according to how it occurs.
1. If the Uppercase is a font formatting attribute applied to regular (upper and lowercase) text then you could change .Bold = True to .AllCaps = True
2. If the text was actually typed only with capital letters then you would need a wildcard search for those specific characters along the following lines

Code:

Sub Seeker()
    Options.DefaultHighlightColorIndex = wdYellow
    With Selection.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      With .Font
        .Name = "Times New Roman"
        .Size = 12
      End With
      .Replacement.Highlight = True
      .Text = "[ABCDEFGHIJKLMNOPQRSTUVWXYZ]"
      .Replacement.Text = "^&"
      .Forward = True
      .Wrap = wdFindStop
      .MatchWildcards = True
      .Format = True
      .Execute Replace:=wdReplaceAll
    End With
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Merging two Word documents: 2nd document not maintaining original font type and font size	Swarup	Word	31	08-28-2018 06:55 PM
Macro that swaps out font type	namedujour	Word	3	08-01-2018 01:27 PM
Font Type changes with change in language	animex	Word	1	09-08-2017 05:23 PM
Type 1 font	d4okeefe	Word	3	02-09-2016 01:16 AM
Mysterious Font Type Symbol	curiousUser	Word	2	08-18-2014 05:10 AM