You could change:
      .Execute
      'To automatically change the found text:
      '• comment-out/delete the previous line and the Do While Loop
      '• uncomment the next two lines
      '.Replacement.Text = Split(xlRList, "|")(i)
      '.Execute Replace:=wdReplaceAll
    End With
    'Ask the user whether to change the found text
    Do While .Find.Found
      .Duplicate.Select
      Rslt = MsgBox("Replace this instance of:" & vbCr & _
        Split(xlFList, "|")(i) & vbCr & "with:" & vbCr & _
        Split(xlRList, "|")(i), vbYesNoCancel)
      If Rslt = vbCancel Then Exit Sub
      If Rslt = vbYes Then .Text = Split(xlRList, "|")(i)
      .Collapse wdCollapseEnd
      .Find.Execute
    Loop
to:
      .Execute
    End With
    Do While .Find.Found
      With .Duplicate
        If .Information(wdWithInTable) = True Then
          If Len(.Cells(1).Range.Text) = Len(Split(xlRList, "|")(i)) + 2 Then
            .Text = Split(xlRList, "|")(i)
          End If
        End If
      End With
      .Collapse wdCollapseEnd
      .Find.Execute
    Loop
For future reference, please start a new thread when starting a new topic, with links to any existing threads you think may be relevant.