方便培训学生做试题Word模板

萧寒1

太强了！要好好学习

megawatt

cyq.0123 发表于 2014-5-20 06:47
方便培训学生做试题Word模板的工程密码197698cmw怎么不正确，能否告知？我十分想要

我的名字是雷锋：

1. Sub CommandButton1_Click()
   
2.     Dim SP As Shape
   
3.     For Each SP In ActiveDocument.Shapes
   
4.         If SP.Type = msoTextBox Then
   
5.             SP.Delete
   
6.         End If
   
7.     Next
   
8. End Sub
   
9. 
   
10. Private Sub CommandButton2_Click()
    
11. 
    
12.    ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 63#, _
    
13.         87.6, 486#, 335).Select
    
14.     Selection.ShapeRange.TextFrame.TextRange.Select
    
15.     Selection.Collapse
    
16.     Selection.ShapeRange.Select
    
17.     Selection.ShapeRange.Fill.Visible = msoTrue
    
18.     Selection.ShapeRange.Fill.Solid
    
19.     Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255)
    
20.     Selection.ShapeRange.Fill.Transparency = 0#
    
21.     Selection.ShapeRange.Line.Weight = 6#
    
22.     Selection.ShapeRange.Line.DashStyle = msoLineSolid
    
23.     Selection.ShapeRange.Line.Style = msoLineSingle
    
24.     Selection.ShapeRange.Line.Transparency = 0#
    
25.     Selection.ShapeRange.Line.Visible = msoTrue
    
26.     Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 255)
    
27.     Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
    
28.     Selection.ShapeRange.LockAspectRatio = msoFalse
    
29.     Selection.ShapeRange.Height = 335
    
30.     Selection.ShapeRange.Width = 486.15
    
31.     Selection.ShapeRange.Left = 62.9
    
32.     Selection.ShapeRange.Top = 87.55
    
33.     Selection.ShapeRange.TextFrame.MarginLeft = 7.09
    
34.     Selection.ShapeRange.TextFrame.MarginRight = 7.09
    
35.     Selection.ShapeRange.TextFrame.MarginTop = 3.69
    
36.     Selection.ShapeRange.TextFrame.MarginBottom = 3.69
    
37.     Selection.ShapeRange.RelativeHorizontalPosition = _
    
38.         wdRelativeHorizontalPositionColumn
    
39.     Selection.ShapeRange.RelativeVerticalPosition = _
    
40.         wdRelativeVerticalPositionParagraph
    
41.     Selection.ShapeRange.Left = CentimetersToPoints(-0.95)
    
42.     Selection.ShapeRange.Top = CentimetersToPoints(0.55)
    
43.     Selection.ShapeRange.LockAnchor = False
    
44.     Selection.ShapeRange.LayoutInCell = True
    
45.     Selection.ShapeRange.WrapFormat.AllowOverlap = True
    
46.     Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
    
47.     Selection.ShapeRange.WrapFormat.DistanceTop = CentimetersToPoints(0)
    
48.     Selection.ShapeRange.WrapFormat.DistanceBottom = CentimetersToPoints(0)
    
49.     Selection.ShapeRange.WrapFormat.DistanceLeft = CentimetersToPoints(0.32)
    
50.     Selection.ShapeRange.WrapFormat.DistanceRight = CentimetersToPoints(0.32)
    
51.     Selection.ShapeRange.WrapFormat.Type = 3
    
52.     Selection.ShapeRange.ZOrder 4
    
53.     Selection.ShapeRange.TextFrame.AutoSize = False
    
54.     Selection.ShapeRange.TextFrame.WordWrap = True
    
55.     Selection.TypeText Text:="按题目要求完成:"
    
56.     Selection.TypeParagraph
    
57.     Selection.TypeText Text:="1. 字体设置:第一行标题为隶书；第二行为仿宋；正文(备注正文是指李白这一首诗)为华文行楷；最后一段解析一词为华文新魏，其余为楷体。"
    
58.     Selection.TypeParagraph
    
59.     Selection.TypeText Text:="2.设置字号：第一行标题为二号；正文为四号"
    
60.     Selection.TypeParagraph
    
61.     Selection.TypeText Text:="3.设置字形：“解析”一词加双下划线。给“李白”两字加着重号"
    
62.     Selection.TypeParagraph
    
63.     Selection.TypeText Text:="4. 设置对齐方式：第一行和第二行为居中对齐"
    
64.     Selection.TypeParagraph
    
65.     Selection.TypeText Text:="5. 设置段落缩进：正文左缩进2个字符；最后一段首行缩进2个字符。"
    
66.     Selection.TypeParagraph
    
67.     Selection.TypeText Text:="6.设置行（段落）：第一行标题段前段后各为1行；第二行段后为0.5.行;最后一段段前为1行."
    
68.     Selection.WholeStory
    
69.     Selection.Font.Bold = wdToggle
    
70.     Selection.Font.Size = 14
    
71.     Selection.Font.Color = wdColorRed
    
72.     Selection.ShapeRange.TextFrame.TextRange.Select
    
73.     Selection.Collapse
    
74.     Selection.ShapeRange.Select
    
75. End Sub
    

复制代码

cyq.0123

cyq.0123 发表于 2014-5-20 06:47
方便培训学生做试题Word模板的工程密码197698cmw怎么不正确，能否告知？我十分想要我的名字是雷锋：
非常感谢

cyq.0123

再次表示谢意！这是我市毕业生上机考试word的试题

q-zheng

佛山小老鼠 发表于 2011-6-12 10:03
回复大理版主：呵呵，有一个是以前收藏的，一个前辈写的，很经典

太强了，good

oculus0521

不能生成试卷A ???