Вопрос #24796

 #  

 #  

помогу 3
помогу за 25 кредитов 8

имейте совесть, хоть отпишитесь....

 #  

Отпишусь, но я не знаю! Но правда, проголосовали люди и молчат!

 #  

Отпишусь но помочь увы не могу.

 #  

У тебя там что текста так много чтоли, можно воспользоваться автозаменой в ворде CTR+F замени например 3 ентера на 1

 #  

Попробуйте этот
Sub delPar()
Dim sPar As String
Dim par As Paragraph
Dim i As Integer
i = 0
For Each par In ActiveDocument.Paragraphs
If Right(par, 2) = Chr(46) & Chr(13) Then
i = i + 1
Else
If Right(par, 1) = Chr(13) Then
par.Range.Text = Replace(par.Range.Text, Chr(13), " ")
End If
End If
Next par
End Sub

 #  

#804552 пишет

Попробуйте этот

Can't execute code in break mod
7 офис стоит.

Добавлено спустя 34 секунды

#1688 пишет

У тебя там что текста так много чтоли

600 страничек

 #  

А зачем макрос?
Ctrl+F, заменить ^p^p на ^p.
Нажимать до тех пор, пока двойные переносы строк не удалятся. 10 нажатий — 1024 повторных переноса. Не думаю, что нажмешь более четырех раз.

 #  

Привык к 2003 7-й не понравился. Вы запускаете через редактор сценариев или Visual Basic?

 #  

Leningrad00 пишет

Leningrad00

спасибо большое!
Rento, и вам спасибо!