[Iska]

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

[d22cva]

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