【发红包求解决】word如何将选择题答案添加在ABCD选项后面

xj3312

解决了发红包

活在理想的世界

把文本搞到EXCEL去，然后用正则匹配，存在即连个对号，然后把数据粘贴进WORD。

可以全自动实现。

xj3312

活在理想的世界 发表于 2018-2-18 19:39
把文本搞到EXCEL去，然后用正则匹配，存在即连个对号，然后把数据粘贴进WORD。

可以全自动实现。

我已经研究一天了，百度各种搜索
没解决，您方便的话加我微信，dmj3312
解决发您红包

duquancai

xj3312 发表于 2018-2-18 20:15
我已经研究一天了，百度各种搜索
没解决，您方便的话加我微信，dmj3312
解决发您红包

全文都是单选题还是有多选题还是有判断题？每个答案分支  都占一个段落还是有其它情况的排版？文档中有表格、图形、图像、文本框、图文框、艺术字、域以及其他对象吗？没有看见你真实附件，简单截个图就了事的，你想简单了！需要根据你真实文档内容进行分析才能决定解决方案。另外：红包具体是多少？

leikaiyi123

Sub test11()    '在对应答案的选项末尾打勾----题干末尾为括号和答案
    With ActiveDocument.Content.Find
        .Execute "^l", , , 2, , , , , , "^p", 2    '删软回车(手动换行符)
        .Execute "([（\(][A 　]@[）\)]^13A[．.]*)^13(B[．.]*^13C[．.]*^13D[．.]*)^13", , , 1, , , , , , "\1√^13\2^13", 2
        .Execute "([（\(][B 　]@[）\)]^13A[．.]*^13B[．.]*)^13(C[．.]*^13D[．.]*)^13", , , 1, , , , , , "\1√^13\2^13", 2
        .Execute "([（\(][C 　]@[）\)]^13A[．.]*^13B[．.]*^13C[．.]*)^13(D[．.]*)^13", , , 1, , , , , , "\1√^13\2^13", 2
        .Execute "([（\(][D 　]@[）\)]^13A[．.]*^13B[．.]*^13C[．.]*^13D[．.]*)^13", , , 1, , , , , , "\1√^13", 2
        .Execute "([（\(][A-D 　]@[）\)]^13)", , , 1, , , , , , "(    )^13", 2    '删括号及答案
    End With
    Selection.Start = Selection.End
End Sub

相见是缘8

求助都这么省时间！唉！我帮上一个“附件”吧！