Word VBA Макросы. Как найти в тексте фрагменты, соответствующие шаблону чч:мм:сс?

[Посетитель]

В тексте есть таймкод. Таймкод это время, например: 00:05:55, 01:10:20.
Как найти и выделить такой таймкод?

[Администратор]

Sub Макрос()
    With ActiveDocument.Content.Find
        .Text = "[0-9]{2}:[0-9]{2}:[0-9]{2}"
        .MatchWildcards = True
        If .Execute Then
            .Parent.Select
        End If
    End With
End Sub

[Посетитель]

спасибо