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

[berezka04]

Доброе время суток.
Помогите, пожалуйста, с помощью макроса в ворде решить вот такую задачку.
Нужно заменить нижний регистр букв на верхний у текста, который записан в кавычках после определенного слова. Например,

12.00 Сериал "Богатые тоже плачут"
13.00 "Новости"

На выходе должно получиться вот что:

12.00 Сериал "БОГАТЫЕ ТОЖЕ ПЛАЧУТ"
13.00 "Новости"

Названия сериалов, как вы понимаете, могут быть разные.
Ваш форум - моя последняя надежда . Заранее спасибо.

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

определённое слово это - Сериал???

[berezka04]

Да.
Но может быть и другое "определённое" слово. Наример, Х/ф.

[Sasha_Smirnov]

Тут есть более глобальная программа-телепрограмма: http://programmersforum.ru/showthrea...F0%E0%EC%EC%FB

[berezka04]

Спасибо, но мне не нужна глобальная программа. Мне нужен маааааленький макросик Ту тему я просмотрела и по моему вопросу там ничего нет.

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

Программа несложна, главное список слов, остальное просто............

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

Вообще самый простой способ открыть окно Найти и Заменить, поставить флажок Подстановочные знаки, скопировать текст в поле Hайти во вложении, в поле заменить поставить Все прописные и записать на действиях Макрос

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

Сорри, вот вложение

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

Можно знаки кавычек кодом набрать, но боюсь для Вас это сложно, в данном вложении кавычки набраны так как надо............

[Казанский]

Может, так надо: текст в кавычках сделать прописным, если он идет не сразу после времени, т.е. первая кавычка отстоит более чем на 9 символов от начала строки:

Sub berezka04()
Dim i&, s$, q1&, q2&
With ActiveDocument.Paragraphs
    For i = 1 To .Count
        s = .Item(i).Range.Text
        q1 = InStr(s, """")
        If q1 > 9 Then
            q2 = InStr(q1 + 2, s, """")
            If q2 Then
                Mid(s, q1) = UCase$(Mid$(s, q1, q2 - q1))
                .Item(i).Range.Text = s
            End If
        End If
    Next
End With
End Sub

Пробовал на таком тексте:

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