VBA помогите разобраться!

Question

Есть код:

With ActiveDocument.Content.Find
.ClearFormatting
.MatchWildcards = False
.Text = "^p"
Do While .Execute() = True
With .Parent
.StartOf Unit:=wdParagraph, Extend:=wdMove
.InsertAfter "

"
.MoveEndUntil Cset:=vbCr, Count:=wdForward
.InsertAfter "<\p>"
.Move Unit:=wdParagraph, Count:=1
End With
Loop
End With

но он на самом последнем абзаце зацикливается ((
Как определить, что больше нет абзацев ?

Алексей Свет-Ясный · Accepted Answer

при каждом вхождении увеличивайте счетчикАбзацев и сравнивайте с 
ActiveDocument.Content.Paragraphs.Count 
как только они сравняются - вы на последнем абзаце :)