Word 2003 macro help required

Hi

I have this logic with me and looking to get word 2k3 macro programmed out of it, but as non programming knowledge it seems out of reach....

Here is the logic

Find a digit within [] (any number of digits)
Copy what is inside of [] and store that as a Temp value
A=temp x 2
B= A-1
EQ=<XXX_B><XXX_A>Temp<XXX>


KINDLY suggest