代码制作试卷（一）——删除空行与空白段落.doc

试卷制作（一）通常情况下，我们都会用Word制作试卷。在使用Word制作试卷时，默认状态为A4，纵向，字体宋体，四号字体。这些格式不符合试卷格式要求。如下图：如果使用以代码来设置已完成的试卷，那么可以在瞬间内完成，生成一份很规范的试卷。如下图：下面给出一段代码，为试卷制做第一个准备。=Sub 删除空行()Selection.Find.ClearFormattingSelection.Find.Replacement.ClearFormatting With Selection.Find .Text = p .Replacement.Text = p .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End WithSelection.Find.Execute Replace:=wdReplaceAllSelection.Find.Execute Replace:=wdReplaceAllSelection.Find.Execute Replace:=wdReplaceAllSelection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = p .Replacement.Text = p .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End WithSelection.Find.Execute Replace:=wdReplaceAllSelection.Find.Execute Replace:=wdReplaceAllSelection.Find.Execute Replace:=wdReplaceAllSelection.Find.Execute Replace:=wdReplaceAllSelection.Find.Execute Replace:=wdReplaceAllSelection.Find.Execute Replace:=wdReplaceAllSelection.Find.Execute Replace:=wdReplaceAllSelection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = p .Replacement.Text = p .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End WithSelection.Find.Execute Replace:=wdReplaceAllSelection.Find.Execute Replace:=wdReplaceAllSelection.Find.Execute Replace:=wdReplaceAllSelection.Find.Execute Replace:=wdReplaceAllSelection.Find.Execute Replace:=wdReplaceAllSelection.Find.Execute Replace:=wdReplaceAllSelection.Find.ClearFormattingSelection.Find.Replacement.ClearFormatting With Selection.Find .Text = pp .Replacement.Text = p .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End WithSelection.Find.Execute Replace:=wdReplaceAllSelection.Find.Execute Replace:=wdReplaceAllSelection.Find.Execute Replace:=wdReplaceAllSelection.Find.Execute Replace:=wdReplaceAllSelection.Find.Execute Replace:=wdReplaceAllSelection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = .Replacement.Text = .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End WithSelection.Find.Execute Replace:=wdReplaceAllSelection.Find.Execute Replace:=wdReplaceAllSelection.WholeStory Dim qjsz, bjsz As String, i As Integer 定义qjsz（全角数字）、bjsz（半角数字）为字符串型，i为整数型qjsz = bjsz = 0123456789.%ABCDEFGHIJKLMNOPQRSTUVWXYZ For i = 1 To 38 循环38次 With Selection.Find .Text = Mid(qjsz, i, 1) mid函数：返回文本字符串中从指定位置开始的特定数目的字符，每次取一个数字 .Replacement.Text = Mid(bjsz, i, 1) 将用于替换的相应位置的半角数字 .Format = False 保留替换前的字符格式 .Execute Replace:=wdReplaceAl