如果想用邮件合并完成这样的准考证排版如何完成？

futc004

本人想用邮件合并，做大量的准考证，
要求：正确批量导入相片，每页最多两名同学，同一个班的学生准考证在同一页，不同班的学生不能同页，以方便打印分发。
（本人用网上的教程做，经常出现莫名错误，有时候是相片显示不出来，有时候是相片显示有误，特别是处理相片较多的时候）

准考证模板

相片

学生信息

练习文件.zip (284.02 KB, 下载次数: 14)

2024-7-29 17:56 上传

点击文件名下载附件

哪个高手能指点迷津。谢谢。

shenjianrong163

三步完成：
1.规范信息




2.邮件合并

3.统一照片大小



插件下载： Word小秘书
https://kdocs.cn/l/cpBmS1b0BBqy

zpy2

<?php

//https://club.excelhome.net/forum.php?mod=viewthread&tid=1698331&fromguid=hot&extra=&mobile&_dsign=9e196901
//准考证打印
$file=__DIR__.'/in.txt';
$file_out=__DIR__.'/out.html';
$f=fopen($file,'r');
$f_out=fopen($file_out,'w');
$row=0;
$out="";
while(!feof($f)){

$str=trim(fgets($f),"\n");
if($row==0){
$str="<table class=\"inner\" border=1 cellpadding=''6'' cellspacing=0 style=\"margin:10px;\"><caption><strong>$str<br></strong></caption>\n";
$row++;
}else{
        $arr=explode("\t",$str);
        $arr=array_filter($arr);
        array_walk($arr,function(&$value,$key){
        $class_names="";       
                if(preg_match("~#(\d)$~",$value,$matches)){
                        $row_span_num=$matches[1];
                       
                }
                if(preg_match("~^(\d)x~",$value,$matches)){


                        $span_num=$matches[1];
                }

                if(preg_match("~{(.*)}~",$value,$matches)){


                        $class_names=$matches[1];
                }
        //fields               
                if(preg_match("~@(.+)@~",$value,$matches)){
                        //no rowspan no colspan
                        if(empty($row_span_num)&&empty($span_num)){
                       
                $value="<td  class=\"$class_names\" >'||$matches[1]||'</td>";
                        }

                        // rowspan no colspan
                        if(!empty($row_span_num)&&empty($span_num)){
                       
                $value="<td  rowspan=$row_span_num class=\"$class_names\" >'||$matches[1]||'</td>";
                        }
                        // no rowspan  colspan
                        if(empty($row_span_num)&&!empty($span_num)){
                       
                $value="<td colspan=\"$span_num\"  class=\"$class_names\" >'||$matches[1]||'</td>";
                        }
                        //  rowspan and colspan
                        if(!empty($row_span_num)&&!empty($span_num)){
                       
                $value="<td colspan=\"$span_num\"  rowspan=$row_span_num  class=\"$class_names\" >'||$matches[1]||'</td>";
                        }
       

                }else{//constant
$value=preg_replace('/^\dx|#\d$/','',$value);

                        //no rowspan no colspan
                        if(empty($row_span_num)&&empty($span_num)){
                       
                $value="<td colspan=\"1\"  rowspan=\"1\"  class=\"$class_names\" >$value</td>";
                        }

                        // rowspan no colspan
                        if(!empty($row_span_num)&&empty($span_num)){
                       
                $value="<td  rowspan=$row_span_num  class=\"$class_names\" >$value</td>";
                        }
                        // no rowspan  colspan
                        if(empty($row_span_num)&&!empty($span_num)){
                       
                $value="<td colspan=\"$span_num\"  class=\"$class_names\" >$value</td>";
                        }
                        //  rowspan and colspan
                        if(!empty($row_span_num)&&!empty($span_num)){
                       
                $value="<td colspan=\"$span_num\"  rowspan=$row_span_num  class=\"$class_names\" >$value</td>";
                        }
       




                }
        });
        $str=implode("  ",$arr);



$str="<tr>$str</tr>\n";
}
//echo $str;
$out.=$str;
}
$out.="</table>";
$style="<style>td{max-width:reset}.inner td{min-width:120px} caption{margin-bottom:5px}
.big{font-size:2em;font-weight: bolder;}
</style>";
$out=$style.$out;
$table_name="aa";
$sql="select '$out' title from $table_name";
echo $sql;
//echo $out;
file_put_contents(__DIR__."/../run/sql.txt",$sql);
file_put_contents(__DIR__."/sql.txt",$sql);
//echo fwrite($f_out,$out);
fclose($f_out);
fclose($f);

//require(__DIR__."/runsql.php");


