Я пытаюсь сделать макрос из MS-слова для увеличения всех чисел в документе Word, которые заключены в квадратные скобки, например, оригинальные числа [1] [2] [3] [4], после увеличения всех чисел на 10 вышеупомянутые числа будут изменено на [11] [12] [13] [14]

Я застрял в коде ниже и не знаком с VBA раньше. Может кто-нибудь предложить, что добавить в код ниже, чтобы выполнить выше макрос ??

Sub IncrementNumbers()
'
' IncrementNumbers Macro
'
'

Application.ScreenUpdating = False
Dim RngStory As Range, StrStart As String, StrEnd As String
StrStart = "["
StrEnd = "]"
Set RngStory = ActiveDocument.Range
With RngStory.Find

Некоторый код здесь, чтобы увеличить и заменить числа

Set RngStory = Nothing
Application.ScreenUpdating = True
End Sub