WORD怎么把选择题的答案填上

我爱锦嘟嘟

看不懂啊·········

sm301

大家真厉害

lyivwu

到此一游，替换后按9楼的方式搞定。

zhanglei1371

修改了下10楼代码：
Sub getAnswer()
Dim Txt1 As String
Dim i As Long
Dim pStart, iKay, Para
Dim myAnswer(5)
    i = 1
    For Each Para In ActiveDocument.Paragraphs
        Para.Range.Select
        Txt1 = Split(Selection.text, "：")(0)
        If Txt1 = "选项个数" Then Para.Range.Delete
        If Txt1 = "标准答案" Then
            myAnswer(i) = Split(Selection.text, "：")(1)
            myAnswer(i) = Left(myAnswer(i), Len(myAnswer(i)) - 1)
            Debug.Print myAnswer(i)
            Para.Range.Delete
            i = i + 1
        End If
    Next
    iKay = 1
    For p = 1 To ActiveDocument.Paragraphs.Count
        With ActiveDocument.Paragraphs(p)
            .Range.Select
            Selection = Replace(Selection, "（", "(")
            If InStr(Selection, "(") <> 0 Then
                pStart = InStr(Selection.text, "       ") + 3  '插入点位置
                If pStart > 10 Then
                    Debug.Print pStart
                    With Selection
                        .Collapse Direction:=wdCollapseStart
                        .MoveRight Unit:=wdCharacter, Count:=pStart, Extend:=wdMove
                        .InsertAfter myAnswer(iKay) ''插入答案
                    End With
                    iKay = iKay + 1
                End If
            End If
        End With
    Next
End Sub

wx486

学习tyxh0916兄和lyivwu兄的方法后，小改 。

查找：([0-9]@、*[\(（])*([\)）]*)选项个数*标准答案：(*)[^13^l]
替换：\1\3\2


测试楼主文档，可用。

ammyc

好好学习，天天向上