考试证.txt

有关学生档案

Use "D:\测试\数据2002-1-31\学生管理!学生档案"
oWord = CREATEOBJECT("Word.Application")
oWord.visible=.t.
oWord.documents.add
oWord.ActiveWindow.View.Type=3
With oWord.ActiveDocument.PageSetup
	.LineNumbering.Active = .F.
	.Orientation = 1
	.TopMargin = 90
	.BottomMargin = 90
	.LeftMargin = 72
	.RightMargin = 72
	.Gutter = 0
	.HeaderDistance = 42.55
	.FooterDistance = 49.6
	.PageWidth = 841.95
	.PageHeight = 595.35
	.OddAndEvenPagesHeaderFooter = .F.
	.DifferentFirstPageHeaderFooter = .F.
	.SuppressEndnotes = .F.
	.MirrorMargins = .F.
	.TwoPagesOnOne = .F.
Endwith

oWord.ActiveDocument.Tables.Add(oWord.Selection.Range,reccount(),2)
oWord.ActiveDocument.Tables(1).Select
oWord.Selection.Tables(1).Shading.BackgroundPatternColor = 15269887
oWord.ActiveDocument.Tables(1).Columns(1).Select
oWord.Selection.Columns.PreferredWidth = 244
oWord.ActiveDocument.Tables(1).Columns(2).Select
oWord.Selection.Columns.PreferredWidth = 244

For i=1 to reccount()
	oWord.ActiveDocument.Tables(1).Rows(i).Select
	oWord.Selection.Rows.HeightRule = 2
	oWord.Selection.Rows.Height = 153

	Go i
	oWord.ActiveDocument.Tables(1).Cell(i,2).Select
	oWord.Selection.MoveLeft
	oWord.Selection.Font.Bold=.T.
	oWord.Selection.Font.Name="宋体"
	oWord.Selection.Font.Size=13
	oWord.Selection.typetext("           注意事项")
	oWord.Selection.TypeParagraph
	oWord.Selection.Font.Bold=.F.
	oWord.Selection.Font.Size=9
	oWord.Selection.typetext("1.本证为考试专用证件，注意保存，不得转借。")
	oWord.Selection.TypeParagraph
	oWord.Selection.typetext("2.学生参加考试必须携带此证，无证不准参加考试。")
	oWord.Selection.TypeParagraph
	oWord.Selection.typetext("3.学生应提前进入考场，并保持肃静。考试开始后，")
	oWord.Selection.TypeParagraph
	oWord.Selection.typetext("  迟到十五分钟以上者不准进入考场，该门课按旷")
	oWord.Selection.TypeParagraph
	oWord.Selection.typetext("  考处理。")
	oWord.Selection.TypeParagraph
	oWord.Selection.typetext("4.学生要在规定时间内完成考卷，严禁作弊。")
	oWord.ActiveDocument.Tables(1).Cell(i,2).Select
	oWord.Selection.Cells.VerticalAlignment = 1
	With oWord.Selection.Cells(1)
		.TopPadding = 0
		.BottomPadding = 3
		.LeftPadding = 20
		.RightPadding = 15
		.WordWrap = .T.
		.FitText = .F.
	Endwith

	oWord.ActiveDocument.Tables(1).Cell(i,1).Select
	oWord.Selection.Cells.VerticalAlignment = 1
	With oWord.Selection.Cells(1)
		.TopPadding = 3
		.BottomPadding = 5
		.LeftPadding = 15
		.RightPadding = 5
		.WordWrap = .T.
		.FitText = .F.
	Endwith
	oWord.Selection.MoveLeft
	oWord.Selection.Font.Bold=.T.
	oWord.Selection.Font.Name="宋体"
	oWord.Selection.Font.Size=13
	oWord.Selection.typetext("          考  试  证")
	oWord.Selection.TypeParagraph
	oWord.Selection.Font.Bold=.F.
	oWord.Selection.Font.Size=10.5

	oWord.ActiveDocument.Tables.Add(oWord.Selection.Range,1,1)
	oWord.Selection.MoveRight(2,1,2)
	oWord.Selection.Columns.PreferredWidth = 74
	oWord.Selection.Rows.HeightRule = 2
	oWord.Selection.Rows.Height = 94
	oWord.Selection.Cells.VerticalAlignment = 1
	oWord.Selection.ParagraphFormat.Alignment = 1
	With oWord.Selection.Cells(1)
		.TopPadding = 0
		.BottomPadding = 0
		.LeftPadding = 0
		.RightPadding = 0
		.WordWrap = .T.
		.FitText = .F.
	Endwith
	oWord.Selection.MoveLeft
    Local pho
	pho=allt(照片路径)
	If !empty(pho) and file(pho)
		oWord.Selection.InlineShapes.Addpicture(pho,.F.,.T.)
	Endif
	
	oWord.Selection.MoveRight
    oWord.Selection.InsertColumnsRight
    oWord.Selection.InsertColumnsRight
    With oWord.Selection.Cells
        .Borders(1).LineStyle = 0
        .Borders(2).LineStyle = 0
        .Borders(3).LineStyle = 0
        .Borders(4).LineStyle = 0
        .Borders(5).LineStyle = 0
        .Borders(6).LineStyle = 0
        .Borders.Shadow = .F.
    EndWith
    oWord.Selection.Cells.VerticalAlignment = 1
    oWord.Selection.ParagraphFormat.Alignment = 0
	oWord.Selection.Columns.PreferredWidth = 150
    oWord.Selection.MoveLeft
    oWord.Selection.MoveLeft
    oWord.Selection.MoveRight(2,1,2)
    oWord.Selection.Columns.Delete
    
    oWord.Selection.typetext(" 姓名 ")
    oWord.Selection.Font.Name="楷体_GB2312"
    oWord.Selection.Font.UnderLine=.T.
    oWord.Selection.typetext(姓名+"          ")
    oWord.Selection.TypeParagraph
    oWord.Selection.TypeParagraph
    oWord.Selection.Font.Name="宋体"
    oWord.Selection.Font.UnderLine=.F.
    oWord.Selection.typetext(" 班级 ")
    oWord.Selection.Font.Name="楷体_GB2312"
    oWord.Selection.Font.UnderLine=.T.    
    oWord.Selection.typetext(专业、班级)
    oWord.Selection.TypeParagraph
    oWord.Selection.TypeParagraph
    oWord.Selection.Font.Name="宋体"
    oWord.Selection.Font.UnderLine=.F.    
    oWord.Selection.typetext(" 学号 ")
    oWord.Selection.Font.Name="楷体_GB2312"
    oWord.Selection.Font.UnderLine=.T.
    oWord.Selection.typetext(学号+"              ")

Endfor

oWord.quit