Delphi与Word(一)合并Word 表格中单元格

原创 2003年06月04日 17:13:00

//合并Word 表格中单元格
procedure mergeWordCell;
var WordApp: TWordApplication;
??? WordDoc: TWordDocument;
??? DocInx,oFileName,CfCversions,oReadOnly,AddToRctFiles,PswDocument,
??? PswTemplate,oRevert,WPswDocument,WPswTemplate,oFormat: OleVariant;
??? i,iRow,iCol:integer;
??? myCell:Cell;
??? myRow:Row;
begin
? memo1.Lines.Clear ;

??? // ===== 创建对象 =====
??? if not Assigned(WordApp) then?????????????????????????
??? begin
????? WordApp:= TWordApplication.Create(nil);
????? WordApp.Visible := false;
??? end;
??? if not Assigned(WordDoc) then
????? WordDoc:= TWordDocument.Create(nil);
? try
??? DocInx:=1;
??? oFileName := 'd:/test.doc';
??? oReadOnly:=true;
??? CfCversions := EmptyParam;
??? AddToRctFiles:= EmptyParam;
??? PswDocument:= EmptyParam;
??? PswTemplate:= EmptyParam;
??? oRevert:= EmptyParam;
??? WPswDocument:= EmptyParam;
??? WPswTemplate:= EmptyParam;
??? oFormat:= EmptyParam;????
??? // ===== 打开文件 =====????????????????????????
??? WordApp.Documents.open(oFileName,CfCversions,oReadOnly,AddToRctFiles,
?????? PswDocument,PswTemplate,oRevert,WPswDocument,WPswTemplate,oFormat);
??? // ===== 关联文件 =====
??? WordDoc.ConnectTo(WordApp.Documents.Item(DocInx));


??? //合并第一、二列
??????? iStart:=WordDoc.Tables.Item(i).Cell(1,1).Range.Start;
??????? myCol:= WordDoc.Tables.Item(i).Columns.Item(2);
??????? iEnd:=myCol.Cells.Item(myCol.Cells.Count).Range.End_;
??????? myRange:=WordDoc.Range;
??????? myRange.Start:=iStart;
??????? myRange.End_ :=iEnd;
??????? myRange.Cells.Merge;

? finally
??? if Assigned(WordDoc) then???? // ===== 关闭文件 =====
??? begin
????? WordDoc.Close;
????? WordDoc.Disconnect;
????? WordDoc.Destroy;
????? WordDoc := nil;
??? end;
??? if Assigned(WordApp) then??????// ===== 关闭Word =====
??? begin
????? WordApp.Quit;
????? WordApp.Disconnect;
????? WordApp.Destroy;
????? WordApp := nil;
??? end;
? end;
end;

用Delphi合并Word表格中单元格

用Delphi合并Word表格中单元格//合并Word 表格中单元格procedure mergeWordCell;var WordApp: TWordApplication;    WordDoc:...
  • iseekcode
  • iseekcode
  • 2009年11月26日 15:09
  • 356

delphi通过OLE对word进行单元格合并操作

上图为最终结果, 直接上代码:   uses comobj, word2000 procedure TForm1.Button2Click(Sender: TObject); var ...
  • csm2432
  • csm2432
  • 2012年06月27日 13:16
  • 2694

Delphi与Word(一)合并Word 表格中单元格

//合并Word 表格中单元格procedure mergeWordCell;var WordApp: TWordApplication;??? WordDoc: TWordDocument;??? ...
  • LuckyJan
  • LuckyJan
  • 2003年06月04日 17:13
  • 1758

使用Jacob合并多个word文档生成一个word文档

public void uniteDoc(String[] tempIds, String savepaths) { String rootPath = ****; if (ObjectUti...
  • h595103832
  • h595103832
  • 2016年06月24日 11:41
  • 311

【一步一步学习VBA】WORD 中创建表格进行单元格合并

在WORD中插入表格我们已经在多篇文章中进行描述了,现在我们需要做的是对插入的表格进行单元格行列的合并。 在网上找了很久,发现都是行的合并,关于列的合并没有找到,于是我就只能自己写了,代码如下: ...
  • chenqiai0
  • chenqiai0
  • 2016年08月07日 10:46
  • 2494

[原]C# 读取Word 表格数据(单元格纵合并)

2014-5-8阅读697 评论0 先介绍一个例子,来说明行中单元格合并(横合并) 与 列单元格合并(纵合并)的区别:    对于上面的表格,对Cells遍历的结果,Tr...
  • p656456564545
  • p656456564545
  • 2015年10月14日 11:43
  • 956

word两个不同表格合并,防止自动调整

选择第一个左上角的十字形,右键单击,选择表格内容 原先的“文绕图”为“无”,这里将其设置为“文绕图”,然后点击确定 将光标放在这里: 按下delete键,表格合并到一起了,而且不会自...
  • haimian520
  • haimian520
  • 2016年07月08日 15:14
  • 1340

Delphi与Word(一) 合并Word 表格中单元格

//合并Word 表格中单元格procedure mergeWordCell;var WordApp: TWordApplication;    WordDoc: TWordDocument;    ...
  • TianGuanLeiOK
  • TianGuanLeiOK
  • 2004年09月08日 16:14
  • 881

word合并单元格后,VBA读取设置相应单元格内容

设置单元格的行列坐标并写的word文档中Sub SetTablePosition()    Dim tbl As Table    Dim cell As cell    Dim tblIndex A...
  • WV1124
  • WV1124
  • 2008年11月02日 16:29
  • 2556

Delphi操作Word中的表

Procedure GetWordCellStr; var     WordApp: TWordApplication;     WordDoc: TWordDocument;     Doc...
  • my98800
  • my98800
  • 2016年09月29日 11:32
  • 766
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi与Word(一)合并Word 表格中单元格
举报原因:
原因补充:

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