用VBA生成word文档的准考证

数千人考试，需要做准考证，虽然可以用文档合并，但由于种种原因，只能用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