В итоге сделал так:
Dim i As Long
For i = 1 To Documents(1).Paragraphs.Count
строка = ActiveDocument.Paragraphs(i).Range.Text
длина = Len(строка)
If длина < 10 Then
ActiveDocument.Paragraphs(i).Range.Delete
i = i - 1
End If
Next
но как сделать, чтобы в форе при удалеини строки уменьшился конечный элемент - не знаю.
________________
Судьба - совокупность совершенных глупостей человека. Любите и принимайте людей такими, какие они есть.
Если Вас оскорбили - нажимаем "Пожаловаться на это сообщение"  слева от поста под аватаром хама.
|