各位大佬，word中如何将批量答案、解析，放到题目下方？拜谢各位！

gwjkkkkk

zq8908ang 发表于 2024-5-9 16:00

上传一下附件，模拟一下结果

zq8908ang

gwjkkkkk 发表于 2024-5-9 16:57
上传一下附件，模拟一下结果

新建 Microsoft Word 文档 (2).zip (13.19 KB, 下载次数: 6)

2024-5-9 17:30 上传

点击文件名下载附件

gwjkkkkk

zq8908ang 发表于 2024-5-9 17:30

没懂要替换成最后的结果？给我的文档我也看不懂，最好给一个原始文件，再给一个结果文件

zq8908ang

gwjkkkkk 发表于 2024-5-9 17:42
没懂要替换成最后的结果？给我的文档我也看不懂，最好给一个原始文件，再给一个结果文件

新建文件夹1.zip (62.73 KB, 下载次数: 6)

2024-5-10 08:36 上传

点击文件名下载附件

不好意思啊，我再发一下

蜀中草莽

查找替换     word  用 ^13  wps  用^p    第一题前面加一个空段

zq8908ang

蜀中草莽 发表于 2024-5-10 10:23
查找替换     word  用 ^13  wps  用^p    第一题前面加一个空段

后面还有多选题，也是这样的操作吗

蜀中草莽

^13[0-9]{1,}.[ABCDE]{1,}

zq8908ang

蜀中草莽 发表于 2024-5-10 12:07
^13[0-9]{1,}.[ABCDE]{1,}

老哥，答案选项没见了0.0

蜀中草莽

仔细看一下 35楼的回复

gwjkkkkk

zq8908ang 发表于 2024-5-10 08:37
不好意思啊，我再发一下

Option Explicit
Sub TEST()
    Dim strPath$, br(), i&, r&, n&, regEx As Object, Par As Paragraph
   
    Application.ScreenUpdating = False
    strPath = ThisDocument.Path & "\"
    Set regEx = CreateObject("VBScript.RegExp")
    regEx.Pattern = "^[0-9]+\.[A-Z]+"

    With Documents.Add
        With ThisDocument
            .Range(.Content.Start, .Content.End - 1).Copy
        End With
        .Range(0).Paste
        For Each Par In .Paragraphs
            If regEx.TEST(Par.Range.Text) Then
                n = Len(regEx.Execute(Par.Range.Text)(0))
                r = r + 1
                ReDim Preserve br(1 To r)
                Set br(r) = .Range(Par.Range.Start + n, Par.Range.Start + n)
            End If
        Next
        For i = 1 To UBound(br)
            br(i).InsertAfter vbCr & "解析："
        Next i
        .SaveAs strPath & "结果"
        .Close
    End With
   
    Application.ScreenUpdating = True
    Beep
End Sub