如何把题目和ABC三个答案合并为一行?谢谢！

ly8421

如题所示如何把题目和ABC三个答案合并为按照1,2题格式合并为 焊工选择题.zip (85.8 KB, 下载次数: 14)

2020-8-22 01:35 上传

点击文件名下载附件

一行?谢谢！

小花鹿

查找：^p A
替换为：A                                                                                      

cuanju

Sub dm5()
Rem 选择题的题目和选项连成一行

    Application.ScreenUpdating = False
    Rem 以下参考了413191246se老师的作品
    '******************************
    Dim i As Paragraph
    With ActiveDocument
        '真假回车符/手动换行符=>段落标记并删除空段
        .Content.Find.Execute "[^13^11]{1,}", , , 1, , , , , , "^p", 2
        '全选
        .Select
        '居中/两端对齐=>删除段落首尾空格(半角空格/全角空格/不间断空格/制表符)
        CommandBars.FindControl(ID:=122).Execute
        CommandBars.FindControl(ID:=123).Execute
    End With
    '******************************
    ActiveDocument.Content.Find.Execute FindText:="^13([A-D][、.．])", ReplaceWith:="\1", Replace:=wdReplaceAll, MatchWildcards:=True
    Application.ScreenUpdating = True
End Sub

ly8421

谢谢二位的帮忙，让我找到了更好的学习方法，题目处理好了

techiezp

ly8421 发表于 2020-8-22 18:57
谢谢二位的帮忙，让我找到了更好的学习方法，题目处理好了

什么更好的方法，展示一下吧

ly8421

techiezp 发表于 2020-8-26 13:38
什么更好的方法，展示一下吧

就是上面两位的方法呀