Delphi和Word编程集锦

 用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)); 


     // 合并第一、二列