1

Тема: Пустые абзацы

Здравствуйте.
При вставке текста все абзацы разделены пустыми абзацами. Не могу найти настройку, которая бы избавила меня от этой проблемы.

2

Re: Пустые абзацы

Такой настройки нет. После вставки нужно удалить лишние абзацы с помощью поиска замены.
Найти: ^p^p
Заменить на: ^p

Лучше день потерять — потом за пять минут долететь!

3

Re: Пустые абзацы

Как вариант, если это надо делать регулярно

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

4

Re: Пустые абзацы

МВТ пишет:

Как вариант, если это надо делать регулярно

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

Мне нужен ликбез, чтобы этим пользоваться.

5

Re: Пустые абзацы

Валент пишет:

Мне нужен ликбез, чтобы этим пользоваться.

Посмотрите, пожалуйста, здесь:
http://wordexpert.ru/forum/viewtopic.php?id=1342

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.