关于用vb调用word中内容，输出到excel

Question

Word 中的内容都是下面的形式1、NISSAN MOTOR CO., LTD (日产自动车株式会社)
TLUALYLJ50EXADE4 轿车
发动机：VQ25（NISSAN）
机外净化器：右:1NF**（NISSAN）
            左:1NF**（NISSAN）
燃油蒸发控制装置：14950 3Y500（MAHLE TENNEX）
氧传感器：前:211200-7500（DENSO）
          后:OZA603-N5（NTK）BLUALTLV36EXADE4 轿车
发动机：VQ25（NISSAN）
机外净化器：右:1NF**（NISSAN）
            左:1NF**（NISSAN）
燃油蒸发控制装置：14950 6N201（MAHLE TENNEX）
氧传感器：前:211200-7500（DENSO）
          后:OZA603-N5（NTK）2、北京现代汽车有限公司
BH7150AY 轿车
发动机：G4EC（北京现代汽车有限公司）
机外净化器：CAE（KEFICO）
燃油蒸发控制装置：31420-3A000（KFTC(可附特汽车零部件制造(北京)有限公司)）
氧传感器：前：39210-22610（KEFICO）
          后：39210-22620（KEFICO）然后想分类输出到excel表中
表的形式是
汽车生产企业 车型 车型名称 发动机型号 发动机生产厂 机外净化器 燃油蒸发控制装置 氧传感器目前昨天跟坛子里面某大大研究室WDApp.Selection.ParagraphFormat.里面的属性
但是我还是没特别通
Q1：用哪个控件可以 从word读取，读取过程是指针移动？ word可能比较大，会不会造成溢出？
Q2：读取之后的数据是直接输出到excel还是寄存在内存or什么地方？
Q3：有米有现成的类似的段子可以供参考的呢？

Answer 1

或者刚才我想到 从word中读取 存入到报表中？ 然后从报表导出到excel就比较容易了吧！

Answer 2

直接写EXCEL比较好,你先研究研究,我给你点代码
更多的代码参考这里
'使用下面的代码需要从菜单:工程->引用 里面找Microsoft Word Object
    Dim WDApp As New Word.Application '声明一个Word对象
    WDApp.Documents.Open App.Path & "\test.doc" '打开文件
    WDApp.Selection.MoveDown unit:=wdLine, Count:=1 '光标移动到下一行
'    WDApp.Selection.MoveUp unit:=wdScreen, Count:=1 'PageUp
'    WDApp.Selection.MoveDown unit:=wdScreen, Count:=1 'PageDown
    WDApp.Selection.HomeKey unit:=wdLine '光标移动到行首
    WDApp.Selection.EndKey unit:=wdLine, Extend:=wdExtend '结合上一行使用,选中当前行
MsgBox WDApp.Selection.Text

Answer 3

再有就是 能否通过word内容中特定标识符如（ 、  @等  作为光标移动到的目标点  要是能的话 如何实现？
要是这个能实现 就很有参考性了！

Answer 4

用instr函数+WDApp.Selection.Text 就可以判断WDApp.Selection.Text里面是否有你要的特殊符号,甚至是关键字
instr函数的使用看MSDN 

Answer 5

那可不可以实现这样的代码：
 WDApp.Selection.HomeKey unit:=wdLine 
 WDApp.Selection.EndKey unit:=wdLine, Extend:= instr（WDApp.Selection.Text，"(",1）