| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]Word文档的段落数怎样表示 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=141867) |
| -- 作者：天一生水 -- 发布时间：2019/10/12 20:33:00 -- [求助]Word文档的段落数怎样表示 下面的代码可以逐个显示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 |
| -- 作者：程兴刚 -- 发布时间：2019/10/12 21:29:00 -- 定义一个整数型变量，嵌套在循环里不断累加即可！ |
| -- 作者：天一生水 -- 发布时间：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 |
| -- 作者：程兴刚 -- 发布时间：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编辑过]
|
| -- 作者：hongsejiyi -- 发布时间：2019/11/2 23:23:00 -- output.Show("共有段落" & Doc.paragraphs.count & "个") |