以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  按需读取WORD文档段落内容  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=154672)
--  作者：明天的灵
--  发布时间：2020/9/22 19:31:00
--  按需读取WORD文档段落内容
论坛有个例子，可以读取整篇WORD文档的内容，不知道能否修改为按需要读取其中部分段落，比如
整篇WORD有10～20段内容，按需读取其中第7段，第8～最后前一段，最后一段，这样三部分内容。

Dim app As New MSWord.Application

try

    Dim fileName = "d:\\test.doc"

    app.Documents.Open(fileName)

    Dim count = app.Documents(fileName).Characters.Count

    Dim rng As MSWord.Range = app.Documents(fileName).Range(Start:=0, End:=count)

    msgbox(rng.Text)

    rng.Select()   \'全选

    rng.Copy()   \'拷贝

catch ex As exception

    msgbox(ex.message)

finally

    app.Quit

End try
--  作者：有点蓝
--  发布时间：2020/9/22 20:19:00
--  
    Dim doc = app.Documents.Open("d:\\test.doc")
    For Each k As object In doc.Paragraphs
        msgbox(k.Range.text)
    Next

或
    For i as integer = 1 to doc.Paragraphs.count
        msgbox(doc.Paragraphs(i).Range.text)
    Next
[此贴子已经被作者于2020/9/23 14:43:39编辑过]
--  作者：明天的灵
--  发布时间：2020/9/22 21:52:00
--  
谢谢蓝版主
--  作者：明天的灵
--  发布时间：2020/9/23 14:26:00
--  
Dim app As New MSWord.Application    
Dim doc = app.Documents.Open("d:\\test.doc")
For i as integer = 1 to  doc.Paragraphs.count
        msgbox(doc.Paragraphs(i).Range.text)
 Next

2楼的第二段代码，多了个“In”。删除这个In就正常了
--  作者：FOTOER
--  发布时间：2021/10/29 10:08:00
--  
支持！ 学习！