打印多份学生评语

dongdonggege

各位老师好，又到年末，老师要写评语了。
现在的学生成长袋中都要求写所有学生的评语，手工写起来，可费事了。我就想既然学生学籍需要评语，把这些电子评语收集起来，放在word里统一打印，打印起来多么方便。

于是我把所有的学生评语都收集起来，每个评语和每个学生名单对应起来，但是选择打印，就不知道怎么处理了。
麻烦各位老师帮我想个方法，能10张纸打印出10个学生的评语。每个评语打印在一张纸上。（不要新建、新增纸，我们有专门的纸张，也就是word上插入图片的）。
也就是评语分两个部分，一 部分是固定格式，一部分是个性的，每人这部分不同。然后纸张是有特色的。
我把学校特色的纸张上传。
这是我的程序：

1. Sub 打印多份学生评语() 'Word
   
2.    
   
3.     Dim s As String
   
4.     Dim s1, s2, s3, s4, s5, s6, s7, s8, s9, s10
   
5.    
   
6.     ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 90, 120, 400#, 100).Select
   
7.     With Selection.Font
   
8.         .Size = 14
   
9.         .SizeBi = 14
   
10.         .Name = "华文琥珀"
    
11.     End With
    
12.    
    
13.     Selection.TypeText Text:="来安县实验小学南校区一(3)班"
    
14.     Selection.TypeParagraph
    
15.     Selection.TypeText Text:="(2023——2024学年度第一学期)"
    
16.     Selection.TypeParagraph
    
17.     Selection.TypeText Text:="辅导员陈××老师对你说："
    
18.     Selection.TypeParagraph
    
19.    
    
20.     s1 = "朱茉萱：你是个聪颖伶俐活泼可爱的小姑娘，方方面面都能严格要求自己、成绩优异。"
    
21.     s2 = "郑梓阳：你是个活泼可爱的小男孩，能尊敬师长、团结同学，积极劳动。今后学习上多动脑筋会更好。"
    
22.     s3 = "胡立安：聪颖伶俐活泼可爱的小姑娘，方方面面都能严格要求自己、成绩优异。"
    
23.     s4 = "阮天雪：一个聪明伶俐活泼可爱的孩子，优点众多，老师喜欢这样的你。"
    
24.     s5 = "张梓：能尊敬老师，和同学能友好相处，比较遵守纪律，学习上再多下功夫你会更棒。"
    
25.     s6 = "李想：热爱劳动、团结同学、尊敬老师、能自觉守纪。"
    
26.     s7 = "徐果：聪明可爱，尊师敬长，友爱同学，学习努力认真。"
    
27.     s8 = "赵子涵：你学习较认真,作业能按时完成，遵守纪律和同学相处方面有待提高。"
    
28.     s9 = "周语涵：你是个聪慧伶俐、活泼可爱的小姑娘，优点众多、学习优秀。"
    
29.     s10 = "陈希尧：你是一个可爱的小女孩，能尊敬老师、团结同学、遵守纪律、劳动积极。"
    
30.    
    
31.     Selection.ShapeRange.ZOrder msoBringToFront
    
32. End Sub

复制代码

感谢！

dongdonggege

我想打印出来的效果大概是这样的。

kyowjg

有个邮件合并发送功能不错，你研究一下合不合适你用。

dongdonggege

kyowjg 发表于 2023-12-31 12:34
有个邮件合并发送功能不错，你研究一下合不合适你用。

抱歉，不合适。

过客fppt

WPS中运行效果：




代码：




