一个控制 Word 插入表格的代码

转载 2007年09月24日 16:53:00
procedure TForm1.MakeWordFile(const UserID : string);
var
  Bookmark: TBookmark;
  RangeW: Word97.Range;
  v1: Variant;
  ov1: OleVariant;
  Row1: Word97.Row;
  sQANDD : string;//问题与难点
  sMemo : string;//备注
  sSender:string;//提交人
  sPOSTDATE :string;//提交日期
  fName : OleVariant;
  sUserName : string;//
  sfName : string;
  i , j  : integer;

begin
  // insert title
  WordDocument1.Range.Text := '文档标题';
  //格式必须在最后设置
  WordDocument1.PageSetup.Orientation := wdOrientLandscape;//横向
  WordDocument1.Range.Font.Size := 14;
  WordDocument1.Range.Font.Bold := 0;

  WordDocument1.Tables.Add (WordDocument1.Words.Last,Table1.RecordCount+1,5,EmptyParam,EmptyParam);
  WordDocument1.Tables.Item(1).Cell(1,1).Range.Text := '格1';
  WordDocument1.Tables.Item(1).Cell(1,2).Range.Text := '格2';
  WordDocument1.Tables.Item(1).Cell(1,3).Range.Text := '格3';
  WordDocument1.Tables.Item(1).Cell(1,4).Range.Text := '格4';
  WordDocument1.Paragraphs.Last.Range.Text := ' ';//必须填这句,否则两个表格就粘合在一起了
  WordDocument1.Tables.Item(1).Cell(1,5).Range.Text := '格5';
  Table1.First;
  for i := 1 to Table1.RecordCount  do
  begin
    WordDocument1.Tables.Item(1).Cell(1+i,1).Range.Text := Table1.FieldByName('ITEM').AsString;
    WordDocument1.Tables.Item(1).Cell(1+i,2).Range.Text := Table1.FieldByName('Description').AsString;
    WordDocument1.Tables.Item(1).Cell(1+i,3).Range.Text := Table1.FieldByName('Result').AsString;
    WordDocument1.Tables.Item(1).Cell(1+i,4).Range.Text := Table1.FieldByName('MEASURE').AsString;
    WordDocument1.Tables.Item(1).Cell(1+i,5).Range.Text := Table1.FieldByName('POSTDATE').AsString;
    Table1.Next;
  end;

  WordDocument1.Tables.Add(WordDocument1.Words.Last,Table2.RecordCount +1,2,EmptyParam,EmptyParam);
  WordDocument1.Tables.Item(2).Cell(1,1).Range.Text := '其它';
  WordDocument1.Tables.Item(2).Cell(1,2).Range.Text := '备注';

  Table2.First;
  for i := 1 to Table2.RecordCount  do
  begin
    WordDocument1.Tables.Item(2).Cell(1+i,1).Range.Text := Table2.FieldByName ('QANDD').AsString;
    WordDocument1.Tables.Item(2).Cell(1+i,2).Range.Text := Table2.FieldByName ('MEMO').AsString;
    Table2.Next;
  end;
  //***********************设置标题文字格式*********************************
  WordDocument1.Paragraphs.Item(1).Range.Select;
  WordDocument1.Paragraphs.Item(1).Range.Font.Size := 30;
  WordDocument1.Application.Selection.ParagraphFormat.Alignment := wdAlignParagraphCenter;
  //****************************保存文件****************************************
  sUserName := lstUser.Items[lstUser.ItemIndex];
  ZipStr(sUserName, #10);
  sfName := Trim(edFileDir.Text)+'/' + sUserName + ' ' + Trim(edDate.Text)+'.doc';
  fName := sfname;
  //保存
  WordDocument1.SaveAs2000(fname);
  WordDocument1.Close;//关闭
end;   

怎样将一个Word表格拆分为两个

在Word中,我们可以把一个表格拆分为两个或者多个,这样,如果您的Word表格中数据过多,就可以通过拆分表格的形式,来方便我们浏览和查找数据。 方法一:将光标定位在分开的表格某个位置上,按下“Ctr...

提取word文档的图片及表格并用html代码替换

实现功能:从word文档中提取图片及表格,并用html代码替换,将处理后的word 文档存放到一个html文档中  /*      * 实现步骤:1、源word另存为html。可以得到图片和htm...

【Day37】php导出word文档与excel电子表格的简单代码

今天主要对php中导出word和excel表格进行一个小小的总结: 生成word的代码:代码如下: header("Content-type: application/octet-strea...

c#通过Word实现打印的代码(表格为例)

c#通过Word实现打印的代码,以下是具体的实现代码如下: DateTime dt = DateTime.Now;                     Object none = Syst...
  • pyq228
  • pyq228
  • 2011年10月27日 10:14
  • 1014

word中的表格怎么按照章节自动插入题注(即表头的编号)

问:word中的表格怎么自动插入题注(即表头的编号自动编号)? 答: 1首先搞清楚自动编号的意思。自动插入题注的意思是,在你在word中新建或者复制一个word表格的时候,表头的编号就自动生成了,而不...

在word中插入页码和表格的方法

  • 2014年05月01日 16:38
  • 494B
  • 下载

VB程序生成WORD并插入表格

  • 2012年11月03日 16:20
  • 20KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:一个控制 Word 插入表格的代码
举报原因:
原因补充:

(最多只允许输入30个字)