Stop a Find.Execute loop

Discussion in 'Word VBA Beginners' started by AG, Apr 28, 2011.

  1. AG

    AG Guest


    This is probably easy, but I don't find the answer. Here is my macro (Office 2007). It enumerates my titles, but when reaching the last one, it loops over it again and again. I have tried the different .Wrap possibilities, but they all give the same result. How can I stop my search after having enumerated all my titles?


    Sub macro1()
    Dim rgDcm As Range

    Set rgDcm = ActiveDocument.Range

    With rgDcm.Find
    .Style = ActiveDocument.Styles("Titre 1")
    .Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With

    Do While rgDcm.Find.Execute
    MsgBox rgDcm.Text
    End Sub
    AG, Apr 28, 2011
    1. Advertisements

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments (here). After that, you can post your question and our members will help you out.