Cyklus – Visual Basic – Fórum – Programujte.com

Rozšířené hledání ›

Nejnovější témata ve fóru

22:06, Startupy Megastroj.cz – Vše na jednom místě: půjčovna, bazar a inze…

21:17, Inzerce FPGA vývojová deska XILINX VIRTEX 5 ML507

20:59, OS - GNU / Linux Ubuntu a OpenSuse

21:47, Offtopic Digitalizace v Česku

10:10, Cinema 4D Export USDC do DaVinci Resolve

16:58, Photoshop Jak odstranit (potlačit) odlesky

Stavba Laser Arény
Laser Game Brno

Cyklus

Jirka

~ Anonymní uživatel
~ 305 příspěvků

2. 3. 2009 #1

    

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

Daným cyklem vybírám jednotlivé řádky Word tabulky obsahující slovo "Vyhovuje". Když cykl proběhne a dojde na konec stránky, vypíše se hlášení, zda chci pokračovat znovu od začátku dokumentu. Nevím, jak se toho zbavit nebo jak z toho cyklu vyskočit, když podmínka nevyhovuje??? Děkuji Jiří Kašpar.

Nahlásit jako SPAM

IP: 160.218.228.–

PADAM

~ Anonymní uživatel
~ 3 příspěvky

28. 5. 2009 #2

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 ?

Nahlásit jako SPAM

IP: 80.188.188.–

← Zpět na seznam vláken ← Zpět do Fóra