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

VP
На сайте с 20.04.2015
Offline
5
835

Ребята, кто в 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

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

Авторизуйтесь или зарегистрируйтесь, чтобы оставить комментарий