用Delphi合并表格中单元格.doc

用Delphi合并Word表格中单元格 /合并Word表格中单元格proceduremergeWordCell;varWordApp:TWordApplication;WordDoc:TWordDocument;DocInx,oFileName,CfCversions,oReadOnly,AddToRctFiles,PswDocument,PswTemplate,oRevert,WPswDocument,WPswTemplate,oFormat:OleVariant;i,iRow,iCol:integer;myCell:Cell;myRow:Row;beginmemo1.Lines.Clear;/=创建对象=ifnotAssigned(WordApp)thenbeginWordApp:=TWordApplication.Create(nil);WordApp.Visible:=false;end;ifnotAssigned(WordDoc)thenWordDoc:=TWordDocument.Create(nil);tryDocInx:=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;finallyifAssigned(WordDoc)then/=关闭文件=beginWordDoc.Close;WordDoc.Disconnect;WordDoc.Destroy;WordDoc:=nil;end;ifAssigned(WordApp)then/=关闭Word=beginWordApp.Quit;WordApp.Disconnect;WordApp.Destroy;WordApp:=nil;end;end;end;取得Word 表格中的数据/取得Word表格中的数据proceduregetWordCellStr;varWordApp:TWordApplication;WordDoc:TWordDocument;DocInx,oFileName,CfCversions,oReadOnly,AddToRctFiles,PswDocument,PswTemplate,oRevert,WPswDocument,WPswTemplate,oFormat:OleVariant;i,iRow,iCol:integer;myCell:Cell;myRow:Row;beginmemo1.Lines.Clear;/=创建对象=ifnotAssigned(WordApp)thenbeginWordApp:=TWordApplication.Create(nil);WordApp.Visible:=false;end;ifnotAssigned(WordDoc)thenWordDoc:=TWordDocument.Create(nil);tryDocInx:=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);/方法(1)=规则表Fori:=1ToWordDoc.Tables.Countdo/第i个表begin/第iRow行ForiRow:=1ToWordDoc.Tables.Item(i).Rows.Countdobegin/第iCol列Foricol:=1ToWordDoc.Tables.Item(i).Columns.CountdobeginmyCell:=WordDoc.Tables.Item(i).Cell(iRow,icol);memo1.Lines.add(myCell.Range.Text);end;end;end;/方法(2)=不规则表:只有横向合并时Fori:=1ToWordDoc.Tables.Countdo/第i个表beginForiRow:=1ToWordDoc.Tables.Item(i).Rows.CountdobeginmyRow:=WordDoc.Tables.Item(i).Rows.Item(iRow);/第iRow行Foricol:=1TomyRow.Cells.Countdo/第iCol列beginmyCell:=myRow.Cells.Item(iCol);memo1.Lines.add(myCell.Range.Text);end;end;end;/方法(3)=不规则:横向、纵向合并时；任何表格Fori:=1ToWordDoc.Tables.Countdo/第i个表begin/第j个Cellforj:=1ToWordDoc.Tables.Item(i).Range.Cells.CountdobeginmyCell:=WordDoc.Tables.Item(i).Range.Cells.Item(j);memo1.Lines.add(myCell.Range.Text);end;end;finallyifAssigned(WordDoc)then/=关闭文件=beginWordDoc.Close;WordDoc.Disconnect;WordDoc.Destroy;WordDoc:=nil;end;ifAssigned(WordApp)then/=关闭Word=beginWordApp.Quit;WordApp.Disconnect;WordApp.Destroy;WordApp:=nil;end;end;end;取得Word文件的数据/取得Word文件的数据proceduregetWordStr;varWordApp:TWordApplication;WordDoc:TWordDocument;DocInx,oFileName,CfCversions,oReadOnly,AddToRctFiles,PswDocument,PswTemplate,oRevert,WPswDocument,WPswTemplate,oFormat:OleVariant;i,iRow,iCol:integer;myCell:Cell;myRow:Row;beginmemo1.Lines.Clear;/=创建对象=ifnotAssigned(WordApp)thenbeginWordApp:=TWordApplication.Create(nil);WordApp.Visible:=false;end;ifnotAssigned(WordDoc)thenWordDoc:=TWordDocument.Create(nil);tryDocInx:=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);/方法(1):取整个文本的字符内容，包含表格s:=WordDoc.Range.text;/方法(2):取1-4位的字符，包含表格myRange:=WordDoc.Range;myRange.Start:=0;myRange.En