WORD-VBA：搜索带格式的单词，然后显示格式属性

Question

我是VBA的新手，我试图搜索带有格式的段落中的所有单词，然后显示所有格式属性。例如，如果单词是粗体和斜体，我想表明具体是粗体和斜体。

是否有较短的代码或内置函数？

Answer 1

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

是这样的吗？ （如果它们被格式化为粗体和斜体，这也会显示空行）