Word only find font 12.5

Question

Hello from [Moderator Note: Personal Info Removed] 

I have two fonts 10.5 and font 12.5

In the below please where would I insert Font 12.5 ignoring Font 10.5

Sub Trainers_Names()

Dim findList As Variant

Dim replaceList As Variant

Dim i As Long

   findList = Array("THURLOW O'MALLE", "OldText2", "OldText3")

replaceList = Array("THURLOW O'MALLEY", "NewText2", "NewText3")

    If UBound(findList) <> UBound(replaceList) Then

End If

   For i = LBound(findList) To UBound(findList)

    With ActiveDocument.Content.Find

        .ClearFormatting

        .Replacement.ClearFormatting

        .Text = findList(i)

        .Replacement.Text = replaceList(i)

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .Execute Replace:=wdReplaceAll

    End With

Next i
```End Sub

Answer 1

Please note that our forum is a public platform, and we will modify your question to hide your personal information in the description. Kindly ensure that you hide any personal or organizational information the next time you post an error or other details to protect personal data.  

---

Hello SteveD

I can see that you are having trouble with Word

To replace only text that is formatted as 12.5 pt, add the following line after .ClearFormatting:

.Font.Size = 12.5

You must also change .Format = False to .Format = True, so Word includes the font size in the search.

The relevant section should look like this:

With ActiveDocument.Content.Find
 .ClearFormatting
 .Replacement.ClearFormatting
 .Text = findList(i)
 .Font.Size = 12.5
 .Replacement.Text = replaceList(i)
 .Forward = True
 .Wrap = wdFindContinue
 .Format = True
 .MatchCase = False
 .MatchWholeWord = False
 .MatchWildcards = False
 .Execute Replace:=wdReplaceAll
End With

This should replace matching text in 12.5 pt only and leave the 10.5 pt version unchanged. I recommend testing it on a copy of the document first.

I hope this helps, have a nice day.