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 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