求高手指点!我想获取一个段落的每个字符的格式,有什么好的方法么
我现在是先获取段落中的RANGE,然后获取RANGE中每个字符的RANGE,获取FONT,然后获取字体,大小,颜色,但是这样效率很低,特别是字符多的话运行速度很慢,请问有其他办法么?谢谢,很着急
就是获取文档中每一个字符的格式(大小,颜色,字体等)
[解决办法]
下面是循环现实每段落的内容。
Sub test() Dim obja As Paragraph For Each obja In Application.ActiveDocument.Paragraphs MsgBox obja.range NextEnd Sub
[解决办法]
不好意思插一句,楼上这种处理方式,当判断格式的时候,只能获取第一个字符的格式,后面的格式会被忽略掉。