用delphi合并表格中單元格

《用delphi合并表格中單元格》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在應(yīng)用文檔-天天文庫(kù)。

1、用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;????m

2、yRow:Row;begin??memo1.Lines.Clear?;????//?=====?創(chuàng)建對(duì)象?=====????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

3、:=1;????oFileName?:=?'d:est.doc';????oReadOnly:=true;????CfCversions?:=?EmptyParam;????AddToRctFiles:=?EmptyParam;????PswDocument:=?EmptyParam;????PswTemplate:=?EmptyParam;????oRevert:=?EmptyParam;????WPswDocument:=?EmptyParam;????WPswTemplate:=?EmptyParam;????oFormat:=?EmptyParam;?????????//?=====?

4、打開文件?=====?????????????????????????????WordApp.Documents.open(oFileName,CfCversions,oReadOnly,AddToRctFiles,???????PswDocument,PswTemplate,oRevert,WPswDocument,WPswTemplate,oFormat);????//?=====?關(guān)聯(lián)文件?=====????WordDoc.ConnectTo(WordApp.Documents.Item(DocInx));?????//合并第一、二列????????iStart:=WordDoc.Tab

5、les.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)

6、?then?????//?=====?關(guān)閉文件?=====????begin??????WordDoc.Close;??????WordDoc.Disconnect;??????WordDoc.Destroy;??????WordDoc?:=?nil;????end;????if?Assigned(WordApp)?then??????//?=====?關(guān)閉Word?=====????begin??????WordApp.Quit;??????WordApp.Disconnect;??????WordApp.Destroy;??????WordApp?:=?nil;????end;??end;

7、end;取得Word表格中的數(shù)據(jù)//取得Word?表格中的數(shù)據(jù)procedure?getWordCellStr;var?WordApp:?TWordApplication;????WordDoc:?TWordDocument;????DocInx,oFileName,CfCversions,oReadOnly,AddToRctFiles,PswDocument,????PswTemplate,oR