如何读取word中全部文本数据

[zhusizhi007]

从word中以文本的形式读取全部数据（也可以用指定分段的形式，一段一段读出处理，达到处理全部数据的方法），如果是多媒体如图片，视频等，则跳过。
求大侠指点指点,如果有相关代码更好

[dsd999]

Sub read()
Dim para As Paragraph
MsgBox ActiveDocument.Paragraphs.Count
For Each para In ActiveDocument.Paragraphs
MsgBox para.Range.Text
Next para
End Sub

[zhusizhi007]

引用 1 楼 dsd999 的回复:

Sub read()
Dim para As Paragraph
MsgBox ActiveDocument.Paragraphs.Count
For Each para In ActiveDocument.Paragraphs
MsgBox para.Range.Text
Next para
End Sub

请教一下版主，MFC c++中怎么用？发帖时没看仔细，

[dsd999]

在类向导里先把相关的类导入。