word里批量插入pdf-多个word文档如何合并打印?

今天碰到一个问题，就是有多个word文档，需要打印。为了节省纸张，想要对纸张进行双面打印。
有可能，文档a的末页打印在某张纸的正面，而这张纸的背面打印的是文档b的首页，这种情况没关系，就是为了节省纸张嘛！
一、对于双面打印，只需要通过分别“奇数页”和“偶数页”就可实现。
二、但是对于多个word文档合并，好像就没有那么简单了。
word里虽有“插入文件”的功能，可以实现文件的合并。但是不同的文件，“页面设置”会有不一样，比如“上下左右边距”，或者“纵向横向”不一样。而通过word的“插入文件”功能，并不会对插入进来的内容自动进行页面设置，进而出现版面错乱。
所以，在每次“插入文件”之前，应该先插入一个分节符，再“插入文件”，还需要参考插入的这个文件的原来的页面设置，对当前这节
，进行页面设置，才能符合原来的版面设计。
除了这样之外，还有另外一种方法。就是将每个word文档转换成pdf文件，然后将多个pdf文件合并（好像有不少软件能实现pdf文件的合并）。而pdf文件的合并，不会出现前面所提到――word里“插入文件”――所出现的状况。
注1：可以在搜索引擎里尝试搜索“doc文档合并”的软件。但是不知道这类软件是否会出现前面所描述的状况。
注2：安装过某个软件（word文档批量转换成pdf文件），但是需要付费购买，不满意。
注3：记得报纸上介绍过有软件可以直接实现word文档的批量打印，但不知道能否实现双面打印。

全部插入，然后打开“查找和替换”，切换到“替换”，在“查找内容”框中输入：^g，注意要输入英文小写，在“替换为”框中输入：^&^m，同样为英文小写。
解释：^g，查找图形
^&，替换为查找内容
^m，分页符。
也就是在每个图片后面添加分页符。

一、word显示比例调到最小（比如10%），让word页面都以缩略图形式显示，鼠标移至缩图左上角，当指针变形为反向时，点选此页

二、拖动word垂直滑块向下至你要选中的截止页面（例如50页），shift+页面左上角单击，此时，就连续选中了50页（复制）

三、重复方法一 二，选中被替换页，用你刚复制的页面，粘贴！！

------------------------
总结：
word的替换页的方法，与替换文字一样――①选中并复制“源”②选中目标内容③粘贴！

三步完成替换，快捷的要点在于如何快捷选择和粘贴ctrl+v

打开word
插入――图片――来自文件

选定所有需要的插入后
用回车键在各图片间建立空行

新建一个空白的word文档。
工具――》宏――》vb编辑器――》打开this document ――》把下面代码粘入编辑窗口――》保存

打开这个word文档――》工具――》宏――》执行 下面的不用我说了，最后记得通配符批量替换照片就可以一行显示多张了。

sub insertpic()
dim myfile as filedialog
set myfile = application.filedialog(msofiledialogfilepicker)
with myfile
.initialfilename = "f:\"
if .show = -1 then
for each fn in .selecteditems
set mypic = selection.inlineshapes.addpicture(filename:=fn, savewithdocument:=true)
'按比例调整相片尺寸
widthnum = mypic.width
c = 10 '在此处修改相片宽,单位厘米
mypic.width = c * 28.35
mypic.height = (c * 28.35 / widthnum) * mypic.height
if selection.start = activedocument.content.end - 1 then '如光标在文末
selection.typeparagraph '在文末添加一空段
else
selection.movedown
end if
selection.text = basename(fn) '函数取得文件名
selection.endkey
if selection.start = activedocument.content.end - 1 then '如光标在文末
selection.typeparagraph '在文末添加一空段
else
selection.movedown
end if
next fn
else
end if
end with
set myfile = nothing
end sub
function basename(fullpath) '取得文件名
dim x, y
dim tmpstring
tmpstring = fullpath
x = len(fullpath)
for y = x to 1 step -1
if mid(fullpath, y, 1) = "\" or _
mid(fullpath, y, 1) = ":" or _
mid(fullpath, y, 1) = "/" then
tmpstring = mid(fullpath, y + 1)
exit for
end if
next
basename = left(tmpstring, len(tmpstring) - 4)
end function