Vb y Word

[Phobos]

Hola A todos

buscando y buscando encontré algo que me sirve salvo un detalle.

Lo que hace mi aplicación es tomar ciertos datos de una bd y en base a una
plantilla de word genera un *.doc que lo guarda para su respectivo uso.

este el código que hace esto

Dim xWord As Word.Application
Dim xRange As Range
Dim xSelection As Find
Dim xTabella As Table
Dim xCella As Cell

Set xWord = New Application
xWord.Visible = False
xWord.Documents.Add App.Path & "\ori.dot"

Set xRange = xWord.ActiveDocument.Range
xRange.Find.Execute "%%texto%%", , , , , , , , , "Hola Mundo", True

xWord.Visible = True
xWord.Application.Activate


ahora yo en mi plantilla basta con que coloque %%texto%% y es reemplazado
por el Hola Mundo.
mi problema es que si yo coloco en mi plantilla repetido el %%texto%% solo
me lo reemplaza una sola vez. Y lo que yo quiero es que se reemplace tantas
veces este en la plantilla.

Supongo que es con el While pero no doy con la sentencia correcta para que
funcione.

Ayuda, no conozco mucho de VB y estoy medio perdido con este tipo de
controles,

Saludos