急:请教如何操作word中的表格!请附源码!谢谢!

解决方案 »

  1.   

    //1、新建一个word文档
      try
        MsAppl := CreateOleObject('Word.Application');
        MsAppl.visible := IsVisible;
        //新建一个Word文档
        MsAppl.Documents.add;
      except
        Result := false;
        MsAppl.quit;
        Abort;
      end;
      //2、新建一个表格;
      cols := 0;
      Cols := FColumens.Count;
      MsAppl.ActiveDocument.Tables.Add(MsAppl.ActiveDocument.Range(0,0),2,Cols);
      MsTable := MsAppl.ActiveDocument.Tables.Item(1);
      MsTable.Select;
      

  2.   

    http://www.csdn.net/develop/read_article.asp?id=15918