用VBA如何将答案归位到每道题之后

hao123

如何将答案归位到每道题之后
这是需处理的文件： 需处理的文件.rar (8.45 KB, 下载次数: 21)

2013-12-25 11:16 上传

点击文件名下载附件

这是处理后的结果： 处理后的结果.rar (8.6 KB, 下载次数: 12)

2013-12-25 11:16 上传

点击文件名下载附件

如：以下文字需处理

1、用显微镜观察玻片标本时如果光线较暗，则应选用                     

A、大光圈、平面镜 B、大光圈、凹面镜 C、小光圈、平面镜D、小光圈、凹面镜

2、使用显微镜观察时，下降镜筒时为什么眼睛要注视物镜               

A、观察物镜是否对准通光孔                   B、避免物镜与玻片标本相撞

C、 观察物镜是否对准反光镜                  D、可以在视野中找到物像

3、显微镜对光时，应首先                                          

A、转动粗准焦螺旋，使低倍物镜对准通光孔

B、转动细准焦螺旋，使高倍物镜对准通光孔

C、转动转换器，使低倍物镜对准通光孔

D、转动转换器使高倍物镜对准通光孔

答案

1、B

2、B

3、C

处理后的结果是：

1、用显微镜观察玻片标本时如果光线较暗，则应选用                     

A、大光圈、平面镜 B、大光圈、凹面镜 C、小光圈、平面镜D、小光圈、凹面镜

B

2、使用显微镜观察时，下降镜筒时为什么眼睛要注视物镜               

A、观察物镜是否对准通光孔                   B、避免物镜与玻片标本相撞

C、 观察物镜是否对准反光镜                  D、可以在视野中找到物像

B

3、显微镜对光时，应首先                                          

A、转动粗准焦螺旋，使低倍物镜对准通光孔

B、转动细准焦螺旋，使高倍物镜对准通光孔

C、转动转换器，使低倍物镜对准通光孔

D、转动转换器使高倍物镜对准通光孔

C

hao123

顶一下，求教各位高人，手头有不少试题，选题时查阅答案不方便，将答案放在题后出卷方便些。

m_n_j001

试下看呢
Sub test()
Dim ar()
With ActiveDocument
     ReDim ar(1 To 2, 1 To 5)
     For n = .Paragraphs.Count To 1 Step -1
         stmp$ = Trim(.Paragraphs(n).Range.Text)
         If stmp Like "答案*" Then Exit For
         If Len(stmp) > 3 Then
            r = r + 1
            If r > UBound(ar, 2) Then ReDim Preserve ar(1 To 2, 1 To r + 10)
            ar(1, r) = Split(stmp, "、")(0)
            ar(2, r) = vbCr & Split(stmp, "、")(1)
         End If
     Next
     r = 1
     .Paragraphs(n).Range.Text = ar(2, r) & vbCr & .Paragraphs(n).Range.Text
     For i = n - 1 To 2 Step -1
         stmp = Left(Trim(.Paragraphs(i).Range.Text), 3)
         If Left(stmp, InStr(stmp, "、")) = Val(stmp) & "、" Then
            r = r + 1
            .Paragraphs(i).Range.InsertBefore vbCr
            .Paragraphs(i).Range.Text = vbCr & ar(2, r) & vbCr & .Paragraphs(i).Range.Text
         End If
     Next
End With
End Sub
在2013下通过

hao123

谢谢楼上的，你解决了这个问题，正好我用的也是WORD2013，再次感谢。
同时我另加上几句代码去掉多余空行和题号正好达到我的要求。
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
     With Selection.Find
        .Text = "^p^p^p"
        .Replacement.Text = "^p^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

  Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[0-9]@、"
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

tangqingfu

谢谢分享，学习！