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