Foxtable(狐表)用户栏目专家坐堂 → [求助]Word文档的段落数怎样表示


  共有80人关注过本帖树形打印复制链接

主题:[求助]Word文档的段落数怎样表示

帅哥哟,离线,有人找我吗?
天一生水
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:643 积分:5999 威望:0 精华:0 注册:2017/9/26 16:30:00
[求助]Word文档的段落数怎样表示  发帖心情 Post By:2019/10/12 20:33:00 [只看该作者]

下面的代码可以逐个显示Word的段落内容,想问怎样获取文档的段落总数,或者怎样表示文档的第几段?
谢谢!

Dim app As New MSWord.Application
try
    Dim doc = app.Documents.Open("d:\test.doc")
    For Each k As object In doc.Paragraphs
        msgbox(k.Range.text)
    Next
    app.quit
catch ex As exception
    msgbox(ex.message)
    app.quit
End try

 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:6547 积分:36009 威望:0 精华:17 注册:2008/8/31 23:23:00
  发帖心情 Post By:2019/10/12 21:29:00 [只看该作者]

定义一个整数型变量,嵌套在循环里不断累加即可!

 回到顶部
帅哥哟,离线,有人找我吗?
天一生水
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:643 积分:5999 威望:0 精华:0 注册:2017/9/26 16:30:00
  发帖心情 Post By:2019/10/12 21:49:00 [只看该作者]

谢谢程老师!
总段落数量可以了。
我要指定显示第五段怎么办?

Dim count As Integer = 0   '设置计数器
Dim app As New MSWord.Application
try
    Dim doc = app.Documents.Open("d:\test.doc")
    For Each k As object In doc.Paragraphs
        'msgbox(k.Range.text)
        count += 1
    Next
    msgbox(count)
    app.quit
catch ex As exception
    msgbox(ex.message)
    app.quit
End try

 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:6547 积分:36009 威望:0 精华:17 注册:2008/8/31 23:23:00
  发帖心情 Post By:2019/10/12 23:52:00 [只看该作者]

Dim count As Integer = 0   '设置计数器
Dim app As New MSWord.Application
try
    Dim doc = app.Documents.Open("d:\test.doc")
    For Each k As object In doc.Paragraphs
        count += 1
        if count = 5
           msgbox(k.Range.text)
        end if
    Next
    msgbox(count)
    app.quit
catch ex As exception
    msgbox(ex.message)
    app.quit
End try
[此贴子已经被作者于2019/10/12 23:53:17编辑过]

 回到顶部