VBA - удаление строки, длиной меньше n символов.

2013-01-11T12:14:12Z

Application.Browser.Previous

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

Форум компьютерной помощи — VBA - удаление строки, длиной меньше n символов.

VBA - удаление строки, длиной меньше n символов.