Word vba之遍历段落、识别固定段头、设置样式

 Python包的help信息规律比较明显，简单处理后用导航窗格能比较方便的查看类和方法信息。

不过对vba的空格处理还没认真研究，处理后会有一些不完美的地方，凑够用了。

Sub Pypackhelp()
'
' Pypackhelp 宏
'
'
    Dim pg As Paragraph, r As Range
    For Each pg In ActiveDocument.Paragraphs
        pgtext = pg.Range.Text
        If InStr(1, pgtext, "    class") <> 0 Then  '如果找到类的匹配项
            pg.Style = ActiveDocument.Styles("class")   'class为样式名
        End If
        
        If (InStr(1, pgtext, "     |  ") <> 0 And InStr(1, pgtext, "     |    ") = 0 And InStr(9, pgtext, "(") <> 0) Then
        '如果找到方法的匹配项，第二个条件为什么没用？空格要怎么处理？
            pg.Style = ActiveDocument.Styles("method")
    Next
End Sub