Статьи из блога
Замена текста в скобках на пробел
Петр спрашивает:
Помогите, как заменить в Word 2003 много различных предложений, которые находятся внутри скобок, на пробел? Например: а- (перед гласными ан-; греч. a-, an-); или Аарона симптом (Ch. D. Aaron, 1866--1951, амер. врач). Вот то, что внути скобок и надо заменить на пробел.
Такую задачу можно решить вручную с использованием диалогового окна "Найти и заменить", либо посредством макроса (код ниже).
Чтобы заменить текст в скобках на пробелы через диалоговое окно "Найти и заменить", откройте это окно («Ctrl+H»).
В поле Найти введите такое выражение: \(*\),
а в поле Заменить: ( ).
Затем установите флажок на опции "Подстановочные знаки" и нажмите кнопку Заменить все.
Кроме того, можете воспользоваться следующим макросом:
Sub delTextBetweenBrackets() 'заменяем текст в скобках на пробел в скобках With Selection.Find .ClearFormatting .Replacement.ClearFormatting .Text = "\(*\)" .Replacement.Text = "( )" .Forward = True .Wrap = wdFindContinue .MatchWildcards = True .Execute Replace:=wdReplaceAll End With End Sub
Рубрика: Вопрос-Ответ, Макросы, Стили и форматирование
Метки: макросы | поиск и замена
Просмотров: 40282
Подписаться на комментарии по RSS
Версия для печати
Метки: макросы | поиск и замена
Просмотров: 40282
Подписаться на комментарии по RSS
Версия для печати
Еще записи по вопросам использования Microsoft Word:
- 10 вопросов и ответов по редактору Word (1 часть)
- 3 способа очистки списка недавно открытых документов
- Word 2007: добавляем свою вкладку и свои команды
- Word 2007: полотно, рисунки, линии
- Word 2007: смена формата сохранения файла
- Word 97 - решение проблемы с отображением символов на линейке
- Word 97. Слияние документов как один из способов упростить свою работу
- Абзац с цветным фоном
- Автозаполняемые колонтитулы
- Автоматизация текстового набора в Word
- Автоматическая запись макроса
- Автоматическая нумерация билетов
- Автоматическая расстановка переносов
- Автоматическое обновление полей при открытии документа
- Автоматическое сохранение документа при его закрытии
- Автотекст с последовательной нумерацией
- Автоформат документов
- Белый текст на синем фоне в Word 2007
- Буквица
- Быстрая смена ориентации страниц документа
- Быстрое изменение стиля форматирования текста
- Быстрое перемещение между открытыми документами Word
- Быстрое создание нового документа на основе шаблона
- Быстрое удаление границ у таблицы
- Быстрый ввод текста с помощью команды =rand()
Комментариев: 17
Я вестаю ТВ программу
подскажите пожалуйста как задать шаблон для замены
6.00 на 6.00-жирным
.......
23.00 на 23.00-жирным и т.д
И отцентрировать названия всех каналов сразу
(На покупку спец программ денег НЕТ!)
Спецпрограмма для этого не нужна.
С цифрами это довольно просто. В диалоге «Найти и заменить» в поле «Найти» нужно вписать такую строку: [0-9]{1;2}.[0-9]{2} и поставить галочку «Подстановочные знаки». Эта запись означает, нужно искать цифры, разделенные точкой, причем до точки может быть одна или две цифры, а после точки — только две.
В поле заменить нужно вписать ^&, что означает «найденный текст», и кнопкой «Форматирование» установить нужное форматирование для текста замены.
С названиями каналов будет сложнее, но если они всегда одни и те же, то можно записать макросом поиск названия каждого канала и замену его выравнивания, а потом этот макрос запускать по мере надобности.
Помогите пожалуйста записать макрос в Excel, который в записи даты: 01.12.2008 заменяет точку на ) и запись года на запись двумя последними символами: 01)12)08
=ПОДСТАВИТЬ(ТЕКСТ(A1;"ДД.ММ.ГГ");".";")")
Кирилл! Большое спасибо. Я только учусь создавать макросы. Для меня это все в новинку. На готовых примерах проще разобраться.
Помогите записать в Excel макрос, который удаляет из текста все лишние пробелы, а оставшиеся заменяет на знаки подчеркивания. Заранее благодарен.
Как записать макрос, который удаляет из текста все лишние пробелы, а оставшиеся заменяет на знаки подчеркивания?
Посоветуйте, как изменить щрифт текста в скобках на italic во всем документе. Это нужно, чтобы графически выделить ремарки в тексте пьесы.
Забыл уточнить, Word 2007.
Артем, вам нужно создать отдельный стиль с нужным форматированием, затем с помощью функции "Найти и заменить" найти текст, оформленный скобками, и применить к нему ваш новый стиль.
А вообще говоря, вам не подойдет специализированный шаблон для сценариев? Вот ссылка: http://wordexpert.ru/wp-content/uploads/templates/scenario.zip.
Большое спасибо, Антон. Замечательный шаблон для сценариев. Мне потребуется какое-то время чтобы с ним разобраться. А пока я решаю свою маленькую чайниковую задачу с заменой текста в скобках, я столкнулся с неспобностью или нежеланием Word`а находить текст в скобках по выражению \(*\). В чем может быть дело? Стиль я создал, с этим все ок.
Артем, а в чем эта "неспособность" редактора выражается? Флажок на опции "Подстановочные знаки" у вас установлен?
Здесь интересная статтья по замене знаков, символов, слов, предложений.
http://artefact.lib.ru/design/text_khozyainov.shtml#top
"Специальные символы и подстановочные знаки в операциях поиска и замены MS Word 97/2000/XP"
Подскажите, пожалуйста.
При запуске макроса :
Sub delTextBetweenBrackets()
'заменяем текст в скобках на пробел в скобках
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "\(*\)"
.Replacement.Text = "( )"
.Forward = True
.Wrap = wdFindContinue
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
End With
End Sub
Выдает 450 ошибку "Wrong number of arguments or invalid property assignment"
Олег, какая версия редактора Word? На какой строчке останавливается скрипт (то есть, какая строчка скрипта выделяется)?
Не работает на версии Ворд 2013.
Что делать, чтобы работал?
Здравствуйте!
Подскажите, пожалуйста, всё никак не разберусь.
В word нужно выделить (и изменить) текст в скобках после точки с запятой.
Так вот, выделить весь текст в скобках получается: \(*\)
найти текст в скобках после ; тоже: \;*\)
Вопрос: как выделить текст, исключая ; и закрывающую скобку?
Спасибо.
Не пишите не правильные макросы не пудрите мозги.