А в чем проблема? Она на одну замену и расчитана...
Если хочешь все вхождения поменять вызывай в цикле, пока возвращает True. Или переделай внутри, что бы в цикле вызывалась:
Код:
if W.Selection.Find.Execute then
заменить на:
Код:
While W.Selection.Find.Execute Do