✔ .Doc bis zum Ende durchsuchen mit VBA

[AzraelCole]

Hi,
ich hab versucht mir ein Makro zuschreiben, dass ein bestehendes Worddokument durchsucht. Allerdings will das nicht so wie ich will.
Mit der EOF Funktion kam ich gar nicht klar, das Dokument ist ja schon geöffnet. Hab das dann folgendermassen versucht:

    Var1 = True 
    
    While (Var1 = True) 
        If Selection.End = ActiveDocument.Range.End Then 
           Var1 = False 
        End If 
    Selection.Find.ClearFormatting 
     With Selection.Find 
        .Text = "^g" 
        .Forward = True 
        .Wrap = wdFindContinue 
     End With 
    Selection.Find.Execute 
    Wend

Allerdings scheint die If Anweisung nie true zu werden, das ganze Ding verhält sich wie eine Endlosschleife.

Jemand ne Idee, was da falsch ist, bzw. wies richtig heissen muss?
Danke!

 

[DrSoong]

Versuchs mal so:

Selection.Find.ClearFormatting
With Selection.Find
 Do While .Execute(FindText:="^g", Forward:=True, Format:=True) = True
  'Noch dein Code wenn gefunden
 Loop
End With

Der Doc!