Помогите брюнетке с написанием ооочень сложного макроса

[@лёнк@]

Доброго времени суток!
Мне нужно упростить редактирование текста и я знаю, что в этом должен помочь макрос, но у меня не хватает знаний, чтобы его написать.
Пример прикрепила и подписала, где исходный текст и то, что должно получиться.
Если кто-то разберется, как облегчить мне жизнь, буду очень благодарна!

[Smitt&Wesson]

Вам в бинарном, или в развёрнутом формате?

В бинарном:
М: как вы оцениваете то, что происходит в Киеве? = FALSE
Л: (жен, 67 лет): оценка может быть только одна – это захват власти. = TRUE
МО: (муж, 48 лет): антиконституционный переворот. = TRUE
Вопрос исчерпан?

[@лёнк@]

Объясню задачу полностью. Еще раз сделаю акцент, что я понятия не имею, как все это делать. Знаю только, как создать макрос и могу вставить конструкцию, которую вы мне поможете написать))) Я занимаюсь транскрибацией текстов и затем мне нужно отредактировать текст по определенному шаблону. Ручками это занимает по два часа. Объемы текстов очень большие.
Что мне нужно при редактировании моей работы:
1. Начало каждой строчки до двоеточия включительно выделить жирным, например, "МО:" или "Л:", или любое другое начало реплики с двоеточием.
2. После каждого начала реплики "М:" (буква М, двоеточие, пробел), всю реплику выделить жирным шрифтом.
3. Перенести конструкцию из скобок и двоеточия, например, "(муж, 48 лет):" или "(жен, 67 лет):", из начала строки в конец, чтобы после точки стояло два пробела и конструкция из скобок.
4. После переноса скобок с двоеточием, удалить двоеточие в конце.
5. Удалить пустые строки, которые идут между репликами.

Вот как-то так.... Возможно такое?

[shanemac51]

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

Sub w140425_1221()
Dim pr As Paragraph
'эDim r As Range
Dim s1, s2, s21, s22, s23
Dim j1, j1k, j2, j3, j3k

j1k = Word.ActiveDocument.Paragraphs.Count
Do While j1k > 0
With Word.ActiveDocument.Paragraphs(j1k)
s1 = .Range.Text

    If Len(s1) < 3 Then
    .Range.Delete
    Else
    j2 = InStr(s1, ":")
    j3 = InStr(s1, "(")
    j3k = InStr(s1, "):")
        If j3 > 0 And j3k > j3 Then
        s21 = Mid(s1, 1, j3 - 1)
        s22 = Mid(s1, j3, j3k - j3 + 1)
        s23 = Mid(s1, j3k + 2)
        s23 = Replace(s23, Chr(13), ",")
        s23 = Replace(s23, Chr(10), "w`")
        
        s2 = s21 & s23 & s22 & Chr(13) & Chr(10)
        .Range.Text = Replace(s2, "  ", " ")
        
        Do While j2 > 0
        Word.ActiveDocument.Paragraphs(j1k).Range.Characters(j2).Font.Bold = True
        j2 = j2 - 1
        Loop
        
        Else
        
        .Range.Font.Bold = True
        End If
    
    End If


End With
j1k = j1k - 1
Loop


End Sub

[@лёнк@]

shanemac51, спасибо большое!!!!! Это волшебство какое-то!!!)))
Только нужно поправить еще вот что: когда перенеслись конструкции со скобочками в конец строки, между точкой и скобками появилась запятая, а надо просто два пробела после точки.

[shanemac51]

s23 = Replace(s23, Chr(13), " ")

[@лёнк@]

не выходит((( эту строку нужно вставить вместо
s23 = Replace(s23, Chr(13), ",") ?

[shanemac51]

да, надо заменить строку

[@лёнк@]

shanemac51, все получилось!!! Так здорово!! Даже не знаю, как вас за это отблагодарить!!

shanemac51, а еще один вопросик, как убрать лишние пробелы после двоеточия в начале строки? чтобы после, например, "МО:" стоят только один пробел?

[shanemac51]

s2 = s21 & s23 & s22 & Chr(13) & Chr(10)
s2=Replace(s2, "  ", " ")
s2=Replace(s2, "  ", " ")
s2=Replace(s2, ":  ", ": ")
 .Range.Text = s2