It would have been better so start a new thread, however
Sub Macro1()
Dim oRng As Range
Dim i As Long
Set oRng = ActiveDocument.Range
With oRng.Find
.ClearFormatting
.Replacement.ClearFormatting
.Format = True
.Forward = True
.Wrap = wdFindStop
.MatchWildcards = True
.Replacement.Text = "^&"
.Text = "\[?@\]" 'find bracketed text
Do While .Execute
With oRng
.Start = .Start + 1 'omit the start bracket
.End = .End - 1 'omit the end bracket
For i = 1 To oRng.Characters.Count
If IsNumeric(oRng.Characters(i)) = True Then 'only format the numbers
'oRng.Characters(i).Font.Color = RGB(0, 0, 255) 'RGB blue
oRng.Characters(i).Font.Color = &HFF3F00 'Hex Blue
End If
Next i
.Collapse 0 'continue search from the end of the range
End With
Loop
End With
Set oRng = Nothing
End Sub