用Delphi生成Excel模板(100分)

用Delphi生成Excel模板，程序需要为模板添加按钮，程序为模板嵌入宏（函数）
急用，希望高手指教，多谢了

我找到答案了，自己回答
uses ComObj ;
procedure TForm1.Button1Click(Sender: TObject);
var
vWord, vDoc, wdModule: Variant;
strCode: Widestring;
lReturn: Boolean;
begin
vWord := CreateOleObject('Word.Application');
//创建Word线程
try
//打开要操作的文件
vDoc := vWord.Documents.Add;
//Open('C:/Mydo
cuments/AAAc.Doc');
wdModule := vDoc.VBProject.VBComponents.Add(1);
strCode := 'sub MyProc()' + #13 +
'msgbox "这是一个用VB建立宏的例子!"' + #13 +
'end sub';
wdModule.CodeModule.AddFromString(strCode);
vWord.Run('MyProc()');
//运行VBA的过程
finally
vDoc.Close(True);
//关闭文并保存
vWord.Quit(False);
//退出Word
end;
end;

恭喜问题自己解决。接分

接分：）

为什么没有人回答？？

楼主把问题换了。上个问题说已经解决。所以大家才来接分的