Тема: Пустые абзацы
Здравствуйте.
При вставке текста все абзацы разделены пустыми абзацами. Не могу найти настройку, которая бы избавила меня от этой проблемы.
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Здравствуйте.
При вставке текста все абзацы разделены пустыми абзацами. Не могу найти настройку, которая бы избавила меня от этой проблемы.
Такой настройки нет. После вставки нужно удалить лишние абзацы с помощью поиска замены.
Найти: ^p^p
Заменить на: ^p
Как вариант, если это надо делать регулярно
Sub tt()
Dim par As Paragraph
For Each par In ActiveDocument.Paragraphs
If Len(par.Range.Text) = 1 Then par.Range.Delete
Next
End Sub
Как вариант, если это надо делать регулярно
Sub tt() Dim par As Paragraph For Each par In ActiveDocument.Paragraphs If Len(par.Range.Text) = 1 Then par.Range.Delete Next End Sub
Мне нужен ликбез, чтобы этим пользоваться.
Мне нужен ликбез, чтобы этим пользоваться.
Посмотрите, пожалуйста, здесь:
http://wordexpert.ru/forum/viewtopic.php?id=1342
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться