help to adjust my macro code

Hi all

i was working on a macro code to copy Latin text values like font name, size and style into complex scripts panel as shown below



and i recorded macro for that but i have to select every text and then apply macro, i just need adjustment to my macro to make it select all text and apply that change

Sub Macro2()
'
' Macro2 Macro
'
'
With Selection.Font
.Name = .NameBi
.Size = .SizeBi
.Bold = .BoldBi
.Italic = .ItalicBi

End With
End Sub

Click to expand...

Thanks