Buscar y reemplazar números

Utilizo muchos cuadros en los documentos y necesito volver a numerarlos secuencialmente. Puedo usar lo siguiente para encontrar la próxima aparición de un número dentro del texto:

Selection.Find.ClearFormatting
With Selection.Find
    .Text = "^#"

Sin embargo, esto selecciona solo el primer dígito. Si uso esto para reemplazar 1 con 5, funciona bien, pero si el número que se reemplaza es 10, entonces termino reemplazándolo con 50. ¿Cómo me aseguro de seleccionar el número completo antes de reemplazarlo?

Aquí hay expresiones regulares para encontrar cualquier número:

<[0-9]{1,}

He probado en este texto:

5

50

500

5000 500 5000 20 5 00000000000

Obviamente, los comodines deben estar habilitados.