Possible to select same font?

[dungbtl]

Is it possible to select the same font used
instead of manually selecting one at a time?

I have some files where there are diff fonts used
and Select All Fonts doesnt cut it.

Using X4 & 2019

[shelbym]

You could do something like this. Select a line of Text and then run the following macro. It will select all others lines of text on the current page that have the same font.

Sub SelectSameFont()
    Dim s As Shape
    Dim srText As ShapeRange
    
    Set s = ActiveShape
    Set srText = ActivePage.Shapes.FindShapes(Type:=cdrTextShape)
    
    srText.Shapes.FindShapes(Query:="@com.text.story.font = '" & s.Text.Story.Font & "'").CreateSelection
End Sub

-Shelby