Удаление повторяющихся абзацев с дальнейшей пометкой

Public FormChsn As Byte
Sub AAA1()
'
' SerADel Макрос
'
'
 
    Dim i, k, parLen(), parNum, markedNum As Integer, a As String, clr As Variant, matchfound, cnt As Boolean
 
    markedNum = 0 ' Счетчик первых вхождений
    With ActiveDocument
    parNum = .Paragraphs.count
    ReDim parLen(parNum)
    For i = 1 To parNum
        If Not .Paragraphs(i).Range.Information(wdWithInTable) Then _
            parLen(i) = Len(.Paragraphs(i).Range.Text)
    Next
    For i = 1 To parNum
        If parLen(i) > 1 Then 'непустой и непомеченный
            curParLen = parLen(i)
            a = ""
            matchfound = False
            cnt = False
            For k = i + 1 To parNum
                If parLen(k) = curParLen Then 'может быть совпадение!
                    If a = "" Then
                        a = .Paragraphs(i).Range.Text
                    End If
                    If a = .Paragraphs(k).Range.Text Then
                        matchfound = True
                        .Paragraphs(k).Range.Select
                        If cnt Then
                            parLen(k) = 0 'помечяем абзац как закрашенный
                        Else
                            FormQ.Show
                            If FormChsn = 1 Then ' выбрано удалить
                                .Paragraphs(k).Range.Delete
                            ElseIf FormChsn = 2 Then 'выбрано пропустить
                                parLen(k) = 0 'помечяем абзац
                            Else 'выбрано пропустить все
                                cnt = True
                                parLen(k) = 0
                            End If
                        End If
                    End If
                End If
            Next
            If matchfound Then
                markedNum = markedNum + 1
                .Paragraphs(i).Range.Shading.BackgroundPatternColor = wdColorYellow25 'Цвет для обозначения первого вхождения
            End If
        End If
    Next
    MsgBox "Найдено повторяющихся абзацев: " & markedNum, , "Готово"
End With
End Sub

Private Sub CommandButton1_Click()
    FormChsn = 1
    FormQ.Hide
End Sub
 
Private Sub CommandButton2_Click()
    FormChsn = 2
    FormQ.Hide
End Sub
 
Private Sub CommandButton3_Click()
    FormChsn = 3
    FormQ.Hide
End Sub

              If FormChsn = 1 Then ' выбрано удалить
                '.Paragraphs(k).Range.Delete
                parLen(k) = -2  'пометка удалить
              ElseIf FormChsn = 2 Then 'выбрано пропустить
                parLen(k) = -1 'помечяем абзац
              Else 'выбрано пропустить все
                cnt = True
                parLen(k) = -1
              End If
            End If
''''''''''''''''''''''''''''''''''''''''''''
  Debug.Print "Найдено повторяющихся абзацев: " & markedNum, , "Готово"
  For i = parNum To 1 Step -1
  If parLen(i) = -2 Then
  Debug.Print Mid(.Paragraphs(i).Range.Text, 1, 30)
  .Paragraphs(i).Range.Delete
  End If
  Next i
  
End With
End Sub