主题：按需读取WORD文档段落内容

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