题库中，下划线答案，如何提取到最后？

314538494

比如
1.去年是2018年。改为   （  ）是2018年。答案：去年
如何统一修改？

314538494

没人吗，求帮助啊555

413191246se

新人朋友，你好！——你需要提供详实的附件才好，说明情况。

紫穆清风

可参考我的这种方法
【Word与Excel双剑合壁——批量给选择题添加答案段落】
大量选择题只在选项中用颜色标记了答案，而没有把答案单独列出来，该如何批量根据标记颜色添加答案呢？
1.利用查找替换将标记了颜色的答案复制到Excel中
2.利用公式将字符串“答案：”和答案字符进行连接
3.将原文选择题转表格，并减小表格宽度
4.将Excel中新形成的答案字符串复制出来，粘贴到Word选择题表格的右侧，拼接表格
5.将表格转文字，大功告成！

cuanju

请提供完整的附件。就针对这一条”1.去年是2018年。改为   （  ）是2018年。答案：去年“，代码如下：

Sub dm2()
    With ActiveDocument.Content.Find
        .ClearFormatting
        .Font.Underline = wdUnderlineSingle
        .Format = True
        .Text = ""
        .Execute
        iflag = .Parent.Text
        .Parent = "（  ）"
        .Parent.Font.Underline = wdUnderlineNone
    End With
    Set oRngT = ActiveDocument.Paragraphs(1).Range
    oRngT.End = oRngT.End - 1
    oRngT.InsertAfter "答案：" & iflag
End Sub

cuanju

cuanju 发表于 2019-10-26 09:28
请提供完整的附件。就针对这一条”1.去年是2018年。改为   （  ）是2018年。答案：去年“，代码如下：

S ...

stop这句删除。

daibao88

如果文章不是一处匹配，会不断的在第一次匹配重复吧。