课程表.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.9
	.PageHeight = 595.3
	.OddAndEvenPagesHeaderFooter = .F.
	.DifferentFirstPageHeaderFooter = .F.
	.SuppressEndnotes = .F.
	.MirrorMargins = .F.
	.TwoPagesOnOne = .F.
Endwith

For i=1 to reccount()

	Go i
	oWord.Selection.TypeParagraph
	oWord.Selection.font.bold=.t.
	oWord.Selection.font.italic=.t.
	oWord.Selection.font.name='仿宋'
	oWord.Selection.font.size=23
	oWord.Selection.typetext("                              课  程  表")
	oWord.Selection.font.size=12
	oWord.Selection.TypeParagraph
	oWord.Selection.TypeParagraph

	oWord.Selection.font.bold=.f.
	oWord.Selection.font.italic=.f.
	oWord.Selection.font.name='宋体'
	oWord.Selection.font.size=10.5
	oWord.Selection.typetext("       "+班级+"                                                                                     "+单双周)
	oWord.Selection.TypeParagraph
	oWord.Selection.TypeParagraph

	oWord.ActiveDocument.Tables.Add(oWord.Selection.Range,5,6)
	oWord.ActiveDocument.tables(i).select
	oWord.ActiveDocument.Tables(i).Borders.OutsideLineWidth=18
	oWord.ActiveDocument.tables(i).rows.height=50


	oWord.ActiveDocument.Tables(i).Cell(1,2).Range.InsertAfter('星期一')
	oWord.ActiveDocument.Tables(i).Cell(1,2).Select
	oWord.Selection.Cells.VerticalAlignment = 1
	oWord.Selection.ParagraphFormat.Alignment = 1
	oWord.ActiveDocument.Tables(i).Cell(1,3).Range.InsertAfter('星期二')
	oWord.ActiveDocument.Tables(i).Cell(1,3).Select
	oWord.Selection.Cells.VerticalAlignment = 1
	oWord.Selection.ParagraphFormat.Alignment = 1
	oWord.ActiveDocument.Tables(i).Cell(1,4).Range.InsertAfter('星期三')
	oWord.ActiveDocument.Tables(i).Cell(1,4).Select
	oWord.Selection.Cells.VerticalAlignment = 1
	oWord.Selection.ParagraphFormat.Alignment = 1
	oWord.ActiveDocument.Tables(i).Cell(1,5).Range.InsertAfter('星期四')
	oWord.ActiveDocument.Tables(i).Cell(1,5).Select
	oWord.Selection.Cells.VerticalAlignment = 1
	oWord.Selection.ParagraphFormat.Alignment = 1
	oWord.ActiveDocument.Tables(i).Cell(1,6).Range.InsertAfter('星期五')
	oWord.ActiveDocument.Tables(i).Cell(1,6).Select
	oWord.Selection.Cells.VerticalAlignment = 1
	oWord.Selection.ParagraphFormat.Alignment = 1

	oWord.ActiveDocument.Tables(i).Cell(2,1).Range.InsertAfter('1、2')
	oWord.ActiveDocument.Tables(i).Cell(3,1).Range.InsertAfter('3、4')
	oWord.ActiveDocument.Tables(i).Cell(4,1).Range.InsertAfter('5、6')
	oWord.ActiveDocument.Tables(i).Cell(5,1).Range.InsertAfter('7、8')

	oWord.ActiveDocument.Shapes.AddLine(65, 185, 184, 235)
	oWord.ActiveDocument.Tables(i).Cell(1,1).Select
	oWord.ActiveDocument.Tables(i).Cell(1,1).Range.InsertAfter('             星期'+chr(13)+chr(13)+' 节次')

	oWord.ActiveDocument.Tables(i).Cell(2,2).Range.InsertAfter(课程11+chr(13)+教师11+chr(13)+教室11)
	oWord.ActiveDocument.Tables(i).Cell(2,3).Range.InsertAfter(课程12+chr(13)+教师12+chr(13)+教室12)
	oWord.ActiveDocument.Tables(i).Cell(2,4).Range.InsertAfter(课程13+chr(13)+教师13+chr(13)+教室13)
	oWord.ActiveDocument.Tables(i).Cell(2,5).Range.InsertAfter(课程14+chr(13)+教师14+chr(13)+教室14)
	oWord.ActiveDocument.Tables(i).Cell(2,6).Range.InsertAfter(课程15+chr(13)+教师15+chr(13)+教室15)
	oWord.ActiveDocument.Tables(i).Cell(3,2).Range.InsertAfter(课程21+chr(13)+教师21+chr(13)+教室21)
	oWord.ActiveDocument.Tables(i).Cell(3,3).Range.InsertAfter(课程22+chr(13)+教师22+chr(13)+教室22)
	oWord.ActiveDocument.Tables(i).Cell(3,4).Range.InsertAfter(课程23+chr(13)+教师23+chr(13)+教室23)
	oWord.ActiveDocument.Tables(i).Cell(3,5).Range.InsertAfter(课程24+chr(13)+教师24+chr(13)+教室24)
	oWord.ActiveDocument.Tables(i).Cell(3,6).Range.InsertAfter(课程25+chr(13)+教师25+chr(13)+教室25)
	oWord.ActiveDocument.Tables(i).Cell(4,2).Range.InsertAfter(课程31+chr(13)+教师31+chr(13)+教室31)
	oWord.ActiveDocument.Tables(i).Cell(4,3).Range.InsertAfter(课程32+chr(13)+教师32+chr(13)+教室32)
	oWord.ActiveDocument.Tables(i).Cell(4,4).Range.InsertAfter(课程33+chr(13)+教师33+chr(13)+教室33)
	oWord.ActiveDocument.Tables(i).Cell(4,5).Range.InsertAfter(课程34+chr(13)+教师34+chr(13)+教室34)
	oWord.ActiveDocument.Tables(i).Cell(4,6).Range.InsertAfter(课程35+chr(13)+教师35+chr(13)+教室35)
	oWord.ActiveDocument.Tables(i).Cell(5,2).Range.InsertAfter(课程41+chr(13)+教师41+chr(13)+教室41)
	oWord.ActiveDocument.Tables(i).Cell(5,3).Range.InsertAfter(课程42+chr(13)+教师42+chr(13)+教室42)
	oWord.ActiveDocument.Tables(i).Cell(5,4).Range.InsertAfter(课程43+chr(13)+教师43+chr(13)+教室43)
	oWord.ActiveDocument.Tables(i).Cell(5,5).Range.InsertAfter(课程44+chr(13)+教师44+chr(13)+教室44)
	oWord.ActiveDocument.Tables(i).Cell(5,6).Range.InsertAfter(课程45+chr(13)+教师45+chr(13)+教室45)

	oWord.ActiveDocument.Tables(i).Rows(2).Select
	oWord.Selection.Cells.VerticalAlignment = 1
	oWord.Selection.ParagraphFormat.Alignment = 1
	oWord.ActiveDocument.Tables(i).Rows(3).Select
	oWord.Selection.Cells.VerticalAlignment = 1
	oWord.Selection.ParagraphFormat.Alignment = 1
	oWord.ActiveDocument.Tables(i).Rows(4).Select
	oWord.Selection.Cells.VerticalAlignment = 1
	oWord.Selection.ParagraphFormat.Alignment = 1
	oWord.ActiveDocument.Tables(i).Rows(5).Select
	oWord.Selection.Cells.VerticalAlignment = 1
	oWord.Selection.ParagraphFormat.Alignment = 1
	oWord.Selection.MoveRight
	oWord.Selection.TypeParagraph
	oWord.Selection.typetext('                                                                                                              '+allt(str(year(date())))+'年'+allt(str(month(date())))+'月'+allt(str(day(date())))+'日')

	oWord.ActiveWindow.ActivePane.HorizontalPercentScrolled = 12
	oWord.ActiveWindow.ActivePane.HorizontalPercentScrolled = 3
	oWord.Selection.InsertBreak

Endfor

oWord.Selection.TypeBackspace

oWord.quit