Basic Macro file to be run in a batch process in v8i

I have to change one border content in text format DMS to EDMS in 4500 sheets, i have created a Basic Macro(langues are pasted below) it  is working in sheet by sheet only , Anybody can help how to  process in Batch mode. Reply highly appreciated... 

Sub main
Dim startPoint As MbePoint
Dim point As MbePoint, point2 As MbePoint

' Start a command
MbeSendCommand "EDIT TEXT "

' Coordinates are in master units
startPoint.x = 0.451857#
startPoint.y = 0.005378#
startPoint.z = 0.000000#

' Send a data point to the current command
point.x = startPoint.x
point.y = startPoint.y
point.z = startPoint.z
MbeSendDataPoint point, 1%

' Send a message string to an application
' Content is defined by the application
MbeSendAppMessage "WORDPROC", "1 selection 13 18"

MbeSendAppMessage "WORDPROC", "1 moveCaretToPosition 13"

MbeSendAppMessage "WORDPROC", "1 selection 13 18"

MbeSendAppMessage "WORDPROC", "1 moveCaretToPosition 18"

MbeSendAppMessage "WORDPROC", "1 selection 13 18"

MbeSendAppMessage "WORDPROC", "1 moveCaretToPosition 18"

MbeSendAppMessage "WORDPROC", "1 selection 13 18"

MbeSendAppMessage "WORDPROC", "1 moveCaretToPosition 18"

MbeSendAppMessage "WORDPROC", "1 selection 13 18"

MbeSendAppMessage "WORDPROC", "1 moveCaretToPosition 18"

MbeSendAppMessage "WORDPROC", "1 selection 13 18"

MbeSendAppMessage "WORDPROC", "1 moveCaretToPosition 13"

MbeSendAppMessage "WORDPROC", "1 selection 13 18"

MbeSendAppMessage "WORDPROC", "1 keypress 69 0 0 0 0 0 0 0 0 0 0 0 1"

MbeSendAppMessage "WORDPROC", "1 keypress 68 0 0 0 0 0 0 0 0 0 0 0 1"

MbeSendAppMessage "WORDPROC", "1 keypress 77 0 0 0 0 0 0 0 0 0 0 0 1"

MbeSendAppMessage "WORDPROC", "1 keypress 83 0 0 0 0 0 0 0 0 0 0 0 1"

point.x = startPoint.x - 0.014170#
point.y = startPoint.y - 0.004074#
point.z = startPoint.z
MbeSendDataPoint point, 1%

MbeSendCommand "MODIFY TEXT "

point.x = startPoint.x + 0.001466#
point.y = startPoint.y - 0.001141#
point.z = startPoint.z
MbeSendDataPoint point, 1%

point.x = startPoint.x + 0.001955#
point.y = startPoint.y - 0.001304#
point.z = startPoint.z
MbeSendDataPoint point, 1%

MbeSendCommand "CHOOSE ELEMENT "
End Sub