关于VB 提取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表中
表的形式是
汽车生产企业 车型 车型名称 发动机型号 发动机生产厂 机外净化器 燃油蒸发控制装置 氧传感器
我的程序段是下面这个，但是通不过编译啊Dim WDApp As New Word.Application '声明一个Word对象
WDApp.Documents.Open App.Path & "\test.doc" '打开文件Dim ExcelID As Excel.Application
ExcelID.Visible = True
ExcelID.WorkBooks.Open App.Path & "\test.xls"
WDApp.Selection.MoveDown unit:=wdLine, Count:=5   能否直接下移5行？
WDApp.Selection.HomeKey unit:=wdLine '光标移动到行首
WDApp.Selection.EndKey unit:=wdLine, Extend:=wdExtend '结合上一行使用,选中当前行Dim a As String
Dim b As String
Dim c As String
b = "（"
a = InStr(0, WDApp.Selection.Text, b, vbTextCompare)
c = Mid(WDApp.Selection.Text, 0, a)
ExcelID.Cells(1, 4) = c另外还有个朋友让我用正则表达式  正则表达式支持中文么？