如何将各位业主收费通知书上的信息导入到Excel汇总表中

下列代码有点问题，不能读取word文档指定数据到rzsfb.dbf中，请高手指教，不胜感激！

Close Databases
Clear all
cPath=addbs(justpath(sys(16)))
set default to (cPath)
Create table rzsfb (房号 C(4),业主姓名 C(10),面积 C(10),月物业费 C(10),年物业费 C(10),装修管理费c(10),合计金额 C(10))
Doc=Createobject ("word.application")

For i=1 To Adir (aDocx,"*.docx)

wd=Doc.Documents.Open (cPath+aDocx[i,1])

For j=1 To wd.paragraphs.Count

a=wd.paragraphs (j).Range.Text

b=wd.paragraphs (j+1).Range.Text

c=wd.paragraphs (j+2).Range.Text

d=wd.paragraphs(j+3).Range.Text

e=wd.paragraphs(j+4).Range.Text

f=wd.paragraphs(j+5).Range.Text

g=wd.paragraphs(j+6).Range.Text

h=wd.paragraphs (j+7).Range.Text

k=wd.paragraphs (j+8).Range.Text

Insert Into rzsfb Values(;

STREXTRACT (b,":",” “)

STREXTRACT(d,“楼"，”室”)，：

STREXTRACT(d,“:",”平方米”)，

STREXTRACT(e,“费，“元")，：

STREXTRACT(e,"小计“，“元")，：

STREXTRACT(f,”小计“，“元“)，;

STREXTRACT(h,“ “,”元”))

Endfor

wd.Close

Endfor

Doc.Quit

Select * From rzsfb

Copy To Myexcel Type XL5

STREXTRACT（）是自定义读取字符串的函数吗？是按照特征字符串定位实现吗？