1 Тема от admin

  • admin
  • admin
  • Administrator
  • Неактивен
  • Зарегистрирован: 2010-04-07
  • Сообщений: 1,192
  • Репутация : 0

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

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

Поделиться