Помогите написать макрос для...

[КотФиларет]

Добрый день, дамы и господа!

Можно ли создать макрос для выделения на странице, где стоит курсор, только пустых абзацев, т.е. в виде одного непечатымаевого символа абзаца?

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

[viter.alex]

Уважаемый, объясните, зачем такие ухищрения с выделениями? То вы хотите выделить только текст без таблиц, то только символы абзаца. Зачем? Может поискать другой путь?
Опишите всю проблему, которую вы пытаетесь решить такими экзотическими приемами.

[КотФиларет]

Все по порядку:

1. Мне нужно выделить весь текст без таблиц, чтобы удалить пустые абзацы, или наоборот добавить, чтобы изменить междустрочный интервал и интервал между абзацами. Но чтобы выше перечисленное не менялось в таблицах.

2. Мне нужно выделить пустые абзацы, чтобы изменять их размеры, чтобы не было висячих строк внизу страницы.

[viter.alex]

Сообщение от КотФиларет

Все по порядку:

1. Мне нужно выделить весь текст без таблиц, чтобы удалить пустые абзацы, или наоборот добавить, чтобы изменить междустрочный интервал и интервал между абзацами. Но чтобы выше перечисленное не менялось в таблицах.

2. Мне нужно выделить пустые абзацы, чтобы изменять их размеры, чтобы не было висячих строк внизу страницы.

Порядок — это хорошо. Тогда я тоже по порядку.

1. Чтобы изменять интервал в тексте и при этом не затрагивать то, что не нужно, нужно использовать стили. Для таблицы один (а лучше несколько стилей), для абзацев другой.
2. Чтобы удалить пустые абзацы, нужно воспользоваться поиском и заменой, и удалить 2 и более абзацев подряд.

[КотФиларет]

Уважаемый.

Все не так просто, как кажется на первый взгляд. Я работаю с текстами, которые делают другие люди. И мне надо подстраиваться под них.

Дело в том, что с документами, с которыми я работаю, создаю не я, а другие представители планеты, под названием земля.

[viter.alex]

Сообщение от КотФиларет

Уважаемый.

Все не так просто, как кажется на первый взгляд. Я работаю с текстами, которые делают другие люди. И мне надо подстраиваться под них.

Дело в том, что с документами, с которыми я работаю, создаю не я, а другие представители планеты, под названием земля.

Я Вас прекрасно понимаю, сам работаю с плодами работы других. И уже второй год бьюсь над тем, чтобы они хоть чертеж в начале координат располагали.
Что я могу предложить?

1. Создать для себя стили, которые должны полностью покрывать все форматирование, которое выполняется в документе.
2. Сохранить это в надежном месте, а лучше в нескольких надежных местах.
3. При поступлении такого «произведения» на обработку делать импорт стилей через «Организатор». А затем применять их по-очереди.
4. Можно попробовать программы допечатной подготовки документов, но я с ними не работал, поэтому что-то конкретно сказать не могу.

Если нужна помощь в создании стилей, то обращайся в личку для личной связи. Помогу.

[tolikman]

На счет выделения. Ведь ворд умеет выделять кусочками, например: если на стиле нажать "выделить все вхождения", то он выделяет кусками, только то что надо. viter.alex, лучше день потерять - потом может пригодиться)))
посмотрю, может что нарою...

[viter.alex]

Сообщение от tolikman

На счет выделения. Ведь ворд умеет выделять кусочками, например: если на стиле нажать "выделить все вхождения", то он выделяет кусками, только то что надо. viter.alex, лучше день потерять - потом может пригодиться)))
посмотрю, может что нарою...

Ну так и я об этом. Только стили нужно иметь, а их нет

[tolikman]

А как выделить все вхождения посредством VBA?
Я бы, кстати, для решения задачи текущей темы сделал какие-нибудь дополнительные кнопочки, для особенного форматирования, которые будут действовать в пределах выбранного (selection) (можно вызывать формы в немодальном режиме, как дополнительные средства, для примера сделать "ручной" ползунок(для наглядности) на форме, который бы изменял размеры пустых абзацев), может варианты такого плана получше будут?

[viter.alex]

Сообщение от tolikman

А как выделить все вхождения посредством VBA?
Я бы, кстати, для решения задачи текущей темы сделал какие-нибудь дополнительные кнопочки, для особенного форматирования, которые будут действовать в пределах выбранного (selection) (можно вызывать формы в немодальном режиме, как дополнительные средства, для примера сделать "ручной" ползунок(для наглядности) на форме, который бы изменял размеры пустых абзацев), может варианты такого плана получше будут?

Примерно так

  With Selection
    .Find.Style = ActiveDocument.Styles("Заголовок 1")
    If .Find.Execute Then
   'здесь делаем, что нужно с найденным.
    End If
  End With