Макрос в Word с заменой по порядку

Ребята, кто в VB шарит..

Пытаюсь сделать макрос в Word, который бы находил в тексте <p> и менял бы на <h1>.

Потом при следующем нахождении <p> заменил бы его на <h2>

И при следующем нахождении на <h3>

И остановился..

Пока получилось что то типа этого, но не работает:

Sub Поиски()

'

' Поиски Макрос

'

With Selection.Find

.ClearFormatting

.Replacement.ClearFormatting

.Forward = True

.MatchCase = False ' не Учитываем регистр искомого слова

.Text = "<p>" 'ищем слово

.Replacement.Text = "<h1>"  'производим замену

.Execute Replace:=wdReplaceOne

.Wrap = wdFindContinue

.Text = "<p>" 'ищем слово

.Replacement.Text = "<h2>"  'производим замену

.Execute Replace:=wdReplaceOne

.Wrap = wdFindContinue

.Text = "<p>" 'ищем слово

.Replacement.Text = "<h3>"  'производим замену

.Execute Replace:=wdReplaceOne

.Wrap = wdFindStop

End With

End Sub

Кто знает как??