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.
分享到:
相关推荐
利用VBA语言将同一文件夹中的多个Word文档合并到一个新的Word中,使用简单快捷。
POI-TL合并多个Word文档
实现将多个word文件合并成一个word文档,整理两种方法,所需资料比较齐全,已经过测试,可直接下载使用。
使用aspose-words.jar 实现word文件合并。开源版,下载后可一直使用 1、支持word文档内容部分替换 2、支持word内容合并,包含页眉、页脚、批注等信息 3、doc、docx文件均可支持 4、轻量级,引入jar 包即可引用
利用VBA代码将一个word文档按页分割成多个word文档
利用VBA合并多个word文档到一个文档中,操作说明在文档中
将多个word路径下的word合并成一个word 第一个路径合并后在第一个位置,最后一个路径合并后在最后
通过使用Python的库,如python-docx,我们可以读取、修改和合并多个Word文档。这个过程可以大大节省我们的时间和努力,提高我们的工作效率。此外,Python还提供了强大的错误处理和日志记录功能,可以帮助我们更好地...
功能:把一个文件夹下面的word文档按原文档的格式批量合并成一个word文档。 准备工作 把 合并文件.docm和需要合并的word文档(例如:测试用的文档1.docx、测试用的文档1.docx)放入一个文件夹里面 调用宏方法 打开...
如何将一个word文档按页分割成多个word文档,很有参考价值
相同格式的excel进行合并,或者对多个word文档进行合并,word文档包含图片。
使用poi将多个word合并,本方法经过测试,目前只支持多个doc格式合并成一个doc,如果是docx格式生成后打不开
java 使用POI合并两个word文档.docx
资源描述了poi对于word的操作,poi合并word文档,poi设置word页码,内含maven依赖文档和完整代码,是一个完整工程,打开即可用
java运用poi操作word,替换word中的占位符填充数据,并将多个word合并成一个word,附件是java代码和相关jar包,以及测试模板,需要注意是,只适用2007以上的word
python批量合并多个word文档.rar
Python 如何把多个Word文档合并为一个PDF文档 Python源码Python 如何把多个Word文档合并为一个PDF文档 Python源码Python 如何把多个Word文档合并为一个PDF文档 Python源码Python 如何把多个Word文档合并为一个PDF...
合并两个word文档,将两个word文档合并,office 2003,office 2007测试没问题
Office办公自动化-如何把多个Word文档合并为一个PDF文档-Python实例源码.zip
A,首先将需要批量替换的多个Word文档放在同一文件夹下面。 B,新建一空白Word文档,右击空白工具栏,单击“控件工具箱”,就可以看到屏幕上调出的控件工具箱。 C,在控件工具箱上单击“命令按钮”,文档中...