⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 学生档案.txt

📁 有关学生档案
💻 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.name='仿宋_GB2312'
oWord.Selection.font.size=23
oWord.Selection.typetext("             学 生 档 案")
oWord.Selection.TypeParagraph
oWord.Selection.font.bold=.F.
oWord.Selection.font.size=10.5
oWord.Selection.typetext("NO."+学号)

oWord.ActiveDocument.Tables.Add(oWord.Selection.Range,8,1)
oWord.ActiveDocument.Tables(1).Cell(3,1).Range.InsertAfter("父 母 情 况")
oWord.ActiveDocument.Tables(1).Cell(5,1).Range.InsertAfter("个 人 介 绍")
oWord.ActiveDocument.Tables(1).Cell(3,1).Select
oWord.Selection.Cells.width=426
oWord.Selection.Cells.VerticalAlignment = 1
oWord.Selection.ParagraphFormat.Alignment = 1
oWord.Selection.font.bold=.T.
oWord.Selection.font.size=14
oWord.ActiveDocument.Tables(1).Cell(5,1).Select
oWord.Selection.Cells.width=426
oWord.Selection.Cells.VerticalAlignment = 1
oWord.Selection.ParagraphFormat.Alignment = 1
oWord.Selection.font.bold=.T.
oWord.Selection.font.size=14

oWord.ActiveDocument.Tables(1).Cell(1,1).Select
oWord.Selection.Cells.Split(1,2)
oWord.ActiveDocument.Tables(1).Cell(2,1).Select
oWord.Selection.Cells.Split(1,2)
oWord.ActiveDocument.Tables(1).Cell(6,1).Select
oWord.Selection.Cells.Split(1,2)
oWord.ActiveDocument.Tables(1).Cell(7,1).Select
oWord.Selection.Cells.Split(1,2)
oWord.ActiveDocument.Tables(1).Cell(8,1).Select
oWord.Selection.Cells.Split(1,2)
oWord.ActiveDocument.Tables(1).Cell(4,1).Select
oWord.Selection.Cells.Split(4,5)
oWord.ActiveDocument.Tables(1).Cell(1,1).Select
oWord.Selection.Cells.Split(5,4)
oWord.ActiveDocument.Tables(1).Cell(1,5).Select
oWord.Selection.Cells.width=74
oWord.ActiveDocument.Tables(1).Cell(1,4).Select
oWord.Selection.Cells.Split(1,2)
oWord.ActiveDocument.Tables(1).Cell(2,4).Select
oWord.Selection.Cells.Split(1,2)
oWord.ActiveDocument.Tables(1).Cell(1,2).Select
oWord.Selection.Cells.Split(1,2)
oWord.ActiveDocument.Tables(1).Cell(2,2).Select
oWord.Selection.Cells.Split(1,2)

