批量打印制作准考证（需插入照片）

306645213 · 发表于 2016-5-10 12:28

各位大侠，求助大家，如何在一张A4纸中批量打印制作准考证（需插入照片），照片（已按考生号命名)按考生号自动插入,谢谢啦

很开心 · 发表于 2016-5-10 12:34

使用word里的邮件合并功能，具体的操作步骤不是一两下能说清的，所以建议你搜索该功能视频自己学学。

306645213 · 发表于 2016-5-10 14:19

很开心发表于 2016-5-10 12:34
使用word里的邮件合并功能，具体的操作步骤不是一两下能说清的，所以建议你搜索该功能视频自己学学。

邮件合并功能能插入照片，考生太多了，能自动插入生成吗？

很开心 · 发表于 2016-5-10 15:30

能，那是邮件合并的强项。

306645213 · 发表于 2016-5-11 10:14

word邮件合并插入照片做不来，不会显示，还是excel吧，烦请各位大神指点指点

seraph717 · 发表于 2016-5-11 10:26

等待机会学习

lt0314 · 发表于 2016-5-11 11:02

本帖最后由 lt0314 于 2016-5-11 11:10 编辑

准考证批量打印.rar (180.77 KB, 下载次数: 804) 2003版的可以修改下

Sub pic()
Dim shp As Shape, Rg_zp As Range, ksh As String, sht As Worksheet, Ppath As String, oldrg As Range, rat As Double
Set sht = Sheets("准考证")
Ppath = ThisWorkbook.Path & ""
For Each shp In sht.Shapes
If shp.Name Like "ksh_*" Then shp.Delete
Next
On Error Resume Next
Set Rg_zp = sht.Cells.Find(What:="照片", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=False)
Set oldrg = Rg_zp
While Not Rg_zp Is Nothing
ksh = Rg_zp.Offset(1, 1).Value
With sht.Pictures.Insert(Ppath & ksh & ".jpg")
.Name = "ksh_" & ksh
.Top = Rg_zp.Top
.Left = Rg_zp.Left
rat = Rg_zp.Width / .Width
.Width = .Width * rat
.Height = .Height * rat
End With
Set Rg_zp = sht.Cells.FindNext(Rg_zp)
If Rg_zp.Address = oldrg.Address Then Exit Sub
Wend
End Sub

复制代码

306645213 · 发表于 2016-5-11 15:05

lt0314 发表于 2016-5-11 11:02
2003版的可以修改下

太谢谢大神了，可帮了大忙了，

kczxzs · 发表于 2017-5-17 09:33

lt0314 发表于 2016-5-11 11:02
2003版的可以修改下

这个很强大,但是我不知道哪里可以插入考生照片,另,我不需要那么多项,我需要的是理化实验操作考试准考证.

kczxzs · 发表于 2017-5-17 09:35

lt0314 发表于 2016-5-11 11:02
2003版的可以修改下

我给你发两个文件,你帮我一下吧.

		自动登录	找回密码
密码			免费注册

[求助] 批量打印制作准考证（需插入照片）