Ошибки в прямой речи

[Scolopendra]

Здравствуйте, уважаемые форумчане!

У меня имеется художественный текст (OCR) со множеством прямой речи. Перед распечаткой стараюсь довести его до нормального состояния. Проблема — есть ошибки типа:

- Я сделаю. - Сказал он.

Надо:

- Я сделаю, - сказал он.

Вариант проверки:
Ищем абзацы с ошибкой

(^0013^=^s[!^0013^=]@)([.\!\?^0133])(^s^=^0032)([A-ZА-ЯЁё])

Визуально проверяю, есть ли ошибка. Если есть:

• стрелка вправо (снимаем выделение), Shift+стрелка влево — выделяем искомую букву, Shift+F3 заменяем строчную прописной;
Если после прямой речи должна быть запятая, продолжаем:
• делаем 4 шага влево (чтобы добраться до точки), Backspase (удаляем символ слева — точку), вставляем запятую.

Окно поиска можно убрать и продолжать поиск с помощью Ctrl+PgDn

Записать последовательность действий я могу, но
Вопрос, как можно сделать подтверждение действия №1?
Как сделать подтверждение действия №2?

Возможно просто разбить на два макроса.
Или вырезать в буфер знак препинания, проверить программно, и если это точка (не !.. или ?.. хотя это можно позже поправить), заменить на запятую. Затем вставить обратно.

Ну или просто дайте хороший совет, как решить (Может быть можно, всё-таки, менять регистр через «Поиск и замену»? :-)

К сожалению, не могу вставить картинку с образцом

[EducatedFool]

К сожалению, не могу вставить картинку с образцом

Картинки имеет смысл выкладывать на форумах по Photoshop-у...

Прикрепите к сообщению файл Word (предварительно упаковав его в архив, если файл велик по размеру) - так Вы дождетесь помощи гораздо быстрее.

[viter.alex]

Почему такое сложное выражение для поиска? У меня получается найти таким выражением:
(- *)([\!\?.])( - [A-ZА-ЯЁ])
Что стоит вначале прямой речи? Согласно правил вёрстки, там должно стоять длинное тире (—) и неразрывный пробел.
Что стоит после знака препинания, отделяющего прямую речь? Там должен стоять неразрывный пробел и длинное тире
Поиском и заменой можно заменить знак препинания на запятую, но регистр изменить не получится. Придётся писать макрос. Он будет несложный.
Но для начала нужно определиться с поисковым выражением.

[Sasha_Smirnov]

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

- Я сделаю. - Сказал он.

Надо:

- Я сделаю, - сказал он.

...Shift+стрелка влево — выделяем искомую букву, Shift+F3 заменяем строчную прописной;
Если после прямой речи должна быть запятая, продолжаем

Sub GoSo()
Static da As Long: If da = 0 Then MsgBox "Правка первой буквы слов автора при прямой речи."
Dim strProblemSector As String, bytPSLen As Byte
' GoSo Макрос
' Предлагает оставить/изменить регистр первой буквы слов автора.'
Selection.HomeKey wdStory

Nastroyka

    Do While Selection.Find.Execute
    da = MsgBox("Изменить?", vbDefaultButton2 + vbMsgBoxRight + vbInformation + vbYesNo)
        If da = vbYes Then
            strProblemSector = Selection.Text
            bytPSLen = Len(strProblemSector)
            If bytPSLen < 2 Or bytPSLen > 100 Then MsgBox "Найденное нестандартно."
            Selection.Collapse wdCollapseEnd
            
            SendKeys "+{left}", True             '<Shift>+<Left>'
            Selection.Range.Case = wdToggleCase
            Selection.Collapse
            
            Nastroyka

'            SendKeys "^{pgdn}", True             '<Ctrl>+<PageDown>'
            da = 0
            End If
    Loop
    
    With Selection.Find
    .Text = ""
    .Replacement.Text = ""
    .MatchWildcards = False
    End With 'умыли руки'
End Sub

Sub Nastroyka()
    With Selection.Find
    .Text = "[^45^0150^0151^0132^0147^0171]@[!^13^11]@ [^45^0150^0151]@ {1;}[A-zА-я]"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .MatchWildcards = True
    End With 'настроили инструмент'
