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