Поиск символов в строке. Удалить строку, если их нет

[gauss_gauss]

Правлю макросом ТВ программу. Иногда попадаются строки (редко, но метко), которые нужно удалить.
В основном ТВ-программа обрабатывается нижеследующим кодом

PHP код:

With ActiveDocument.Content.Find
        .Text = "([0-9][0-9].[0-9][0-9]^0032)(*)(. Эпизод)(*)+"
        .Replacement.Text = "\1«\2»"
        .MatchWildcards = True
        .Execute Replace:=wdReplaceAll
End With 


дак вот строки, которые надо удалить не содержат времени, т.е. -> [0-9][0-9].[0-9][0-9], как создать условие, при котором мы не находим в строке [0-9][0-9].[0-9][0-9] и далее удаляем её?

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

>, только вверх

[gauss_gauss]

мммм...я честно говоря не понял

[Казанский]

Если каждая строка - это абзац, обработайте документ таким макросом:

Sub bb()
Dim p As Paragraph
For Each p In ActiveDocument.Paragraphs
    If Not p.Range.Text Like "*##.##*" Then p.Range.Delete
Next
End Sub

[gauss_gauss]

Если каждая строка - это абзац, обработайте документ таким макросом:

Вот оно решение, благодарю!