WORD-VBA: Search for formatted words then show formatting properties -

i'm new vba, i'm trying search words in paragraph has formatting, show format properties. example, if word bold , italic, want show specific bold , italic.

is there shorter code or built-in function this?

for each wrd in activedocument.words     if wrd.italic = true , wrd.bold = true         msgbox wrd     end if next wrd 

something this? (this show empty lines, if formatted bold , italic)