Dim i As Long
For i = 2 To Documents(1).Paragraphs.Count
строка = ActiveDocument.Paragraphs(i).Range.Text
'MsgBox строка
длина = Len(строка)
If длина < 50 Then
ActiveDocument.Paragraphs(i).Range = " " & vbCrLf
' далее удаляем дубликаты строк
If ActiveDocument.Paragraphs(i).Range = ActiveDocument.Paragraphs(i - 1).Range Then
ActiveDocument.Paragraphs(i).Range.Delete
i = i - 1
End If

End If
Next