首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VBA >

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

2012-03-25 
求高手指点!我想获取一个段落的每个字符的格式,有什么好的方法么我现在是先获取段落中的RANGE,然后获取RAN

求高手指点!我想获取一个段落的每个字符的格式,有什么好的方法么
我现在是先获取段落中的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)

热点排行