哪位高手知道，如何求word的总行数

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

哪位高手知道，如何求word的总行数

发表于：2007-07-23 11:18:13 楼主

请哪位教教我

发表于：2007-07-23 11:41:451楼得分:0

最直接的方法，读入一个字符串变量中，然后

hs = len（strword) - len（replace（strword, vbcrlf, " "))

发表于：2007-07-23 12:43:512楼得分:0

没有相关函数吗？

发表于：2007-07-23 13:11:533楼得分:0

dim strarr（) as string

strarr（) = split（strword, chr（13) & chr（10))
hs = ubound（strarr（)) + 1

发表于：2007-07-23 13:12:184楼得分:0

自己定义个函数得了。

发表于：2007-07-23 13:37:285楼得分:0

那我想求得某一行字体的个数呢？

发表于：2007-07-23 13:52:136楼得分:0

还有要是没有回车呢
就是直接一行输满了，word自动换行的情况，不就是掉了一个数组？

发表于：2007-07-23 14:10:157楼得分:0

刚才试了
hs=0,好像这样做不行啊

其他资讯