Смена регистра у текста в кавычка после заданного слова

[Пименов Александр]

Попробуйте это, у меня получился текст так:
12.00 Сериал "Богатые тоже плачут"
13.00 "Новости"
14.32 Х/ф "летят журавли"
15.32 Худ фильм спектакль "стакан воды"
17.45 Дневные вести
___________________________________ ______

12.00 Сериал "БОГАТЫЕ ТОЖЕ ПЛАЧУТ"
13.00 "НОВОСТИ"
14.32 Х/ф "ЛЕТЯТ ЖУРАВЛИ"
15.32 Худ фильм спектакль "СТАКАН ВОДЫ"
17.45 Дневные вести
___________________________________ ________
Код поиска: ["«“„][А-яЁё ]{2;}["«”]

[Казанский]

Александр,
так "Новости"-то не надо, см. первый пост.

[Пименов Александр]

Новости проще убрать, ведь автор не указал список словоформ в кавычках, надо убирать кавычки из Новостей

[Пименов Александр]

Интересно, как вы кодом их распознаете?

[Пименов Александр]

Надо один лишь раз макрос внимательно записать, а насчет списка тоже один раз аккуратно составить или Вы считаете ТВ программу верхом форматирования, наверняка этим вопросом новый верстальщик задается, не важно для интернета он файл форматирует или для печати.............

[Пименов Александр]

Что за лень у людей, им лучше вручную исправить 1000 знаков без макроса чем 10 с макросом.............

[Пименов Александр]

15.32 Худ фильм спектакль "стакан воды" — в сокращении даже точка не стоит

[berezka04]

Пименов Александр, спасибо, что откликнулись. Дело в том, что записывать макрос я пробовала. В итоге получается что-то типа того (см. ниже). И вроде, когда записываешь, то всё работает. Но, включая его повторно, он не хочет ничего делать.


Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFor matting
With Selection.Find
.Text = "Сериал [""«]([A-Za-zА-Яа-яёЁ.,: --0-9\?\!]{1;})[""»]"
.Replacement.Text = "Сериал «\1»"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFor matting
With Selection.Find
.Text = "СЕРИАЛ"
.Replacement.Text = "Сериал"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Может, я, конечно, бестолковая. Не исключаю этой возможности

[berezka04]

Казанский, Вам тоже огромное спасибо! Ваш код вставила в свой готовый макрос для обработки программ, но я не до конца понимаю, как он работает. Дело в том, что время у нас в программе полужирное. Если вставить Ваш код в конце макроса, то он делает всю строчку полужирной. Я, конечно, догадалась, куда его нужно вставить, но всё равно хотелось бы знать, как это работает. Так сказать, описание программы словами для блондинок

Всем ещё раз огромное спасибо!