нужно сделать макрос для удаления пустых абзацев (ентера перещелкал) в ворде.
кто поможет ? я в этом дуб дубом.....
каждому кто отпишется кредит, тут вообще есть живие люди ?
помогу
84
помогу за 125 кредитов
18
не помогу
32
рейт (для тех кто хотел кликнуть на 1 и двух первых вариантов и ни фига не написать.)
50
Раздел: Программное обеспечение, проголосовало: 171, последний комментарий: 28.01.2011 17:43 Вопрос закрыт автором
Попробуйте этот
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
А зачем макрос?
Ctrl+F, заменить ^p^p на ^p.
Нажимать до тех пор, пока двойные переносы строк не удалятся. 10 нажатий — 1024 повторных переноса. Не думаю, что нажмешь более четырех раз.