数千人考试,需要做准考证,虽然可以用文档合并,但由于种种原因,只能用VBA来做了。
原始数据在xlsx文件中,表头:
把需要做的准考证做成“准考证模板.docx”,只一页:
并与xlsx文件放在一起,当前目录下建一目录 photo ,里面放的是照片,所有照片的文件名都是 身份证号.jpg,在xlsx中写VBA代码:
Sub zkz()
Dim wd As New Word.Application, shp As Object, ar()
photopath$ = ThisWorkbook.Path & "\photo\"
docpath$ = ThisWorkbook.Path & "\"
rowscount% = Range("A65536").End(3).Row - 1
ar = Range("a2").Resize(rowscount, 7).Value
docfname$ = "准考证.docx"
docpathfname$ = docpath & docfname
FileCopy docpath & "准考证模板.docx", docpathfnam