Anonymní profil Jirka – Programujte.com

    

Dim i As Integer

    For i = 0 To 10

    Selection.GoTo What:=wdGoToTable, Which:=wdGoToFirst, Count:=8, Name:=""

    Selection.Find.ClearFormatting

    With Selection.Find

        .text = "Vyhovuje"

        .Replacement.text = ""

        .Forward = True

        .Wrap = wdFindAsk

        .Format = False

        .MatchCase = False

        .MatchWholeWord = True

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    End With

    While Selection.Find.Execute = True

    Selection.SelectRow

    Selection.Rows.Delete

    End If

    Next i