1、试卷制作（十四）
试卷头里面应该有写考生信息的地方。考生信息一般分为“学校”“班级”“考号”“姓名”等几个信息，可自行修改与添加。
'========================================================================================================================
'==========================================================================================================
2、
Sub 生成考生信息()
Set NewT = ActiveDocument.Shapes.AddTextbox(1, 53, 0, 33, 1000)
''''文本框1中输入的内容、大小及颜色：
With NewT.TextFrame.TextRange
.InsertAfter "学校____________ 班级________________ 考号_________________ 姓名_______________ "
.Font.Size = 12
.Font.Color
3、 = 1000
.HorizontalInVertical = wdHorizontalInVerticalFitInLine 'wdHorizontalInVerticalFitInLine为文字向左倒置
'.Font.Name = "@" & Ft '原来字体的@型字体
NewT.Select
Selection.ShapeRange.Line.ForeColor = wdColorWhite 'wdColorWhite为无色。
'''颜色
Selection.ShapeRange.Line.Weight = 1 '''边框加粗
4、'AddTextbox.Fill.Visible = msoFalse
End With
End Sub
'========================================================================================================================
'========================================================================================================================
仁寿县黑龙滩镇杨柳小学校 唐希胜
2015-10-29
1
浙ICP备2021020529号-1 | 浙B2-20240490 
