用Delphi合并Word表格中单元格

//合并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: est.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;