100分请教，如何拷贝word表格中的制定内容到excel

word 内容如下

每页word都有这么一个表格，每个表格都不是连续的，而且请注意，每个表格的标准编号一栏都是唯一的，如 1.1  1.2 2.1 2.2以此类推
excel 内容如下

word里的标准编号，和excel里的序号，保持一致。
需拷贝内容如下：
word        ----->excel
描述        ----->总述
评估结论    ----->结论
备查清单    ----->备查清单
word文档有几百页，考起来简直累死了，请教各位大侠，用VBA怎么实现，跪谢！！！

给100分，不够再补！ --------------------编程问答-------------------- 自己顶一下。 --------------------编程问答-------------------- 选择，拷贝，黏贴呗 --------------------编程问答-------------------- 100闲分就找个人给你定制个程序？奢侈了点。不是分数奢侈，是愿望奢侈。
这种事情，还是从加强自身电脑使用水平搞起吧。
不见得非要用VBA程序，如果是熟练的电脑用户，都应该掌握的，那就是使用键盘鼠标宏记录软件（WORD和EXCEL也有，但主要是针对自身内部操作）。 --------------------编程问答-------------------- --------------------编程问答--------------------  Set wddocument = wdapp.Documents.Open(dpath & "\" & Filename)
 改成
 Set wddocument = wdapp.Documents.Open(Filename) --------------------编程问答-------------------- http://download.csdn.net/detail/veron_04/1627134

补充：VB ,  VBA