如何读取word中全部文本数据
从word中以文本的形式读取全部数据（也可以用指定分段的形式，一段一段读出处理，达到处理全部数据的方法），如果是多媒体如图片，视频等，则跳过。
求大侠指点指点,如果有相关代码更好
[解决办法]
Sub read()
Dim para As Paragraph
MsgBox ActiveDocument.Paragraphs.Count
For Each para In ActiveDocument.Paragraphs
MsgBox para.Range.Text
Next para
End Sub
