合并多个word文件

unit WordOperate;

//作者：邦畿千里

//2008-10

interface

uses SysUtils, ComObj, ShellApi, Windows;

//合并多个Word文件，存到一个指定文件里
//参数说明
//ArrWord           为带路径的Word文件名称数组
//outFileName       为合并后的文件名称
//bInsertPageBreak  是否在合并的文件之间插入分页符
//bOpenAfterMerge   是否合并之后打开文件
procedure MergeWord(ArrWord: array of string; const      outFileName: string; bInsertPageBreak: boolean = True; bOpenAfterMerge: Boolean = true);

 

Implementation

 

procedure MergeWord(ArrWord: array of string; const outFileName: string; bInsertPageBreak: boolean = True; bOpenAfterMerge: Boolean = true);
Const
  wdSectionBreakNextPage = $00000002;
Var
  i: integer;
  vFile: string;
  WordApp: Variant;
  bOpen: boolean;
begin

WordApp := CreateOleObject('Word.Application');
  bOpen := False;
  for i := Low(ArrWord) to High(ArrWord) do
  begin
    vFile := ArrWord[i];
    if FileExists(vFile) then
    begin
      if not bOpen then
      begin

//打开第一个文件
        WordApp.Documents.open(vFile);
        bOpen := True;
      end
      else
      begin
        if bInsertPageBreak then

begin

          //插入分页符
          WordApp.ActiveDocument.Paragraphs.Last.Range.InsertBreak(

wdSectionBreakNextPage);

        end;

 

        //插入一个文件
        WordApp.ActiveDocument.Paragraphs.Last.Range.InsertFile(

vFile, '', False, false, false);
      end;
    end;
  end;

  //存为目标文件
  WordApp.ActiveDocument.SaveAs(outFileName);
  WordApp.Quit;
  if bOpenAfterMerge then
  begin

    //打开合并后的文件
    ShellExecute(0,'Open',PChar(outFileName),nil,nil,SW_SHOWDEFAULT);
  end;
end;
end.