Macro do MS Word para incrementar todos os números no documento do Word
Estou tentando fazer uma macro do MS-word para incrementar todos os números no documento do word que estão entre colchetes, por exemplo, números originais [1] [2] [3] [4], depois de aumentar todos os números em 10, os números acima serão alterado para [11] [12] [13] [14]
Estou preso no código abaixo e não estou familiarizado com o VBA antes. Alguém pode sugerir, o que adicionar no código abaixo para executar acima macro ??
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
Algum código aqui para incrementar e substituir números
Set RngStory = Nothing
Application.ScreenUpdating = True
End Sub