Поиск и замена номеров

Question

Я использую много графиков в документах, и мне нужно их последовательно нумеровать. Я могу использовать следующее, чтобы найти следующее вхождение числа в тексте:

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

Однако это выбирает только первую цифру. Если я использую это, чтобы заменить 1 на 5, он работает нормально, но если заменяемое число равно 10, то в итоге я заменяю его на 50. Как мне убедиться, что я выбираю целое число, прежде чем заменить его?

Answer 1

Вот регулярное выражение, чтобы найти любое число:

<[0-9]{1,}

Я проверил на этом тексте:

5

50

500

5000 500 5000 20 5 00000000000

Очевидно, что шаблоны должны быть включены.