Статьи из блога

Замена знаков абзаца на пробелы в выделенном тексте

Игорь задал вопрос:

Как удалить все знаки абзацев в выделеном тексте одной кнопкой?

Воспользуйтесь следующим макросом, но для начала выделите нужный фрагмент текста, а потом уже примените макрос:

Sub test23042008()
'Замена знака абзаца в выделенном тексте на пробел
With Selection.Find
   .ClearFormatting
   .Replacement.ClearFormatting
   .Text = "^p"   'искомый знак абзаца
   .Format = False
   .Replacement.Text = "^s"   'заменяем на неразрывный пробел
   .Forward = True
   .Wrap = wdFindStop
   .Execute Replace:=wdReplaceAll
End With
Selection.Collapse direction:=wdCollapseStart   'снимаем выделение
End Sub

Если вы не знаете, как подключить к документу и применить этот макрос, изучите следующие заметки с сайта:

Создание макроса из готового кода

Автоматическая запись макроса

twitter.com facebook.com vkontakte.ru odnoklassniki.ru mail.ru ya.ru rutvit.ru myspace.com technorati.com digg.com friendfeed.com pikabu.ru blogger.com liveinternet.ru livejournal.ru memori.ru google.com bobrdobr.ru mister-wong.ru yahoo.com yandex.ru del.icio.us

Еще записи по вопросам использования Microsoft Word:

Комментариев: 8

  1. Roman
    29.05.2009 в 19:58 | #1

    используй в окне "Найти и заменить" конструкцию "^w".

    В макросе она тоже работает: находит "пробельное" пространство.

    Заменяешь везде это "^w" на " " (один пробел), и тут же ещё 2 замены:

    знаки абзаца (^p) и разрыва строки (^l), за которыми следует пробел, на то же, но без пробела.

  2. гуру
    20.01.2010 в 17:19 | #2

    Проще всего, правка - заменить, ^p на пробел, и все!

  3. Андрей
    21.09.2010 в 22:11 | #3

    Мучался 3 часа, чтобы текст из таблицы преобразовать в единый абзац. Справился благодаря Роману и гуру, спасибо большое!!!!

  4. Эрик
    28.04.2011 в 16:56 | #4

    Спасибо Большое!!!!

  5. Анна
    27.07.2011 в 14:38 | #5

    Большое спасибо за макрос! Очень помог!!!

  6. Марта
    28.04.2013 в 21:34 | #6

    Дякую розумним людям! smile Слухайте, - це я б 3 години сиділа!!! Добра вам і процвітання))

  7. СЕРГЕЙ
    14.06.2013 в 00:39 | #7

    Спасибо Гуру! Зачем макросы, когда все намного проще.

  8. Алексей
    22.11.2013 в 17:21 | #8

    Спасибо огромное! Простая замена не работала со знаками подстановки, просто ничего не находило. С этим макросом очень удобно форматировать текст, а главное что он на 100% работает.

Оставьте комментарий!

(обязательно)

^ Наверх