End Sub

[Scolopendra]

Всё-таки картинка объяснила бы (я так думаю), что я хочу (для EducatedFool) и почему такая сложная формула (для viter.alex) — она ищет до второго среднего тире внутри абзаца, в общем, то что мне надо в данном конкретном тексте. Но вопрос был немного в другом: нужен код для возможности выбора.
За него отдельное спасибо Sasha_Smirnov и за найденную ошибку. Пойду разбираться с кодом, потому что элементарные для вас вещи для меня — тёмный лес.
Кстати, не в обиду, согласно требует дательного падежа.

[Scolopendra]

Для Sasha_Smirnov.
Попробовал ваш макрос. Сработал он только с моим выражением поиска (ну это и понятно, я-то видел свой текст ).
Но сработал наполовину — после подтверждения меняет регистр всего слова, а не его первой буквы. Т.е. «Слово» на «сЛОВО».
И ещё вопрос, можно ли как-то прервать работу макроса, а то до конца текста не отпускает (и крестик диалогового окна [X] — серый)?
Спасибо за помощь.

[viter.alex]

Замените цикл Do…Loop на такой:

  Do While Selection.Find.Execute
    da = MsgBox("Изменить?", vbDefaultButton2 + vbMsgBoxRight + vbInformation + vbYesNoCancel)
    Select Case da
      Case vbYes 'Если в диалоге нажали «Да»
        If Len(Selection.Text) < 2 Or Len(Selection.Text) > 100 Then MsgBox "Найденное нестандартно."
        'Изменяем регистр последнего символа:
        Selection.Characters.Last.Case = wdToggleCase
        'Заменяем точку на запятую
        If Selection.Characters.Last.Previous.Previous.Previous.Previous.Text = "." Then
          Selection.Characters.Last.Previous.Previous.Previous.Previous.Text = ","
        End If
        Nastroyka
        da = 0
      Case vbNo 'Если в диалоге нажали «Нет»
        Nastroyka
        da = 0
      Case vbCancel 'Если в диалоге нажали «Отмена»
        Exit Do
    End Select
  Loop

[Scolopendra]

Для viter.alex.
Макрос работает как надо. Но теперь выбрасывает каждый раз после нажатия «Да».
И ещё — «для повышения образованности» — поясните, пожалуйста, для чего проверяется Len(Selection.Text) > 100? Это ведь длина выделенного текста?

[viter.alex]

А я не знаю для чего. Это же Sasha_Smirnov придумал
Я понял почему выбрасывает: нужно сжимать выделение после каждого поиска, чтобы можно было искать в оставшемся документе:

  Do While Selection.Find.Execute
    da = MsgBox("Изменить?", vbDefaultButton2 + vbMsgBoxRight + vbInformation + vbYesNoCancel)
    Select Case da
      Case vbYes 'Если в диалоге нажали «Да»
        If Len(Selection.Text) < 2 Or Len(Selection.Text) > 100 Then MsgBox "Найденное нестандартно."
        'Изменяем регистр последнего символа:
        Selection.Characters.Last.Case = wdToggleCase
        'Заменяем точку на запятую
        If Selection.Characters.Last.Previous.Previous.Previous.Previous.Text = "." Then
          Selection.Characters.Last.Previous.Previous.Previous.Previous.Text = ","
        End If
        Nastroyka
        da = 0
      Case vbNo 'Если в диалоге нажали «Нет»
        Nastroyka
        da = 0
      Case vbCancel 'Если в диалоге нажали «Отмена»
        Exit Do
    End Select
    'Сжимаем выделение
    Selection.Collapse wdCollapseEnd
  Loop

[Sasha_Smirnov]

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

Для viter.alex...
Len(Selection.Text) > 100? Это ведь длина выделенного текста?

Ага! Предполагал защиту от непредсказуемости звёздочки (*). И на всякий случай оставил.

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

И ещё вопрос, можно ли как-то прервать работу макроса...

Добавить кнопку отмены (выхода из программы). Что и сделал viter.alex! Порадовал, однако.
P/s. Тёмный лес Word и для меня. Но есть макрос типа «Правлю всё!», 4 месяца отлаживал!..