带照片的邮件合并
上一节
下一节
效果图:

制作步骤:
1、制作工作证模板,纸张大小设置为自定义大小8厘米宽、11厘米高。
2、调整页边距,上下左右均为1厘米
3、利用表格的形式进行布局,插入背景图片,调整大小,衬于文字下方。
4、准备需要的照片、完善“人员信息表.xlsx”
5、使用邮件合并功能,选择收件人文件“人员信息表.xlsx”
6、插入合并域:姓名、社团名称、编号
7、在图片区域插入图片域(插入-文档部件-域-IncludePicture),输入文件名为000
8、shift+F9切换域代码,将000选中,插入邮件中的合并域“照片”
9、完成合并,合并成一个word文档。
10、在合并后的文档中,利用开发工具里的宏功能,统一调整图片大小。
宏代码如下:
Sub pic_size() '设置图片大小
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型 图片
ActiveDocument.InlineShapes(n).Height = 100 '设置图片高度 (1cm等于28.35px)
ActiveDocument.InlineShapes(n).Width = 90 '设置图片宽度
Next n
End Sub
11、保存,全选文档,按F9刷新图片。另存为pdf格式的文件。
素材:

