任课教师一览表.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.
	.TopMargin = 72
	.BottomMargin = 72
	.LeftMargin = 90
	.RightMargin = 90
	.Gutter = 0
	.HeaderDistance = 42.55
	.FooterDistance = 49.6
	.PageWidth = 595.35
	.PageHeight = 841.95
	.OddAndEvenPagesHeaderFooter = .F.
	.DifferentFirstPageHeaderFooter = .F.
	.SuppressEndnotes = .F.
	.MirrorMargins = .F.
	.TwoPagesOnOne = .F.
Endwith

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.ActiveDocument.Tables.Add(oWord.Selection.Range,reccount()+1,6)
oWord.selection.movedown(4,28)
oWord.ActiveDocument.tables(1).select
oWord.selection.Borders.OutsideLineWidth=18

oWord.ActiveDocument.Tables(1).Cell(1,1).Range.InsertAfter('姓名')
oWord.ActiveDocument.Tables(1).Cell(1,2).Range.InsertAfter('性别')
oWord.ActiveDocument.Tables(1).Cell(1,3).Range.InsertAfter('出生日期')
oWord.ActiveDocument.Tables(1).Cell(1,4).Range.InsertAfter('何年参加工作')
oWord.ActiveDocument.Tables(1).Cell(1,5).Range.InsertAfter('职称')
oWord.ActiveDocument.Tables(1).Cell(1,6).Range.InsertAfter('所教课程')

For i=1 to reccount()
	Go i
	oWord.ActiveDocument.Tables(1).Cell(i+1,1).Range.InsertAfter(姓名)
	oWord.ActiveDocument.Tables(1).Cell(i+1,2).Range.InsertAfter(性别)
	oWord.ActiveDocument.Tables(1).Cell(i+1,3).Range.InsertAfter(iif(empty(出生日期),"",出生日期))
	oWord.ActiveDocument.Tables(1).Cell(i+1,4).Range.InsertAfter(iif(empty(何年参加工作),"",allt(str(何年参加工作))+"年"))
	oWord.ActiveDocument.Tables(1).Cell(i+1,5).Range.InsertAfter(职称)
	oWord.ActiveDocument.Tables(1).Cell(i+1,6).Range.InsertAfter(所教课程)
Endfor

mypagenum=oWord.Selection.Sections(1).Headers(1).PageNumbers
mypagenum.NumberStyle=0
mypagenum.HeadingLevelForChapter=0
mypagenum.IncludeChapterNumber=.f.
mypagenum.ChapterPageSeparator=0
mypagenum.RestartNumberingAtSection=.f.
mypagenum.StartingNumber=0
oWord.Selection.Sections(1).Footers(1).PageNumbers.Add (1,.t.)
Use in 任课教师一览表

oWord.ActiveDocument.Tables(1).Columns(1).Select
oWord.Selection.Columns.PreferredWidth = 55
oWord.ActiveDocument.Tables(1).Columns(2).Select
oWord.Selection.Columns.PreferredWidth = 35
oWord.ActiveDocument.Tables(1).Columns(3).Select
oWord.Selection.Columns.PreferredWidth = 65
oWord.ActiveDocument.Tables(1).Columns(4).Select
oWord.Selection.Columns.PreferredWidth = 75
oWord.ActiveDocument.Tables(1).Columns(5).Select
oWord.Selection.Columns.PreferredWidth = 45
oWord.ActiveDocument.Tables(1).Columns(6).Select
oWord.Selection.Columns.PreferredWidth = 135

oWord.Selection.MoveLeft
oWord.Selection.Tables(1).Rows.Alignment = 1

oWord.quit