Endless- loop in find sequenz

[Paul Haboeck]

Hallo

I use the following VB code for to go over through all sections of a
document.


With ActiveDocument.Content.Find
.ClearFormatting
.Text = ""
.Format = True
.Style = intHead_Type
.Forward = True
.Wrap = wdFindStop
While .Found = True

Set oRng = .Parent
MsgBox oRng.Text

.Execute
Wend
End With


I receive thereby all heading texts, but the loop is never terminated. The
last heading comes endlessly.

What can the cause for this problem be?

Thank you for assistance and suggestions...

Paul