学生基本情况表.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 = 1190.7
	.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.name='仿宋_GB2312'
oWord.Selection.font.size=23
oWord.Selection.typetext("                                   学生基本情况表")
oWord.Selection.TypeParagraph
oWord.Selection.font.bold=.F.
oWord.Selection.font.name='宋体'
oWord.Selection.font.size=9
oWord.Selection.TypeParagraph

oWord.ActiveDocument.Tables.Add(oWord.Selection.Range,reccount()+1,15)
oWord.ActiveDocument.Tables(1).Columns(1).Select
oWord.Selection.Columns.PreferredWidth = 45
oWord.ActiveDocument.Tables(1).Columns(2).Select
oWord.Selection.Columns.PreferredWidth = 54
oWord.ActiveDocument.Tables(1).Columns(3).Select
oWord.Selection.Columns.PreferredWidth = 35
oWord.ActiveDocument.Tables(1).Columns(4).Select
oWord.Selection.Columns.PreferredWidth = 60
oWord.ActiveDocument.Tables(1).Columns(5).Select
oWord.Selection.Columns.PreferredWidth = 65
oWord.ActiveDocument.Tables(1).Columns(6).Select
oWord.Selection.Columns.PreferredWidth = 85
oWord.ActiveDocument.Tables(1).Columns(7).Select
oWord.Selection.Columns.PreferredWidth = 55
oWord.ActiveDocument.Tables(1).Columns(8).Select
oWord.Selection.Columns.PreferredWidth = 55
oWord.ActiveDocument.Tables(1).Columns(9).Select
oWord.Selection.Columns.PreferredWidth = 75
oWord.ActiveDocument.Tables(1).Columns(10).Select
oWord.Selection.Columns.PreferredWidth = 80
oWord.ActiveDocument.Tables(1).Columns(11).Select
oWord.Selection.Columns.PreferredWidth = 55
oWord.ActiveDocument.Tables(1).Columns(12).Select
oWord.Selection.Columns.PreferredWidth = 70.5
oWord.ActiveDocument.Tables(1).Columns(13).Select
oWord.Selection.Columns.PreferredWidth = 65
oWord.ActiveDocument.Tables(1).Columns(14).Select
oWord.Selection.Columns.PreferredWidth = 70.5
oWord.ActiveDocument.Tables(1).Columns(15).Select
oWord.Selection.Columns.PreferredWidth = 180

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("籍贯")
oWord.ActiveDocument.Tables(1).Cell(1,7).Range.InsertAfter("政治面貌")
oWord.ActiveDocument.Tables(1).Cell(1,8).Range.InsertAfter("何时入学")
oWord.ActiveDocument.Tables(1).Cell(1,9).Range.InsertAfter("所在院系")
oWord.ActiveDocument.Tables(1).Cell(1,10).Range.InsertAfter("专业、班级")
oWord.ActiveDocument.Tables(1).Cell(1,11).Range.InsertAfter("所在寝室")
oWord.ActiveDocument.Tables(1).Cell(1,12).Range.InsertAfter("寝室电话")
oWord.ActiveDocument.Tables(1).Cell(1,13).Range.InsertAfter("手机")
oWord.ActiveDocument.Tables(1).Cell(1,14).Range.InsertAfter("家庭电话")
oWord.ActiveDocument.Tables(1).Cell(1,15).Range.InsertAfter("家庭地址")

For InsertAfter=1 to reccount()
	Go InsertAfter
	oWord.ActiveDocument.Tables(1).Cell(InsertAfter+1,1).Range.InsertAfter(学号)
	oWord.ActiveDocument.Tables(1).Cell(InsertAfter+1,2).Range.InsertAfter(姓名)
	oWord.ActiveDocument.Tables(1).Cell(InsertAfter+1,3).Range.InsertAfter(性别)
	oWord.ActiveDocument.Tables(1).Cell(InsertAfter+1,4).Range.InsertAfter(iif(empty(出生日期),"",出生日期))
	oWord.ActiveDocument.Tables(1).Cell(InsertAfter+1,5).Range.InsertAfter(民族)
	oWord.ActiveDocument.Tables(1).Cell(InsertAfter+1,6).Range.InsertAfter(籍贯)
	oWord.ActiveDocument.Tables(1).Cell(InsertAfter+1,7).Range.InsertAfter(政治面貌)
	oWord.ActiveDocument.Tables(1).Cell(InsertAfter+1,8).Range.InsertAfter(iif(!empty(何时入学),allt(str(何时入学))+"年",""))
	oWord.ActiveDocument.Tables(1).Cell(InsertAfter+1,9).Range.InsertAfter(所在院系)
	oWord.ActiveDocument.Tables(1).Cell(InsertAfter+1,10).Range.InsertAfter(专业、班级)
	oWord.ActiveDocument.Tables(1).Cell(InsertAfter+1,11).Range.InsertAfter(所在寝室)
	oWord.ActiveDocument.Tables(1).Cell(InsertAfter+1,12).Range.InsertAfter(寝室电话)
	oWord.ActiveDocument.Tables(1).Cell(InsertAfter+1,13).Range.InsertAfter(手机)
	oWord.ActiveDocument.Tables(1).Cell(InsertAfter+1,14).Range.InsertAfter(家庭电话)
	oWord.ActiveDocument.Tables(1).Cell(InsertAfter+1,15).Range.InsertAfter(家庭地址)
Endfor

Use in 学生档案

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.)

oWord.quit