Hi,

ich möchte verschiedene Daten in einem Bericht fett machen. Ich habe folgenden Code :

Dim intKontrolle As Integer


intKontrolle = 1


Do

    Selection.Find.Execute



    intKontrolle = intKontrolle + 1



    With Selection.Find

        .Text = ".01.03"

        .Font.Bold = wdToggle

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False


    End With



   Loop Until intKontrolle = 10



End Sub

Es wird jetzt jedoch nicht die gewüschten 10 mal sondern nur einmal gesprungen. Was kann ich falsch gemacht haben ???

Trace das ganze doch mal durch.

Mach Dir vor der Schleife einen Breakpoint, und setz dann intKontrolle auf Überwachung. Dann stepe das ganze mal mit F8 durch.

mh also ich weiß nicht wo dein problem liegt bei mir macht er das ganze 10 mal

aber LoneGunman hat schon recht debugge das ganze doch mal dann müsstest du den fehler erkennen (wenns denn einen gibt )