求！小弟我想获取一个段落的每个字符的格式，有什么好的方法么_VBA

求高手指点！我想获取一个段落的每个字符的格式，有什么好的方法么
我现在是先获取段落中的RANGE，然后获取RANGE中每个字符的RANGE，获取FONT，然后获取字体，大小，颜色，但是这样效率很低，特别是字符多的话运行速度很慢，请问有其他办法么？谢谢，很着急

就是获取文档中每一个字符的格式（大小，颜色，字体等）

------解决方案--------------------------------------------------------
下面是循环现实每段落的内容。

VB code

Sub test()    Dim obja As Paragraph    For Each obja In Application.ActiveDocument.Paragraphs        MsgBox obja.range        NextEnd Sub
------解决方案--------------------------------------------------------
不好意思插一句，楼上这种处理方式，当判断格式的时候，只能获取第一个字符的格式，后面的格式会被忽略掉。

探讨
Application.Update=false '关闭显示
这样会快一点的。个人觉得没有必要对每一个字进行获取，可以对指定的的范围进行读取。
如：set Range=ActiveDocument.Range(Start:=X,End:=Y)