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

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