¿Cómo utilizar la programación VBA en Word para reemplazar el mismo contenido repetido por contenido diferente?

Sub Reemplazar()

En caso de error, Ir a xxx:

Atenuar rango como rango, n&, arr, a$

a = ActiveDocument.Content.Text

Establecer Rng = ActiveDocument.Content

Con Rng.Find

.ClearFormatting

.Replacement.ClearFormatting

arr = Array("El sol está sobre las montañas", "El río Amarillo desemboca en el mar", "Quiero verlo a mil millas de distancia", "Ir al siguiente nivel")

Hacer mientras .Execute (findtext:="El sol está sobre las montañas")

Rng = arr(n)

Rng.SetRange Rng.End, ActiveDocument. Content.End

n = n + 1

Bucle

Finalizar con

Ir a yyy:

xxx :

MsgBox "El número de entradas "El sol está sobre las montañas" en el documento supera las 4!"

yyy:

MsgBox "¡Conversión completada! "

Fin del subtítulo