怎样调用VBA 来实现批量录入（我已有部分代码，请高手帮忙，讲的详细点，我还是采鸟！！）(100分)

批量数据录入

批量数据录入是指将规定格式的Word文档录入到数据库中。在每个试题编号前加一个@符号，在每一个答案前加一#作为标志。在文档的最后加一$，表示结束。
批量录入是系统实现的难点之一，它是应用Delphi5.0调用Word VBA来实现的，其流程如下图所示：
其部分代码及其分析如下：
//循环开始，如果不是$继续循环
while s[1]<>'$' do
begin
j:=j+1;
pa:=wd1.Paragraphs.Item(j);
s:=pa.Range.Get_Text;
//判断是否@
if s[1]='@' then
begin
if j<>1 then
begin
filename:=ExtractFileDir(Application.Exename)+'/temp/tempa.doc';
wd2.SaveAs(filename);
wd2.Close;
wd2.Disconnect;
//提取试题编号
stbh:='';
for i:=2 to 22 do
stbh:=stbh+s;
j:=j+1;
pa:=wd1.Paragraphs.Item(j);
pa.Range.Copy;
quebool:=true;
//新建Word文档 并将跟内容粘贴
wa1.Documents.Add(template,newtemplate);
wd2.ConnectTo(wa1.Documents.Item(ItemIndex));
wd2.Content.Paste;
wa1.Selection.StartOf(unit_,Extend1);
wd2.Range.EndOf(unit_,count);
end;
//如果是#符号，则将内容存放到答案中，是正常内容则继续读取，此处代码略
end;

~~~~~~~~~~~~~~~~~~~~~~~~~~
请各位帮帮忙！！