delphi向word写入数据

1.所需的三个控件：ChooseWA:TWordApplication;ChooseWD:TWordDocument;ChooseWF:TWordFont;2.检查计算机是否安装了WORDtryChooseWA.Connect;exceptMessageBox(handle,'无法链接，请确认电脑上是否安装WordXP/2003及以上版本','连接出错',MB_OkorMB_ICONERROR);Abort;end;3.关闭WORD拼写检查//因为Word进行拼写检查需要很多时间，所以首先关闭检查ChooseWA.Options.CheckSpellingAsYouType