Word find 12 Font only it is also finding Font 10.5

Question

Word find 12 Font only it is also finding Font 10.5

SteveD 430

Ho from Steve

Can the below script please find 12 Font.

Not Font 10.5

Sub Horse_Above_10()

With Selection.Find

    .ClearFormatting

    .Font.Size = 12

    .Text = "\) [0-9]{2,} [A-Z]"

    .Replacement.Text = ""

    .Forward = True

    .Wrap = wdFindStop   'Stop at end; do not continue from top

    .Format = False

    .MatchCase = False

    .MatchWholeWord = False

    .MatchAllWordForms = False

    .MatchSoundsLike = False

    .MatchWildcards = True

End With

'Find next occurrence from current cursor position

If Selection.Find.Execute Then

    'Now Selection is on the found text

    Selection.MoveLeft Unit:=wdCharacter, Count:=1

    Selection.Delete Unit:=wdCharacter, Count:=1

    Selection.MoveDown Unit:=wdLine, Count:=1

End If
```End Sub

Charles Kenyon 166.8K Reputation points Volunteer Moderator

2026-04-27T21:41:14.97+00:00
To a person whose only tool is a hammer, everything looks like a nail. Your primary tool seems to be macros. For formatting Word text, this is definitely the wrong tool!

Steve, learn to use Word styles. They are at the heart of how Word formats text. You will need fewer macros and your macros can search for and replace or modify styles.

Resources:

https://www.addbalance.com/usersguide/stylesImportance.htm

https://www.addbalance.com/usersguide/BasicConceptsWord.htm
SteveD 430 Reputation points

2026-04-27T22:27:02.1633333+00:00

Hello Charles

Yes you are right, that's what I should be doing.

However I have only a single project.

At this time I am using co-pilot to tidy up my scripts.

All the Best

Steve
Charles Kenyon 166.8K Reputation points Volunteer Moderator

2026-04-28T14:46:52.65+00:00

If you regularly use Word, learn styles.

Copilot does not understand Word.

Answer accepted by question author

1 additional answer

Your answer

Charles Kenyon 166.8K Reputation points Volunteer Moderator

2026-04-27T21:41:14.97+00:00

To a person whose only tool is a hammer, everything looks like a nail. Your primary tool seems to be macros. For formatting Word text, this is definitely the wrong tool!

Steve, learn to use Word styles. They are at the heart of how Word formats text. You will need fewer macros and your macros can search for and replace or modify styles.

Resources:

https://www.addbalance.com/usersguide/stylesImportance.htm

https://www.addbalance.com/usersguide/BasicConceptsWord.htm
SteveD 430 Reputation points

2026-04-27T22:27:02.1633333+00:00

Hello Charles

Yes you are right, that's what I should be doing.

However I have only a single project.

At this time I am using co-pilot to tidy up my scripts.

All the Best

Steve
Charles Kenyon 166.8K Reputation points Volunteer Moderator

2026-04-28T14:46:52.65+00:00

If you regularly use Word, learn styles.

Copilot does not understand Word.

Answer 1

Surya Amrutha Vaishnavi Lanka (INFOSYS LIMITED) 2,195 Microsoft External Staff

Thank you for reaching out.

Please let us know whether the issue has been resolved or is still occurring. If the issue is resolved, we will proceed with closing this thread. If you face any further issues, please let us know and we’ll be happy to assist you.

0 comments

Answer 2

Set the find to search by formatting and not treat the font size as part of the wildcard text pattern.

In the current code, .Format = False tells Word to ignore the .Font.Size = 12 condition, so the wildcard text pattern is applied regardless of font size, which is why text in 10.5 pt is also found.

Adjust the macro as follows:

Sub Horse_Above_10()

    With Selection.Find
        .ClearFormatting
        .Text = "\) [0-9]{2,} [A-Z]"   ' wildcard pattern
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindStop
        .Format = True                 ' <‑‑ enable formatting filter
        .Font.Size = 12                ' <‑‑ restrict to 12 pt only
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With

    If Selection.Find.Execute Then
        Selection.MoveLeft Unit:=wdCharacter, Count:=1
        Selection.Delete Unit:=wdCharacter, Count:=1
        Selection.MoveDown Unit:=wdLine, Count:=1
    End If

End Sub

Key change: .Format = True ensures the .Font.Size = 12 criterion is applied, so only text that matches the wildcard pattern and is in 12‑point font is found, not 10.5.

References:

Share via

Word find 12 Font only it is also finding Font 10.5

1 additional answer

Your answer