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


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

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

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


加好友 发短信 一级勋章
等级:超级版主 帖子:7235 积分:40550 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2019/10/12 21:29:00 [显示全部帖子]

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

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


加好友 发短信 一级勋章
等级:超级版主 帖子:7235 积分:40550 威望:0 精华:16 注册: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编辑过]

 回到顶部