VBA to select a specific font type

gmayor · #1 01-12-2022, 12:11 AM

You cannot select non-contiguous items with VBA. You can select them sequentially, but then there would have to be some point in doing so. What do you want to do with them once found?
E.g. The following will highlight the texts so formatted:

Code:

Sub Macro1()
    With Selection.Find
        .ClearFormatting
        With .Font
            .Name = "Times New Roman"
            .Size = 12
            .Bold = True
        End With
        .Replacement.ClearFormatting

        Options.DefaultHighlightColorIndex = wdYellow
        .Replacement.Highlight = True

        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
    End With
End Sub

burniksapwet · #2 01-12-2022, 09:03 AM

Quote:

Originally Posted by gmayor

You cannot select non-contiguous items with VBA. You can select them sequentially, but then there would have to be some point in doing so. What do you want to do with them once found?
E.g. The following will highlight the texts so formatted:

Code:

Sub Macro1()
    With Selection.Find
        .ClearFormatting
        With .Font
            .Name = "Times New Roman"
            .Size = 12
            .Bold = True
        End With
        .Replacement.ClearFormatting

        Options.DefaultHighlightColorIndex = wdYellow
        .Replacement.Highlight = True

        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
    End With
End Sub

This is absolutely amazing. And yes I wanted it highlighted, I forgot to mention that. Thank you so much for looking into this and creating it for me. Much appreciated.

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