word2007邮件合并带批量照片

《word2007邮件合并带批量照片》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、Word2007合并批量制作带照片的准考证、证件注意事项：1.请尽量保证照片是jpg格式的（鉴定方法：看照片名字的后缀）例：举个实际例子步骤：1.在E盘新建一个文件夹，这里命名为“准考证”，以后所有相关的材料都要放在这个文件夹，比如照片啊，相关的excel，word。2.在“准考证”文件夹里面新建一个文件夹，这里给这个文件夹命名为“学生照片”，将所有要用的照片放进去。3.新建一个excel放入相关信息，这里给这个excel命名为“SeatingCard”，输入相关信息。这里输入“考号”“姓名”“照片”的相关信息，照片的

2、信息要输入照片的存储路径。照片的路径应该是E:准考证学生照片，但是这里输入的时候要注意，单斜杠要变成双斜杠。如图：原谅我给学生起的名字吧。。。实在想不到了。另外要注意，表格第一行必须是相关字段，不能空着或者有其他的，其他内容可以改，第一行在建立链接之后不能改动。现在excel做好了，就开始做word了。4.在准考证文件夹新建一个word，这里给他命名“A21SeatingCard”。现在的情况应该是这样的。在word里面做好表格的样式（一定记得在表格下面打上回车，这样证件之间才有空隙；将word分成两栏，可以在一页

3、放入更多的准考证），拿我做的举例，如下：在这个图片的红方框中，方框1是要插入考号，方框2是插入学生姓名，方框3是插入学生照片。下面是具体步骤。5.点击邮件——》开始邮件合并——》邮件合并分步向导6.右边出现这样的分步向导，如图，选择“目录”，点击下一步解释一下为什么选择目录，目录的格式是一页上面有很多，如果选择信函的话一页上只有一个。7.选择“使用当前文档”，点击下一步。8.选择“使用现有列表”，点击“浏览”，找到自己要建立链接的Excel，选择，打开。9.出现如左图，选择要链接的那个sheet，确定。这个时候会出现右

4、图的样子，上面会有所有表格中的内容。如果你不需要其中的哪条目录，可以去掉前面相应的钩。所有动作好了之后点击确认。点击下一步。10.光标放在CandidateNumber后面，选择其他项目，出现“插入合并域”的提示框，选择“考号”，点击“插入”。11.再把光标放在CandidateName后面，选择其他项目，出现“插入合并域”的提示框，选择“姓名”，点击“插入”。现在的样式应该是这样的：这个时候可以看到，考号和姓名显示出来外面有个书名号，这就是域的符号。12.这时候点击Alt+F9可以看到具体的代码样子。在这个状态下，光

5、标放在照片的地方，点击Ctrl+F9插入照片域。如图：在灰色的地方右击，出现的选项中选择“编辑域”，出现以下对话框。在左边选择域名“INCLUDEPICTURE”,文件域名可以随便起一个，这个是临时的，一会儿就要替换掉。我起的“yyy”。选中“yyy”，点击“插入合并域”，选择“照片”这个时候就能把“yyy”替换成我们需要的照片链接了。Alt+F9，在按F9就可以刷新出照片了，点击下一步就能看到完整的证件了，再点下一步完成合并，整个链接就好了。13.现在就到了生成所有照片的时候了。如下图，点击菜单上的“完成并合并”，选

6、择“编辑单个文档”。14.出现如下对话框，选择“全部”，点击“确定”。15.这个时候就生成了一个新的word，包含整个准考证。但是会发现准考证不齐，而且照片也没有变化，如下图：照片不齐的解决：把页边距变小照片不更新的解决：Ctrl+A全选，再点击F9就可以刷新了。如下图，这个叫LiNan的人头像没变如果出现这种问题，就要检查一下EXCEL中的照片路径和学生照片的名字是不是不一致。只要把照片名字改成和Excel中路径名字一样，再全选之后F9刷新就好了。解决所有照片不一样尺寸的问题：1、打开word，工具－宏－宏（或者直接

7、按Alt+F8）进入宏的界面，如下面所示，输入一个宏名，宏名自己起，能记住就行！注意：宏名不能设置为和特有关键字一样：如：set等2、宏名起好了，单击“创建”进入VisualBasic编辑器，输入如下代码并保存Subsetpicsize()'设置图片大小Dimn'图片个数OnErrorResumeNext'忽略错误Forn=1ToActiveDocument.InlineShapes.Count'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height=120'设置图片

8、高度为120pxActiveDocument.InlineShapes(n).Width=90'设置图片宽度90pxNextnForn=1ToActiveDocument.Shapes.Count'Shapes类型图片ActiveDocument.Shapes(n).Height=120'设置图片高度为120pxActiveDoc