Tìm kiếm và thay thế số

Tôi sử dụng rất nhiều biểu đồ trong tài liệu và cần đánh số lại chúng liên tục. Tôi có thể sử dụng cách sau để tìm sự xuất hiện tiếp theo của một số trong văn bản:

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

Tuy nhiên, điều này chỉ chọn chữ số đầu tiên. Nếu tôi sử dụng số này để thay thế 1 bằng 5, nó hoạt động tốt, nhưng nếu số được thay thế là 10, thì cuối cùng tôi sẽ thay thế bằng 50. Làm cách nào để đảm bảo rằng tôi đang chọn toàn bộ số trước khi thay thế?

Đây là regex để tìm bất kỳ số nào:

<[0-9]{1,}

Tôi đã thử nghiệm trên văn bản này:

5

50

500

5000 500 5000 20 5 00000000000

Rõ ràng, các ký tự đại diện phải được kích hoạt.