oWord.ActiveDocument.Tables(1).Cell(1,1).Select
oWord.Selection.Cells.width=68
oWord.ActiveDocument.Tables(1).Cell(2,1).Select
oWord.Selection.Cells.width=68
oWord.ActiveDocument.Tables(1).Cell(3,1).Select
oWord.Selection.Cells.width=68
oWord.ActiveDocument.Tables(1).Cell(4,1).Select
oWord.Selection.Cells.width=68
oWord.ActiveDocument.Tables(1).Cell(5,1).Select
oWord.Selection.Cells.width=68
oWord.ActiveDocument.Tables(1).Cell(6,1).Select
oWord.Selection.Cells.width=68
oWord.ActiveDocument.Tables(1).Cell(8,1).Select
oWord.Selection.Cells.width=68
oWord.ActiveDocument.Tables(1).Cell(9,1).Select
oWord.Selection.Cells.width=68
oWord.ActiveDocument.Tables(1).Cell(10,1).Select
oWord.Selection.Cells.width=68
oWord.ActiveDocument.Tables(1).Cell(11,1).Select
oWord.Selection.Cells.width=68
oWord.ActiveDocument.Tables(1).Cell(13,1).Select
oWord.Selection.Cells.width=68
oWord.ActiveDocument.Tables(1).Cell(14,1).Select
oWord.Selection.Cells.width=68
oWord.ActiveDocument.Tables(1).Cell(15,1).Select
oWord.Selection.Cells.width=68
oWord.ActiveDocument.Tables(1).Cell(1,2).Select
oWord.Selection.Cells.width=61
oWord.ActiveDocument.Tables(1).Cell(1,3).Select
oWord.Selection.Cells.width=45
oWord.ActiveDocument.Tables(1).Cell(2,2).Select
oWord.Selection.Cells.width=61
oWord.ActiveDocument.Tables(1).Cell(2,3).Select
oWord.Selection.Cells.width=45
oWord.ActiveDocument.Tables(1).Cell(1,4).Select
oWord.Selection.Cells.width=63
oWord.ActiveDocument.Tables(1).Cell(2,4).Select
oWord.Selection.Cells.width=63
oWord.ActiveDocument.Tables(1).Cell(3,3).Select
oWord.Selection.Cells.width=63
oWord.ActiveDocument.Tables(1).Cell(4,3).Select
oWord.Selection.Cells.width=63
oWord.ActiveDocument.Tables(1).Cell(5,3).Select
oWord.Selection.Cells.width=63
oWord.ActiveDocument.Tables(1).Cell(8,3).Select
oWord.Selection.Cells.width=63
oWord.ActiveDocument.Tables(1).Cell(9,3).Select
oWord.Selection.Cells.width=63
oWord.ActiveDocument.Tables(1).Cell(10,3).Select
oWord.Selection.Cells.width=63
oWord.ActiveDocument.Tables(1).Cell(11,3).Select
oWord.Selection.Cells.width=63
oWord.ActiveDocument.Tables(1).Cell(3,2).Select
oWord.Selection.Cells.width=106
oWord.ActiveDocument.Tables(1).Cell(4,2).Select
oWord.Selection.Cells.width=106
oWord.ActiveDocument.Tables(1).Cell(5,2).Select
oWord.Selection.Cells.width=106
oWord.ActiveDocument.Tables(1).Cell(3,4).Select
oWord.Selection.Cells.width=114
oWord.ActiveDocument.Tables(1).Cell(4,4).Select
oWord.Selection.Cells.width=114
oWord.ActiveDocument.Tables(1).Cell(5,4).Select
oWord.Selection.Cells.width=114
oWord.ActiveDocument.Tables(1).Cell(1,5).Select
oWord.Selection.Cells.width=50
oWord.ActiveDocument.Tables(1).Cell(1,6).Select
oWord.Selection.Cells.width=64
oWord.ActiveDocument.Tables(1).Cell(2,5).Select
oWord.Selection.Cells.width=50
oWord.ActiveDocument.Tables(1).Cell(2,6).Select
oWord.Selection.Cells.width=64
oWord.ActiveDocument.Tables(1).Cell(8,2).Select
oWord.Selection.Cells.width=106
oWord.ActiveDocument.Tables(1).Cell(9,2).Select
oWord.Selection.Cells.width=106
oWord.ActiveDocument.Tables(1).Cell(10,2).Select
oWord.Selection.Cells.width=106
oWord.ActiveDocument.Tables(1).Cell(11,2).Select
oWord.Selection.Cells.width=106
oWord.ActiveDocument.Tables(1).Cell(8,4).Select
oWord.Selection.Cells.width=80
oWord.ActiveDocument.Tables(1).Cell(9,4).Select
oWord.Selection.Cells.width=80
oWord.ActiveDocument.Tables(1).Cell(10,4).Select
oWord.Selection.Cells.width=80
oWord.ActiveDocument.Tables(1).Cell(11,4).Select
oWord.Selection.Cells.width=80
oWord.ActiveDocument.Tables(1).Cell(8,5).Select
oWord.Selection.Cells.width=109
oWord.ActiveDocument.Tables(1).Cell(9,5).Select
oWord.Selection.Cells.width=109
oWord.ActiveDocument.Tables(1).Cell(10,5).Select
oWord.Selection.Cells.width=109
oWord.ActiveDocument.Tables(1).Cell(11,5).Select
oWord.Selection.Cells.width=109
oWord.ActiveDocument.Tables(1).Cell(6,2).Select
oWord.Selection.Cells.width=358
oWord.ActiveDocument.Tables(1).Cell(13,2).Select
oWord.Selection.Cells.width=358
oWord.ActiveDocument.Tables(1).Cell(14,2).Select
oWord.Selection.Cells.width=358
oWord.ActiveDocument.Tables(1).Cell(15,2).Select
oWord.Selection.Cells.width=358
oWord.ActiveDocument.Tables(1).Cell(3,4).Select
oWord.Selection.Cells.width=115
oWord.ActiveDocument.Tables(1).Cell(4,4).Select
oWord.Selection.Cells.width=115
oWord.ActiveDocument.Tables(1).Cell(5,4).Select
oWord.Selection.Cells.width=115
oWord.ActiveDocument.Tables(1).Cell(1,6).Select
oWord.Selection.Cells.width=65
oWord.ActiveDocument.Tables(1).Cell(2,6).Select
oWord.Selection.Cells.width=65