Sub a()
    Dim a(1 To 3) As String, i, j
    Dim s(1 To 10) As String
   
    a(1) = "来安县实验小学南校区一(3)班"
    a(2) = "(2023——2024学年度第一学期)"
    a(3) = "辅导员陈××老师对你说："

    s(1) = "朱茉萱：你是个聪颖伶俐活泼可爱的小姑娘，方方面面都能严格要求自己、成绩优异。"
    s(2) = "郑梓阳：你是个活泼可爱的小男孩，能尊敬师长、团结同学，积极劳动。今后学习上多动脑筋会更好。"
    s(3) = "胡立安：聪颖伶俐活泼可爱的小姑娘，方方面面都能严格要求自己、成绩优异。"
    s(4) = "阮天雪：一个聪明伶俐活泼可爱的孩子，优点众多，老师喜欢这样的你。"
    s(5) = "张梓：能尊敬老师，和同学能友好相处，比较遵守纪律，学习上再多下功夫你会更棒。"
    s(6) = "李想：热爱劳动、团结同学、尊敬老师、能自觉守纪。"
    s(7) = "徐果：聪明可爱，尊师敬长，友爱同学，学习努力认真。"
    s(8) = "赵子涵：你学习较认真,作业能按时完成，遵守纪律和同学相处方面有待提高。"
    s(9) = "周语涵：你是个聪慧伶俐、活泼可爱的小姑娘，优点众多、学习优秀。"
    s(10) = "陈希尧：你是一个可爱的小女孩，能尊敬老师、团结同学、遵守纪律、劳动积极。"
   
    For j = 1 To 10
        For i = 1 To 3
            Call 输入样式文字2(a(i), False, 20, "华文琥珀")
            Selection.TypeParagraph
        Next i
        Call 输入样式文字2(s(j), False, 12, "宋体")
        Selection.InsertBreak 7 '分页符
    Next j
End Sub
Function 输入样式文字2(文字, Optional ByVal 加粗 As Boolean = False, Optional ByVal 字体大小 As Double = 10.5, Optional ByVal 字体 As String = "楷体")
    Dim s%, j&
    Dim rng As Range
    s = Len(文字)
    Selection.TypeText text:=文字
    Selection.MoveLeft Unit:=wdCharacter, count:=s, Extend:=wdExtend ' 向前选中s位
   
    Set rng = Selection.Range
    j = rng.End
    Selection.SetRange Start:=j, End:=j
   
    With rng.Font
        .Name = 字体
        .ColorIndex = wdBlack
        .Bold = 加粗
        .Size = 字体大小
        .SizeBi = 10.5
    End With
    Set rng = Nothing
End Function

过客fppt

如果要放在同一页，把分页符删掉即可

蜀中草莽

Sub 打印多份学生评语() 'Word
    Dim s(1 To 10)
    s(1) = "朱茉萱：你是个聪颖伶俐活泼可爱的小姑娘，方方面面都能严格要求自己、成绩优异。"
    s(2) = "郑梓阳：你是个活泼可爱的小男孩，能尊敬师长、团结同学，积极劳动。今后学习上多动脑筋会更好。"
    s(3) = "胡立安：聪颖伶俐活泼可爱的小姑娘，方方面面都能严格要求自己、成绩优异。"
    s(4) = "阮天雪：一个聪明伶俐活泼可爱的孩子，优点众多，老师喜欢这样的你。"
    s(5) = "张梓：能尊敬老师，和同学能友好相处，比较遵守纪律，学习上再多下功夫你会更棒。"
    s(6) = "李想：热爱劳动、团结同学、尊敬老师、能自觉守纪。"
    s(7) = "徐果：聪明可爱，尊师敬长，友爱同学，学习努力认真。"
    s(8) = "赵子涵：你学习较认真,作业能按时完成，遵守纪律和同学相处方面有待提高。"
    s(9) = "周语涵：你是个聪慧伶俐、活泼可爱的小姑娘，优点众多、学习优秀。"
    s(10) = "陈希尧：你是一个可爱的小女孩，能尊敬老师、团结同学、遵守纪律、劳动积极。"
    For i = 1 To 3
        ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 90, 300, 400#, 200).Select
        With selection.Font
            .Size = 14
            .SizeBi = 14
            .Name = "华文琥珀"
        End With
        selection.TypeText text:="来安县实验小学南校区一(3)班" & Chr(13) & "(2023——2024学年度第一学期)" & Chr(13) _
            & "辅导员陈××老师对你说：" & Chr(13) & Chr(13)
        With selection.Font
            .Size = 12
            .SizeBi = 12
            .Name = "楷体"
        End With
        selection.TypeText text:=s(i)
        Application.PrintOut
        For j = 1 To ActiveDocument.Shapes.Count
            If ActiveDocument.Shapes(j).Type = msoTextBox Then
                ActiveDocument.Shapes(j).Delete
            End If
        Next
    Next
End Sub

batmanbbs

看了一下，应该使用邮件合并

dongdonggege

batmanbbs 发表于 2023-12-31 18:27
看了一下，应该使用邮件合并

分析的很透彻，提供方法多样，也很到位。感谢老师的帮助。

dongdonggege

过客fppt 发表于 2023-12-31 14:56
WPS中运行效果：

分析的很透彻，提供方法多样，感谢老师的帮助。