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

[Seven11]

Скрипт, это не совсем то, что нужно. если я правильно понял, то этим способом придется опять же вручную каждый раз тыкать сначала в начало строки, а потом на кнопку на панельке? тогда это мало упрощает работу, особенно если надо расставить М. и Р. в на десятках страниц текста)

[Seven11]

вариант, предложенный Казанский, решает проблему для текста вида
М. Здравствуйте...
Р. Привет
М. Вас зовут...
Р. Андрей

Но непонятно как сделать замену если текст например такой, когда М. и Р. идут вразброс:

М. Здравствуйте
Р. Привет
Р. Привет.
М. Вас зовут.
Р. ....
М. ....

[viter.alex]

Сообщение от Seven11

Скрипт, это не совсем то, что нужно. если я правильно понял, то этим способом придется опять же вручную каждый раз тыкать сначала в начало строки, а потом на кнопку на панельке? тогда это мало упрощает работу, особенно если надо расставить М. и Р. в на десятках страниц текста)

Повесьте на макрос сочетание клавиш, и не придётся каждый раз "тыкать" мышкой

[Seven11]

Сообщение от viter.alex

Повесьте на макрос сочетание клавиш, и не придётся каждый раз "тыкать" мышкой

использовать каждый раз сочетание клавиш - почти то же самое, что и каждый раз вручную набирать М.

[Sasha_Smirnov]

Ну не совсем: например, на F1 и F2 повесьте "М. " и "Р. " соответственно — раза в 3 быстрее!

Метод Казанского (думаю — не проверял) подойдёт и в случае, если идущие подряд реплики одного персонажа сделать одним абзацем — при этом вторая и следующие строки предваряются нажатием не Enter (новый абзац), а Shift-Enter (разрыв строки).

[viter.alex]

Сообщение от Seven11

использовать каждый раз сочетание клавиш - почти то же самое, что и каждый раз вручную набирать М.

Я так понял, что вам нужна одна кнопка "Сделать всё за меня" При наборе в начале каждой строки поставьте нужную букву, чтобы потом в конце заменить её на полный вариант. Например:
мЗдравствуйте...
рПривет
мВас зовут...
рАндрей
И затем, таким макросом пройтись:

Sub Ìàêðîñ2()
    With ActiveDocument.Range.Find
        .Text = "(^13)([мр])"
        .MatchWildcards = True
        .Replacement.Text = "\1\2. "
        .Replacement.Font.SmallCaps = False
        .Replacement.Font.AllCaps = True
        .Format = True
        .Execute Replace:=wdReplaceAll
    End With
End Sub

[Скрипт]

Seven11, тогда вам надо написать на Форуме, по какому признаку макросу отличить - что в этом абзаце нужно поставить такую-то фразу, а в другом абзаце - такую-то.

Представьте, что вы попросили сделать эту работу человека. Как бы вы объяснили человеку, что в данном случае нужно одну фразу ставить, а в другом случае - другую?

[Seven11]

В идеале нужен такой шаблон, чтобы после нажатия Enter сразу в начале нового абзаца автоматически ставилось "Р. ", а "М. " чтобы ставилось в результате какой-нибудь комбинации Enter+"какая-то другая клавиша".

Или другой вариант. Набрать сначала текст как обычно без всяких М. и Р. Там, где потом надо вставить М. - начинать абзац как обычно. Там, где потом надо вставить Р. - начинать абзац с пробела. Потом провести замену таким образом, чтобы перед обычным началом абзаца стояло "М. ", а перед абзацем, начинающимся с пробела - "Р. "

[viter.alex]

Сообщение от Seven11

Или другой вариант.

Я предложил не то же самое?

Сообщение от Seven11

В идеале нужен такой шаблон, чтобы после нажатия Enter сразу в начале нового абзаца автоматически ставилось "Р. "

К сожалению, отследить процесс набора не представляется возможным средствами VBA. Можно заморочиться через WinAPI, как тот же Пунто свитчер делает, но не стоит оно того

[Скрипт]

Seven11, а Shift + Enter вам не подходит для того, чтобы не разбивать текст на несколько абзацев?