oWord.ActiveDocument.Tables(1).Cell(1,7).Select
oWord.Selection.MoveDown(5,4,2)
oWord.Selection.Cells.Merge

oWord.ActiveDocument.Tables(1).Cell(1,1).Range.InsertAfter("姓名")
oWord.ActiveDocument.Tables(1).Cell(1,3).Range.InsertAfter("性别")
oWord.ActiveDocument.Tables(1).Cell(1,5).Range.InsertAfter("出生日期")
oWord.ActiveDocument.Tables(1).Cell(1,5).Select
With oWord.Selection.Cells(1)
	.TopPadding = 0
	.BottomPadding = 0
	.LeftPadding = 3
	.RightPadding = 1
	.WordWrap = .T.
	.FitText = .F.
Endwith
oWord.ActiveDocument.Tables(1).Cell(2,1).Range.InsertAfter("民族")
oWord.ActiveDocument.Tables(1).Cell(2,3).Range.InsertAfter("籍贯")
oWord.ActiveDocument.Tables(1).Cell(2,5).Range.InsertAfter("政治面貌")
oWord.ActiveDocument.Tables(1).Cell(2,5).Select
With oWord.Selection.Cells(1)
	.TopPadding = 0
	.BottomPadding = 0
	.LeftPadding = 3
	.RightPadding = 1
	.WordWrap = .T.
	.FitText = .F.
Endwith
oWord.ActiveDocument.Tables(1).Cell(3,1).Range.InsertAfter("所在院系")
oWord.ActiveDocument.Tables(1).Cell(3,3).Range.InsertAfter("专业、班级")
oWord.ActiveDocument.Tables(1).Cell(4,1).Range.InsertAfter("所在寝室")
oWord.ActiveDocument.Tables(1).Cell(4,3).Range.InsertAfter("寝室电话")
oWord.ActiveDocument.Tables(1).Cell(5,1).Range.InsertAfter("手机")
oWord.ActiveDocument.Tables(1).Cell(5,3).Range.InsertAfter("家庭电话")
oWord.ActiveDocument.Tables(1).Cell(6,1).Range.InsertAfter("家庭地址")
oWord.ActiveDocument.Tables(1).Cell(8,1).Range.InsertAfter("姓名")
oWord.ActiveDocument.Tables(1).Cell(8,2).Range.InsertAfter("单位")
oWord.ActiveDocument.Tables(1).Cell(8,3).Range.InsertAfter("职务")
oWord.ActiveDocument.Tables(1).Cell(8,4).Range.InsertAfter("政治面貌")
oWord.ActiveDocument.Tables(1).Cell(8,5).Range.InsertAfter("联系电话")
oWord.ActiveDocument.Tables(1).Cell(13,1).Range.InsertAfter("个人特长")
oWord.ActiveDocument.Tables(1).Cell(13,1).Select
oWord.Selection.Orientation=.T.
oWord.Selection.Cells.VerticalAlignment = 1
oWord.Selection.ParagraphFormat.Alignment = 1
oWord.Selection.Cells.Height=128
oWord.ActiveDocument.Tables(1).Cell(14,1).Range.InsertAfter("参加活动及所获奖项")
oWord.ActiveDocument.Tables(1).Cell(14,1).Select
oWord.Selection.Orientation=.T.
oWord.Selection.Cells.VerticalAlignment = 1
oWord.Selection.ParagraphFormat.Alignment = 1
oWord.Selection.Cells.Height=128
oWord.ActiveDocument.Tables(1).Cell(15,1).Range.InsertAfter("自我介绍")
oWord.ActiveDocument.Tables(1).Cell(15,1).Select
oWord.Selection.Orientation=.T.
oWord.Selection.Cells.VerticalAlignment = 1
oWord.Selection.ParagraphFormat.Alignment = 1
oWord.Selection.Cells.Height=128
oWord.ActiveDocument.Tables(1).Cell(1,2).Range.InsertAfter(姓名)
oWord.ActiveDocument.Tables(1).Cell(1,4).Range.InsertAfter(性别)
oWord.ActiveDocument.Tables(1).Cell(1,6).Range.InsertAfter(iif(empty(出生日期),"",出生日期))
oWord.ActiveDocument.Tables(1).Cell(2,2).Range.InsertAfter(民族)
oWord.ActiveDocument.Tables(1).Cell(2,4).Range.InsertAfter(籍贯)
oWord.ActiveDocument.Tables(1).Cell(2,4).Select
With oWord.Selection.Cells(1)
        .TopPadding = 0
        .BottomPadding = 0
        .LeftPadding = 0
        .RightPadding = 0
        .WordWrap = .T.
        .FitText = .F.
