提出要求：“题目要求.txt”

　　(1)将标题“计算机的发展趋势”，设为华文行楷、二号、天蓝色字。

　　(2)将两个小标题，设为楷体、四号、加粗。

　　(3)将两段正文，设为仿宋体、小四号、倾斜。

　　(4)将标题居中。

　　(5)将正文内容首行缩进2字符，行距1.5倍。

　　二、 教师试做，录制并分析宏

　　教师试做上面5个小题，同时相应录制五段宏：KS1、KS2、KS3、KS4、KS5。提示：在录制宏的过程中，要选择内容时，注意需要暂停宏。

　　Sub ks1()

　　Selection.Font.Name=“华文行楷”

　　Selection.Font.Size=22

　　Selection.Font.Color=wdColorSkyBlue

　　End Sub

　　Sub ks2()

　　Selection.Font.Name=“楷体_GB2312”

　　Selection.Font.Size=14

　　Selection.Font.Bold=wdToggle

　　Selection.Font.Name=“楷体_GB2312”

　　Selection.Font.Size=14

　　Selection.Font.Bold=wdToggle

　　End Sub

　　Sub ks3()

　　Selection.Font.Name=“仿宋_GB2312”

　　Selection.Font.Size=12

　　Selection.Font.Italic=wdToggle

　　Selection.Font.Name=“仿宋_GB2312”

　　Selection.Font.Size=12

　　Selection.Font.Italic=wdToggle

　　End Sub

　　Sub ks4()

　　Selection.ParagraphFormat.Alignment=wdAlignParagraphCenter

　　End Sub

　　Sub ks5()

　　With Selection.ParagraphFormat

　　.LeftIndent=CentimetersToPoints(0)

　　.RightIndent=CentimetersToPoints(0)

　　.SpaceBefore=0

　　.SpaceBeforeAuto=False

　　.SpaceAfter=0

　　.SpaceAfterAuto=False

　　.LineSpacingRule=wdLineSpace1pt5

　　.Alignment=wdAlignParagraphJustify

　　.WidowControl=False

　　.KeepWithNext=False

　　.KeepTogether=False

　　.PageBreakBefore=False

　　.NoLineNumber=False

　　.Hyphenation=True

　　.FirstLineIndent=CentimetersToPoints(0.35)

　　.OutlineLevel=wdOutlineLevelBodyText

　　.CharacterUnitLeftIndent=0

　　.CharacterUnitRightIndent=0

　　.CharacterUnitFirstLineIndent=2

　　.LineUnitBefore=0

　　.LineUnitAfter=0

　　.AutoAdjustRightIndent=True

　　.DisableLineHeightGrid=False

　　.FarEastLineBreakControl=True

　　.WordWrap=True

　　.HangingPunctuation=True

　　.HalfWidthPunctuationOnTopOfLine=False

　　.AddSpaceBetweenFarEastAndAlpha=True

　　.AddSpaceBetweenFarEastAndDigit=True

　　.BaseLineAlignment=wdBaselineAlignAuto

　　End With

　　End Sub

　　五段宏中，“Selection对象代表一个窗格中的选定内容。该内容可以包括文档中的一个区域，也可以仅包括插入点。”

　　前三段宏中，“Font对象包含了各种字体属性。”“Name代表文字字体名称。”“Size代表文字大小。”“Color代表文字颜色。”“Bold代表文字是否加粗。”“Italic代表文字是否倾斜。”“wdToggle等同于True。”

　　第四段宏中，“ParagraphFormat代表了指定区域、所选范围、查找与替换操作或样式中的段落设置。”“Alignment返回或设置指定段落的对齐方式。” “wdAlignParagraphCe

　　nter代表居中对齐。”

　　第五段宏，内容很多，但只有几个参数有用，“Character

　　UnitFirstLineIndent返回或设置首行或悬挂缩进的值(以字符为单位)。用正值设置首行缩进，用负值设定悬挂缩进。Single 类型可读写。”“LineSpacingRule返回或设置指定段落的行距，wdLineSpace1pt5代表1.5倍行距。”

　　这里，如果对代码不理解的话，可以查阅帮助，注意不是Word窗口中的帮助，而是Visual Basic 编辑器窗口中的帮助，或者直接在VBAWRD9.CHM帮助文件中查找。(其默认安装目录为C:\Program Files\Microsoft Office\Office\2052)

　　三、按图索骥，编制测评代码

　　这一步，难度较大，我们可以参考相关的VB和VBA书籍。另外在Office 2000的安装目录下可以找到诸如VBAWRD9.CHM、VBAXL9.CHM、VBAPPT9.CHM、VBAOFF9.CHM等帮助文件作为学习和参考之用。

　　下面是我编写的关于“练习题.doc”文档的测评代码。

　　Sub 测评()

　　Dim defen As Integer 设置测评结果变量defen

　　defen=0’测评结果变量defen初始化为0