如图所示，答案在表格中，现在需要跟下面的解析一一对应，如何能批量导入到对应的...

妮妮螳螂

如图所示，答案在表格中，现在需要跟下面的解析一一对应，如何能批量导入到对应的序列号后面呢？请大侠赐教。

小花鹿

先把表格内容读入数组中，再查找替换

过客fppt

1，用Table.cells(x,x).range.text获取单元格中的答案
2，遍历段落或者.find的方法，找到对应序号后添加

gwjkkkkk

Option Explicit
Sub test()
    Dim ar, br, i&, j&, n&, strRngText$, Par As Paragraph
   
    With ActiveDocument
        .ConvertNumbersToText
        With .Tables(1)
            n = .Range.Cells.Count
            ReDim ar(1 To n, 1)
            For i = 1 To n
                strRngText = Left(.Range.Cells(i).Range.Text, Len(.Range.Cells(i).Range.Text) - 2)
                br = Split(strRngText, ".")
                ar(i, 0) = br(0) & ".": ar(i, 1) = strRngText
            Next i
        End With
        For i = 1 To UBound(ar)
            With .Content.Find
                .Text = ar(i, 0)
                .Forward = True
                .Execute
                Do While .Execute
                    If .Parent.Information(wdWithInTable) = False Then
                        .Parent.Text = ar(i, 1)
                        Exit Do
                    End If
                Loop
            End With
        Next i
    End With
End Sub