Статьи из блога
Статьи из блога
Замена знаков абзаца на пробелы в выделенном тексте
Рубрика: Вопрос-Ответ, Макросы, Стили и форматирование
Метки: макросы | поиск и замена | форматирование
Среда, 30 апреля 2008 г.
Просмотров: 5297
Подписаться на комментарии по RSS
Версия для печати
Метки: макросы | поиск и замена | форматирование
Среда, 30 апреля 2008 г.
Просмотров: 5297
Подписаться на комментарии по RSS
Версия для печати
Игорь задал вопрос:
Как удалить все знаки абзацев в выделеном тексте одной кнопкой?
Воспользуйтесь следующим макросом, но для начала выделите нужный фрагмент текста, а потом уже примените макрос:
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
Если вы не знаете, как подключить к документу и применить этот макрос, изучите следующие заметки с сайта:
Создание макроса из готового кода
Поиск
Рубрики
Подписка
Читают
Обсуждают
страницы
сайты
статистика
Комментариев: 5
используй в окне "Найти и заменить" конструкцию "^w".
В макросе она тоже работает: находит "пробельное" пространство.
Заменяешь везде это "^w" на " " (один пробел), и тут же ещё 2 замены:
знаки абзаца (^p) и разрыва строки (^l), за которыми следует пробел, на то же, но без пробела.
Проще всего, правка - заменить, ^p на пробел, и все!
Мучался 3 часа, чтобы текст из таблицы преобразовать в единый абзац. Справился благодаря Роману и гуру, спасибо большое!!!!
Спасибо Большое!!!!
Большое спасибо за макрос! Очень помог!!!