vba中如何判断当前段落的样式？

得到一个段落，如何判读此段落的样式，例如是否是：标题1或标题2或正文等。
请问用vba如何实现，多谢！在线急等！！
顶一下 本示例显示活动文档中每个段落的样式。

For Each para in ActiveDocument.Paragraphs
    MsgBox para.Style
Next para
本示例交替设置活动文档中的所有段落为“标题 3”和“正文”样式。

For i = 1 To ActiveDocument.Paragraphs.Count
    If i Mod 2 = 0 Then
        ActiveDocument.Paragraphs(i).Style = wdStyleNormal
    Else: ActiveDocument.Paragraphs(i).Style = wdStyleHeading3
    End If
Next i
For x = 1 To ActiveDocument.Paragraphs.Count
  Ncount = ActiveDocument.Paragraphs(x).OutlineLevel '这句话很耗时间
Ncount返回为几级目录

补充：VB ,  VBA