delphi 在word模板中贴数据

如果需要word模板，并且在delphi中将数据插入到word中的操作步骤：

下面操作涉及的变量：

var
    i,j:integer;
    FileName:string;
    vl_str,vl_sql:string;
    ksh,kslb:string  ;
    bookmarkCount,vl_answer:integer;
    bookmarkName:string;
    FWord,MyDoc:Variant;
    FPicture,FEWM : OLEVariant;
    FDoc:Variant;
    ConfirmConversions,   ReadOnly,   AddToRecentFiles,
    PasswordDocument,   PasswordTemplate,   Revert,
    WritePasswordDocument,   WritePasswordTemplate,   Format:   OleVariant;
    OleSaveChange:OleVariant;
    vl_temp,v_date:string;

1、创建word对象。

     try
        Fword:=GetActiveOleObject('Word.Application');
     except
        try
          Fword:=CreateOleObject('Word.application');
          FWord.visible:=true;
        except
          messagebox(handle,'创建Word对象失败!','错误信息',MB_OK+MB_ICONINFORMATION);
          exit;
        end;