可以,参考下面的代码,和链接
Dim app As New MSWord.Application
try
Dim fileName = "d:\ts.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
参考 http://msdn.microsoft.com/zh-cn/library/tcyt0y1f%28v=vs.80%29.aspx