Макрос замены с переменной

[ekvador]

Всем привет!

Прошу помочь с такой задачей - нужно заменить слова "zamena" и "zamena2" на числа по нарастающей (1,2,3...)
Пример списка:

<track>
<location>www/zamena2.mp3</location>
<title>zamena</title>
</track>
<track>
<location>www/zamena2.mp3</location>
<title>zamena</title>
</track>
<track>
<location>www/zamena2.mp3</location>
<title>zamena</title>
</track>

[shanemac51]

Прошу помочь с такой задачей - нужно заменить слова "zamena" и "zamena2" на числа по нарастающей (1,2,3...)

а где в примере 1-2-3

[Ципихович Эндрю]

он же сказал:
>на числа по нарастающей (1,2,3...)
ему уже ответили на другом форуме....

[Ципихович Эндрю]

http://www.cyberforum.ru/vba/thread456473.html

[ekvador]

Да, уже ответили.
Кому интересно - вот код, рабочий, но с большим объемом почему-то не работает, максимум 250 значений обрабатывает:

Sub track_Zamena()
Dim MyString$, i%, n%
MyString = ActiveDocument.Content
n = 0
i = 1
Do
i = InStr(i, MyString, "zamena2", vbTextCompare)
If i > 0 Then
n = n + 1
MyString = Replace(MyString, "zamena2", Format(n), 1, 1, vbTextCompare)
End If
If InStr(1, MyString, "zamena<", vbTextCompare) > 0 Then
MyString = Replace(MyString, "zamena<", Format(n) & "<", 1, 1, vbTextCompare)
End If
Loop While i > 0
ActiveDocument.Content.Select
Selection.TypeText (MyString)
End Sub