EndWith
oWord.ActiveDocument.Tables(1).Cell(2,6).Range.InsertAfter(政治面貌)
oWord.ActiveDocument.Tables(1).Cell(3,2).Range.InsertAfter(所在院系)
oWord.ActiveDocument.Tables(1).Cell(3,4).Range.InsertAfter(专业、班级)
oWord.ActiveDocument.Tables(1).Cell(4,2).Range.InsertAfter(所在寝室)
oWord.ActiveDocument.Tables(1).Cell(4,4).Range.InsertAfter(寝室电话)
oWord.ActiveDocument.Tables(1).Cell(5,2).Range.InsertAfter(手机)
oWord.ActiveDocument.Tables(1).Cell(5,4).Range.InsertAfter(家庭电话)
oWord.ActiveDocument.Tables(1).Cell(6,2).Range.InsertAfter(家庭地址)
oWord.ActiveDocument.Tables(1).Cell(9,1).Range.InsertAfter(父亲姓名)
oWord.ActiveDocument.Tables(1).Cell(9,2).Range.InsertAfter(父亲工作单位)
oWord.ActiveDocument.Tables(1).Cell(9,3).Range.InsertAfter(父亲职务)
oWord.ActiveDocument.Tables(1).Cell(9,4).Range.InsertAfter(父亲政治面貌)
oWord.ActiveDocument.Tables(1).Cell(9,5).Range.InsertAfter(父亲联系电话)
oWord.ActiveDocument.Tables(1).Cell(10,1).Range.InsertAfter(母亲姓名)
oWord.ActiveDocument.Tables(1).Cell(10,2).Range.InsertAfter(母亲工作单位)
oWord.ActiveDocument.Tables(1).Cell(10,3).Range.InsertAfter(母亲职务)
oWord.ActiveDocument.Tables(1).Cell(10,4).Range.InsertAfter(母亲政治面貌)
oWord.ActiveDocument.Tables(1).Cell(10,5).Range.InsertAfter(母亲联系电话)
oWord.ActiveDocument.Tables(1).Cell(13,2).Range.InsertAfter(个人特长)
oWord.ActiveDocument.Tables(1).Cell(14,2).Range.InsertAfter(参加活动及所获奖项)
oWord.ActiveDocument.Tables(1).Cell(15,2).Range.InsertAfter(自我介绍)

Local pho
pho=allt(照片路径)
If !empty(pho) and file(pho)=.T.
	oWord.ActiveDocument.Tables(1).Cell(1,7).Select
	With oWord.Selection.Cells(1)
		.TopPadding = 0
		.BottomPadding = 0
		.LeftPadding = 0
		.RightPadding = 0
		.WordWrap = .T.
		.FitText = .F.
	Endwith
	oWord.Selection.InlineShapes.AddPicture(allt(照片路径),.F.,.T.)
	oWord.Selection.Cells.VerticalAlignment = 1
	oWord.Selection.ParagraphFormat.Alignment = 1
Endif
oWord.Selection.MoveDown(7,1)

Use in 学生档案
oWord.quit

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -