如何提取WORD中的特定内容制成excel表格？

Question

下面有一段有特定规律的WORD文档的内容，我想提取其中的特定数据制成EXCEL表格！

表格内容分为： 股票代码 股票名称 强烈看涨 看涨 看平 看跌 强烈看跌

有没有哪位高手帮忙看下！

例子：

600022 济南钢铁 Wind资讯就是投资者的万得资讯 2009-03-02
投资要点→【1:投资要点目录】【2:详细】
————————————————————————————————
【1:投资要点目录】
2009-02-20 [投资评级]济南钢铁:机构更新评级
2009-02-16 [机构预测]济南钢铁:机构预测09年度业绩小幅下滑

【2:详细】
◇2009-02-20 [投资评级]济南钢铁:机构更新评级

截止2009-02-20,共有9家机构发布评级
｜
强烈看涨｜■■■ 3家
｜
看涨 ｜■■■■ 4家
｜
看平 ｜■■ 2家
｜
看跌 ｜
｜
强烈看跌｜
└——————————————————————————————

—————————————————————————————————————
◇2009-02-16 [机构预测]济南钢铁:机构预测09年度业绩小幅下滑

截止2009-02-16,共有9家机构对济南钢铁2009年度业绩作出预测，平均预测净利润为
137510.44万元，平均预测每股收益为0.79元(最高1.29元，最低0.53元),照此预测,
济南钢铁2009年度净利润相比上年同期小幅下滑,增幅为-0.04%

—————————————————————————————————————

…………………………………………………………………………………………………
价值、信息、便捷 Wind资讯理财终端是您首选
免费下载使用请登录：http://www.wind.com.cn
就是有好多这样的数据！规律又都差不多是这样的！如何实现word 中提取内容制成表格啊?

Answer 1

用宏命令。
Sub abc()
Dim App, WrdDoc, Mypath As String, StrA As String, StrB As String
Mypath = ThisWorkbook.Path & "\aaa.doc" '请修改实际储存路径！
Set App = CreateObject("Word.Application") '用Set关键字创建Word应用成序对象！
App.Visible = True'根据实际情况修改是否可见
Set WrdDoc = App.Documents.Open(Mypath) '打开这个Word文件！
StrA = WrdDoc.Tables(1).Cell(1, 2).Range.Text ' 你要的第一个内容：第一行，第二列
StrB = WrdDoc.Tables(1).Cell(2, 2).Range.Text ' 你要的第一个内容：第二行，第二列
WrdDoc.Close ' 关闭文件
Set App = Nothing
Debug.Print StrA
Debug.Print StrB
End Sub

Answer 2

将所有文档数据复制到excel中，用公式或vba提取内容。
只有1篇看不到规律，你可以hi我看看。本回答被提问者采纳

Answer 3

你只能复制后粘贴到电子表格中，然后找到规律，然后运用函数公式或宏计算，别无它法。

Answer 4

将文件另存为txt文档，然后用excel打开