//select * from 准考证照片打印 limit 20;
create temp table aa as
select f01,"<img src="||f02||'>' f02 from 准考证照片打印;
select '<style>td{max-width:reset}.inner td{min-width:120px} caption{margin-bottom:5px}
.big{font-size:2em;font-weight: bolder;}
</style><table class="inner" border=1 cellpadding=''6'' cellspacing=0 style="margin:10px;"><caption><strong>2024年***中学物理竞赛准考证                                <br></strong></caption>
<tr><td colspan="1"  rowspan="1"  class="" >姓名</td>  <td  class="" >'||f01||'</td>  <td colspan="4"  rowspan=4  class="" >'||f02||'</td></tr>
<tr><td colspan="1"  rowspan="1"  class="" >学校</td>  <td colspan="1"  rowspan="1"  class="" >***中学</td></tr>
<tr><td colspan="1"  rowspan="1"  class="" >考点</td>  <td colspan="1"  rowspan="1"  class="" >***中学</td></tr>
<tr><td colspan="1"  rowspan="1"  class="" >准考证号</td>  <td colspan="1"  rowspan="1"  class="" ></td></tr>
<tr><td colspan="1"  rowspan="1"  class="" >考场</td>  <td colspan="1"  rowspan="1"  class="" >***中学</td>  <td colspan="1"  rowspan="1"  class="" >座位号</td>  <td colspan="1"  rowspan="1"  class="" ></td></tr>
<tr><td colspan="1"  rowspan="1"  class="" >考试时间</td>  <td colspan="3"  class="" >2024年5月5日上午9:00～11:00</td></tr>
<tr></tr>
</table>' title from aa

zhanglei1371

shenjianrong163 发表于 2024-7-29 21:18
三步完成：
1.规范信息

加空行的思路非常精妙，插件也与原生域融合的很好

futc004

shenjianrong163 发表于 2024-7-29 21:18
三步完成：
1.规范信息

太感谢了，还帮我推荐了一个好的插件。你的这个方法很巧妙，中间插入一个空行的效果比较好理解。我不会VBA，所以你的方法对我很实用。

futc004

zpy2 发表于 2024-7-29 21:36

版主就是牛人啊。谢谢。

gwjkkkkk

Option Explicit
Sub test()
    Dim ar, i&, j&, r&, wdApp As Word.Application, strFileName$, strPath$, strSaveName$, pic As Word.InlineShape
   
    strPath = ThisWorkbook.Path & "\"
    ar = [A1].CurrentRegion.Value
    For i = 2 To UBound(ar)
        strFileName = strPath & ar(i, 1)
        If Dir(strFileName) <> "" Then
            r = r + 1
            For j = 1 To UBound(ar, 2)
                ar(r, j) = ar(i, j)
            Next j
            ar(r, 1) = strFileName
        End If
    Next i
    If r = 0 Then MsgBox "没找到图片文件": Exit Sub
    ar = cutArray1(ar, 2, 0, r)
   
    strFileName = strPath & "准考证模版.docx"
    If Dir(strFileName) = "" Then MsgBox "模板文件不存在！": Exit Sub
   
    Application.ScreenUpdating = False
    On Error Resume Next
    Set wdApp = GetObject(, "Word.Application")
    If Err <> 0 Then
        Set wdApp = CreateObject("Word.Application")
        'wdApp.Visible = True
    End If
   
    With wdApp.Documents.Add
        .PageSetup.Orientation = wdOrientLandscape
        strSaveName = strPath & "生成表"
        For i = 1 To UBound(ar)
            With wdApp.Documents.Open(strFileName)
                For j = 1 To UBound(ar(i))
                    With .Tables(j)
                        .Range.Cells(3).Range.Text = ar(i)(j, 2)
                        .Range.Cells(10).Range.Text = ar(i)(j, 3)
                        Set pic = .Range.Cells(4).Range.InlineShapes.AddPicture(ar(i)(j, 1))
                        With pic
                            .LockAspectRatio = True
                            .Width = 85
                        End With
                    End With
                Next j
                .Range(0).Select
                .Range(0).Copy
                .Close False
            End With
            With wdApp.Selection
                If i <> 1 Then .InsertBreak 7
                .Paste
            End With
        Next i
        .SaveAs2 strSaveName: .Close
    End With
        
    If Err <> 0 Then wdApp.Quit
    Set wdApp = Nothing
    Application.ScreenUpdating = True
    Beep
End Sub

Function cutArray1(ByVal ar, ByVal iCutNum&, Optional _
    ByVal iHeader& = 1, Optional ByVal iEndNum& = 0) As Variant()
   
    Dim br(), cr(), i&, j&, iPosRow&, r&, k&
   
    If iEndNum = 0 Or iEndNum > UBound(ar) Then iEndNum = UBound(ar)
   
    For i = iHeader + 1 To iEndNum Step iCutNum
        iPosRow = IIf((i + iCutNum - 1) > iEndNum, (iEndNum - iHeader) Mod iCutNum, iCutNum)
        ReDim cr(1 To iPosRow + iHeader, 1 To UBound(ar, 2))
        For j = iHeader + 1 To UBound(cr)
            For k = 1 To UBound(cr, 2)
                cr(j, k) = ar(i - 1 + j - iHeader, k)
            Next k
        Next j
        For j = 1 To iHeader
            For k = 1 To UBound(cr, 2)
                cr(j, k) = ar(j, k)
            Next k
        Next j
        r = r + 1
        ReDim Preserve br(1 To r)
        br(r) = cr
    Next i
   
    cutArray1 = br
End Function

gwjkkkkk

。。。。。。。。。。。。

futc004

gwjkkkkk 发表于 2024-7-30 21:18
。。。。。。。。。。。。

感谢你的回复，你发上来的文件，只有生成表，但是是这样子的。 上面的那位才是比较好。不过也感谢你的回复。

gwjkkkkk

futc004 发表于 2024-7-31 11:28
感谢你的回复，你发上来的文件，只有生成表，但是是这样子的。上面的那位才是比较好。不过也感谢你的回复 ...

试下调整上下页边距