如何将答案统一挪到文档末尾？

zhanglei1371

题目如下：

1.头孢菌素类药物是.A

A.抗菌谱较广的抗生素

B.治疗非典型肺炎的药物

C.抗真菌药

D.抗结核病药

E.抗病毒药

2.联合应用抗菌药物的目的不包括B

A.发挥药物的协同作物以提高疗效

B.使医生和病人都有一种安全感

C.延迟或减少耐药菌株的产生

D.对混合感染扩大抗菌范围

E.减少个别药剂量，以减少毒副反应

3.按规定，使用淡黄颜色的处方是C

A.麻醉药品处方

B.一类精神药品处方

C.急诊处方

D.儿科处方

E.普通处方

4.每张处方限定的药品品种数量最多为C

A.3种

B.4种

C.5种

D.6种

E.7种

5.关于药品外观检查，叙述正确的是B

A.药品外层包装与盛装药品的容器上**药品规格可以不相符

B.药品包装应贴有标签或附有说明书

C.药品外层包装可以无生产单位

D.药品外层包装必须注明商标，而盛装药品的容器上无须注明

E.盛装药品的容器上必须标明有效期，而药品外层包装无须标明

6.药师向患者进行用药指导时，内容不包括E

A.药物名臣

B.用法用量

C.用药注意事项

D.可能发生的不良反应

E.药物的制备过程

7.舌下含化，用于急性心绞痛治疗的药物是C

A.硝苯地平

B.维拉帕米

C.硝酸甘油

D.普萘洛尔

E.双嘧达莫

我想要将所有题后面的答案都挪到文档结尾，该怎么做，请各位出主意。谢谢

sqhsqhli

Sub Mac()
ActiveDocument.Range.InsertAfter "整理的答案是："
With ActiveDocument.Content.Find
    .Text = "([0-9]{1,2})*([A-Z])^13"
    .Forward = True
    .MatchWildcards = True
Do While .Execute
ActiveDocument.Range.InsertAfter Mid(.Parent.Text, Len(.Parent.Text) - 1, 1)
ActiveDocument.Range(.Parent.End - 2, .Parent.End - 1) = ""
.Parent.Collapse Direction:=wdCollapseEnd
Loop
End With
End Sub

gl_zhangt

如果数字开头的段落应用编号了,遍历编号段,取右面第一个字符

zhanglei1371

sqhsqhli 发表于 2013-3-16 21:34
Sub Mac()
ActiveDocument.Range.InsertAfter "整理的答案是："
With ActiveDocument.Content.Find

多谢sqhsqhli 的指点！
我想再多考虑一步，如果是逆过程，该如何用代码操作？如下：
1.头孢菌素类药物是.
A.抗菌谱较广的抗生素
B.治疗非典型肺炎的药物
C.抗真菌药
D.抗结核病药
E.抗病毒药
2.联合应用抗菌药物的目的不包括
A.发挥药物的协同作物以提高疗效
B.使医生和病人都有一种安全感
C.延迟或减少耐药菌株的产生
D.对混合感染扩大抗菌范围
E.减少个别药剂量，以减少毒副反应
3.按规定，使用淡黄颜色的处方是
A.麻醉药品处方
B.一类精神药品处方
C.急诊处方
D.儿科处方
E.普通处方
4.每张处方限定的药品品种数量最多为
A.3种
B.4种
C.5种
D.6种
E.7种
5.关于药品外观检查，叙述正确的是
A.药品外层包装与盛装药品的容器上**药品规格可以不相符
B.药品包装应贴有标签或附有说明书
C.药品外层包装可以无生产单位
D.药品外层包装必须注明商标，而盛装药品的容器上无须注明
E.盛装药品的容器上必须标明有效期，而药品外层包装无须标明
6.药师向患者进行用药指导时，内容不包括
A.药物名臣
B.用法用量
C.用药注意事项
D.可能发生的不良反应
E.药物的制备过程
7.舌下含化，用于急性心绞痛治疗的药物是
A.硝苯地平
B.维拉帕米
C.硝酸甘油
D.普萘洛尔
E.双嘧达莫
1、A  2、B  3、C  4、C  5、B  6、E  7、C  
如何变为原来的形式？

nuf2002

用查找方法，输入查找内容：^$^pA.（勾选突出显示），查找全部后，复制突出显示的内容粘贴到文档末，再对粘贴后的内容用查找方法把"A.”及相应段落符删除即可。

008zhang

第一问的思考：
2步，如图

008zhang

第2步，，，，，，，，，

sqhsqhli

zhanglei1371 发表于 2013-3-16 23:38
多谢sqhsqhli 的指点！
我想再多考虑一步，如果是逆过程，该如何用代码操作？如下：
1.头孢菌素类药物是 ...

真能折腾：

Sub Mac()
    On Error GoTo exitsub
    '假定最后一段为答案，如你所描述的那样1、A  2、B  3、C  4、C  5、B  6、E  7、C
    Dim s, i As Integer, p As Range
    Set p = ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count).Range
    s = Split(p.Text, "、")
    p.Delete
    With ActiveDocument.Content.Find
        .Text = "([0-9]{1,2}).*^13"
        .Forward = True
        .MatchWildcards = True
        Do While .Execute
            i = i + 1
            If i > UBound(s) Then MsgBox "题目与答案不一致，将退出"
            ActiveDocument.Range(.Parent.End - 1, .Parent.End - 1).InsertAfter Left(s(i), 1)
            .Parent.Collapse Direction:=wdCollapseEnd
        Loop
    End With
exitsub:
End Sub

zhanglei1371

sqhsqhli 发表于 2013-3-17 14:40
真能折腾：

Sub Mac()

{:soso_e100:}没问题了，Thank u very much！！！

008zhang

楼主的第二个问题用替换如何完成呢？