首先可以参考delphi自带的demo,在activex/oleauto/word8目录

解决方案 »

  1.   

    我给你一个使用Excel的例子
    先将在Form中添加
        ExcelApplication1: TExcelApplication;
        ExcelWorkbook1: TExcelWorkbook;
        ExcelWorksheet1: TExcelWorksheet;
    使用Excel
    Try
            ExcelApplication1.Connect();
          Except
          End;
          ExcelApplication1.Visible[0]:=True;
          //增加一个Workbook
          ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0));
          Temp_Worksheet:=ExcelWorkbook1.Worksheets[1] as _WorkSheet;
          ExcelWorksheet1.ConnectTo(Temp_Worksheet);
          ExcelWorksheet1.Cells.Item[1,1]:='营业部简称';
          ExcelWorksheet1.Cells.Item[1,2]:='交易日期';
    Except
            ShowMessage('Excel非法退出!!');
            Exit;
          end;
    另外在ExcelApplication的WindowDeactivate事件中添加以下代码
    procedure ExcelApplication1WindowDeactivate(Sender: TObject;
      var Wb, Wn: OleVariant);
    begin
      inherited;
      Try
        ExcelApplication1.Quit;
        ExcelWorksheet1.Disconnect;
        ExcelWorkbook1.Disconnect;
        ExcelApplication1.Disconnect;
      Except
      End;
    end;
      

  2.   

    补充上面
    var
      Temp_Worksheet: _WorkSheet;