WORD-VBA: Suche nach formatierten Wörtern dann zeigen Formatierungseigenschaften

Question

Ich bin neu in VBA, ich versuche, nach allen Wörtern in einem Absatz zu suchen, der eine Formatierung hat, dann zeigen Sie alle Formateigenschaften an. Zum Beispiel, wenn das Wort fett und kursiv ist, möchte ich zeigen, dass das Spezifische fett und kursiv ist.

Gibt es dafür einen kürzeren Code oder eine eingebaute Funktion?

Answer 1

For Each wrd In ActiveDocument.Words 
    If wrd.Italic = True And wrd.Bold = True Then 
     MsgBox wrd 
    End If 
Next wrd 

So etwas ähnliches? (Dadurch werden auch leere Zeilen angezeigt, wenn sie fett und kursiv formatiert sind)