Cyklus – Visual Basic – Fórum – 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

Snazil bych se zmenit max, ktere pokud se nemylim je nyni na hodnote 10.
Prepsal bych to na enco dynamickeho....mozna by pomohlo nejdrive zjistit pocet techto slov,
ktera nahrazujes.

Cyklus FOR ve vsech jazycich VZDY POCITA S PREDEM ZNAMYM POCTEM OPAKOVANI !!
Mam trosku pocit, ze tady to neni tak jasne.

Co zkusit jiny cyklus nez FOR ?