一个控制 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 插入表格的代码:procedure TForm1.MakeWordFile(const UserID : string);varBookmark: TBookmark;Rang...
  • niray
  • niray
  • 2007年03月31日 23:39
  • 1507

c#/.net操作word插入表格实例

先给张效果图--- 整体是一个模板,第一个表格是替换里面的值,第二个直接动态生成插入。 。。。代码 using Abase; using System; using System.Collecti...
  • srx942173347
  • srx942173347
  • 2016年10月27日 16:06
  • 2410

C#对Word文档的创建、插入表格、设置样式等操作!

下面的例子中包括C#对Word文档的创建、插入表格、设置样式等操作
  • ll2008ok
  • ll2008ok
  • 2017年03月14日 16:45
  • 1643

C#中操作Word(7)—— 如何向Word中插入表格

一、 前言         本文主要讨论下向word中插入表格的方法。Word模型对象Document、Range、Selection中都含有一个Tables的属性,它是表格的集合,我们想要向一个wo...
  • lzhui1987
  • lzhui1987
  • 2016年11月11日 08:45
  • 2399

Aspose.Word 操作word表格的行 插入行 添加行

rows.insert或rows.add前row必须有单元格cell private void button3_Click(object sender, EventArgs e)         { ...
  • jelenyoung
  • jelenyoung
  • 2015年06月09日 21:29
  • 5054

C#在Word文档指定位置处理表格

正在做的项目里,需要开发一个小工具,将需要的数据插入到Word文档中。这当中有一项需求,要求能够在Word文档中某处插入表格,或者删除该处表格。     这个小工具是在VS.Net2005、Of...
  • mystudyblog0507
  • mystudyblog0507
  • 2012年08月29日 10:38
  • 1296

word嵌入表格,完美解决报表

【背景概要】     项目中,有很多地方涉及到需要打印各种表格,静态的,动态的,都有。而之前利用锐浪报表实现了显示表格的需求,但在进行条件筛选后,报表中的数据并不能显示了。这个问题一直搁置了很久,一...
  • u013034223
  • u013034223
  • 2015年12月22日 15:35
  • 1458

使用javascript操作word中的表格

1:使用javascript往word文档中插入表格 function insertTable() { //定义selection对象,该对象代表窗口或窗格中的当前所选内容。所选内容代表文档中被选...
  • u011065605
  • u011065605
  • 2015年03月19日 12:29
  • 643

【一步一步学习VBA】WORD 中创建表格并插入文本

Sub create() ' ' create 宏 ' ' Dim docActive As Document     Dim tblNew As Table     Dim celTable As ...
  • chenqiai0
  • chenqiai0
  • 2016年08月03日 22:30
  • 1803

delphi操作word基类,插入表格,分页符,日期,页码,替换,图片

unit utMyword;(*By 闫磊 编写 2004.09.06 Email:landgis@126.com yanleigis@21cn.com*)interfaceuses word2000...
  • yanleigis
  • yanleigis
  • 2007年11月23日 11:57
  • 8033
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:一个控制 Word 插入表格的代码
举报原因:
原因补充:

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