Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.12.2010, 20:27   #1
Mangost
 
Регистрация: 17.12.2010
Сообщений: 4
По умолчанию Как сделать сразу 2 такие автозамены:

Приветствую всех,

я тут новенький, не обижайте если что ))


Вопрос такой, мне нужно взять вордовский текст вроде

Цитата:
КЛИЗМА - текст про клизмы
ШПИНАТ - текст про шпинаты
ЮМОР - текст про юмор


и сделать форматирование такое:

Цитата:
Клизма
текст про клизмы

Шпинат
текст про шпинаты

Юмор
текст про юмор
То есть две вещи:
Перенести на новую строку то что находится между " - " - как бы это я знаю как делается; а вот в чем трабл, так это:

как сделать заголовки Heading вотэтого текста что я выделил во втором варианте,
и как сделать чтобы то что было набрано все крупными буквами стало с заглавной?


Я пробовал крутить функции Find and Reolace > More > таи к далее, но пока не могу во всем разобраться.



Вот скриншот исходного текста с показанными скрытыми символами
http://i13.fastpic.ru/big/2010/1217/...04f7451299.gif

Помогите если не трудно.
Mangost вне форума Ответить с цитированием
Старый 20.12.2010, 09:11   #2
shanemac51
Участник клуба
 
Аватар для shanemac51
 
Регистрация: 12.08.2010
Сообщений: 1,077
По умолчанию re:

попробуйте так

- замена ^l ^p ............ латинские малые L \P
-замена ^s ^p c функцией формат, стиль,заголовок 2
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание
shanemac51 вне форума Ответить с цитированием
Старый 22.12.2010, 08:41   #3
garik64
Форумчанин
 
Регистрация: 09.07.2009
Сообщений: 111
По умолчанию

1) меняем ^p^w на ^p
2) меняем " -" на ^p
3) Ищем и выделяем (с подстановочными знаками) ^13<[А-ЯЁ^32]@>^13
4) Shift+F3 меняет капитализацию букв в выделенных фрагментах; делаем все строчные
5) Ищем ^13? с подст. знаками и меняем их на заглавные
6) заменяем ^p^w на ^p

Это если руками. Если делать макрос - то для изменения регистра используется WdCharacterCase (в частности, капитализация первой буквы в слове - wdTitleSentence)

UPD. Если в определениях тоже встречаются тире, то пункт 2) лучше заменить на: искать (^13<[А-ЯЁ^32]@>)(^32-) и заменять на \1^p

Последний раз редактировалось garik64; 22.12.2010 в 08:50.
garik64 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как перенести автозамены??? Vetlblya Microsoft Office Word 3 02.07.2010 22:08
Как изменять атрибуты музыкального файла такие как Исполнитель, Альбом и т.п. TwiX Общие вопросы Delphi 4 22.01.2010 14:48
Как изменить параметры автозамены в CodeGear? TwiX Софт 0 27.10.2009 00:00
сделать интерактивный тест чтоб по локальной сети его проходили сразу несколько человек CheGuevera БД в Delphi 4 10.06.2008 19:21
vBulletin сделать, чтобы при регистрации пользователь сразу же становился зарегистрированным dron-s PHP 26 20.11.2007 16:58