Как упростить набор в Ворд

[Seven11]

Часто требуется набирать длинные тексты примерно следующего вида:
М. Добрый день.
Р. Здравствуйте.
М. Представьтесь.
Р. Меня зовут...

Вопрос: Как можно максимально упростить набор в начале каждой строки символов Р. и М.?
Можно ли сделать такой макрос или шаблон, чтобы они появлялись автоматически или хотя бы нажатием одной клавиши?
Буду признателен за помощь.

[Скрипт]

Seven11,

1. какая версия у вас программы Word - 2003, 2007 или другая?
2. нужно вставлять именно по одной фразе или можно сначала набрать нужный текст, а затем просто одним нажатием клавиши проставить в начале набранного текста нужные фразы?
3. у вас текст находится в таблице или просто в документе? Как лучше?

[Ципихович Эндрю]

ну и к Пунто Свитчеру приглядитесь и к соседней теме: http://www.programmersforum.ru/showthread.php?t=227430

[Казанский]

Можно сначала набрать текст без этих символов, а потом вставить их с помощью поиска-замены.
Шаблон поиска "(^13)([!^13]@^13)" без кавычек,
шаблон замены "\1М. \2Р. " без кавычек.
Подстановочные знаки.
Перед текстом должен быть знак абзаца.

[Seven11]

Сообщение от Скрипт

Seven11,

1. какая версия у вас программы Word - 2003, 2007 или другая?
2. нужно вставлять именно по одной фразе или можно сначала набрать нужный текст, а затем просто одним нажатием клавиши проставить в начале набранного текста нужные фразы?
3. у вас текст находится в таблице или просто в документе? Как лучше?

1) Ворд 2007
2) в принципе, без разницы, главное чтобы результат был)
3) текст в простом документе

еще забыл сказать что количество М. и Р. в тексте может быть не равно. Например, сначала идет строчка, где в начале стоит М. а потом может быть несколько строчек Р. Затем снова М. и так далее

[Seven11]

Сообщение от Ципихович Эндрю

ну и к Пунто Свитчеру приглядитесь и к соседней теме: http://www.programmersforum.ru/showthread.php?t=227430

что такое Пунто Свитчер пока не знаю) попробую разобраться, спасибо

[Seven11]

Казанский, спасибо, работает, но это не совсем то. Как быть, если надо, чтбоы заменялось не по порядку. Если сначала идет реплика М. , а потом может быть один или несколько ответов Р.

[Скрипт]

Вариант с использованием Экспресс-блоков.

1. Закройте программу Word;
2. запустите программу Word. Откроется новый документ;
3. введите текст:
   М.
4. вкладка Главная - группа Абзац - нажмите кнопку Отобразить все знаки, чтобы отобразить в Word-документе специальные символы;
5. выделите текст "М." без знака абзаца;
6. вкладка Вставка - группа Текст - Экспресс-блоки - Сохранить выделенный фрагмент в коллекцию экспресс-блоков...;
7. просто нажмите OK;
8. закройте программу Word. Появятся два сообщения. Во втором сообщении выберите Да.

Запустите программу Word, вкладка Вставка - группа Текст - нажмите кнопку Экспресс-блоки. Откроется список, в котором будет только что добавленный вами элемент. Выберите свой элемент и в документ будет вставлен нужный текст.


Примечание

Экспресс-блоки появились в Word 2007. В Word 2003 - это называлось "Автотекст".

[Скрипт]

Вариант с использованием макроса.

Макрос работает так: ставите курсор в абзац, в начале которого нужно вставить фразу "М.", запускаете макрос.

Sub Procedure_1()

    Selection.Paragraphs(1).Range.InsertBefore Text:="М."

End Sub

В Word 2007 для запуска макроса можно сделать или сочетание клавиш, или кнопку на Панели инструментов. В Word 2007 на ленту нельзя средствами программы Word добавить кнопку для вызова макроса.

[Seven11]

Скрипт, спасибо, вечером попробую все это проделать. о результатах сообщу)