|
《报名表》《证件照》 |
《准考证》 |
|
SetPicSize Sub SetPicSize() '设置图片大小Dim n '图片个数 On Error Resume Next '忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型 图片 ActiveDocument.InlineShapes(n).Height = 4.8 * 28.35 '设置图片高度为 4.8cm （1cm等于28.35px） ActiveDocument.InlineShapes(n).Width = 3.5 * 28.35 '设置图片宽度 3.5cm Next n End Sub |
SetPicSize Sub SetPicSize() '设置图片大小Dim n '图片个数 On Error Resume Next '忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型 图片 ActiveDocument.InlineShapes(n).Height = 9.6 * 28.35 '设置图片高度为 4.8cm （1cm等于28.35px） ActiveDocument.InlineShapes(n).Width = 7 * 28.35 '设置图片宽度 3.5cm Next n End Sub |
在excel里用公式把姓名和数字分开 |
|
|
=LEFT(A1,LENB(A1)-LEN(A1)) =RIGHT(A1,2*LEN(A1)-LENB(A1)) |
|
|
=LEFT(F2,LEN(F2)-3) |
|
