[решено] Макрос для сдвига времени в телепрограмме.doc

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

Макрос для сдвига времени в телепрограмме.doc

Здравствуйте! Имею телепрограмму в вордовском документе с выходом временем выхода телепередач. Необходимо сделать сдвиг выхода передач на 3 часа(+3).(пример для наглядности ниже) Нужен макрос или может что-то можно подручными средствами ворда сделать? Буду признателен если поможете с макросом. Прикрепляю исходный документ proba.doc в архиве.

Исходные данные:

Скрытый текст

06:00 - 05:30 - Программа 1 16+
06:05 - Программа 2 16+
06:35 - Новости 16+
07:05 - Программа 3 16+
07:35 - Программа 4 16+
07:40, 15:40, 19:10, 22:10 - Программа 5 16+
...

Должно получиться так:

Скрытый текст

09:00 - 08:30 - Программа 1 16+
09:05 - Программа 2 16+
09:35 - Новости 16+
10:05 - Программа 3 16+
10:35 - Программа 4 16+
10:40, 18:40, 22:10, 01:10 - Программа 5 16+
...

d22cva, попробуйте так (макрос VBA, не скрипт WSH!):

Код:

Option Explicit



Sub Sample()

    Dim objCurrSelection As Range

    

    

    With selection

        Set objCurrSelection = .Range

        

        .Start = 0

        .End = 0

        

        With .Find

            .ClearFormatting

            .Text = "[0-9]{2}:[0-9]{2}"

            .Forward = True

            .Wrap = wdFindContinue

            .Format = False

            .MatchWildcards = True

            

            Do

                If .Execute() Then

                    selection.Text = Format(DateAdd("h", 3, CDate(selection.Text)), "Hh:Nn")

                Else

                    Exit Do

                End If

            Loop

        End With

        

        objCurrSelection.Select

        

        Set objCurrSelection = Nothing

    End With

End Sub

Iska, Всё работает как надо! Благодарю!