GetStatus() As Integer

Dim mobjDocCont As Object

Dim objWrd As Object

Dim objField As Object

Dim strValStr As String

Dim intNoOfWords As Integer

Dim intNoOfBoxes As Integer

Dim intItrpStatus As Integer

Dim intTmpLeft As Integer

Dim intTmpRight As Integer

Dim intTmpTop As Integer

Dim intTmpBottom As Integer

Set mobjDocCont = Application.FindAllObjects(0)

intNoOfWords = mobjDocCont.GetNoOfWords()

intNoOfBoxes = mobjDocCont.GetNoOfBoxes()

 

Set objWrd = mobjDocCont.GetFirstWord()

Call objWrd.Interpret("A(1-50)", 2+4, False)

strValStr = objWrd.GetValueStr()

objField.SetValueStr (strValStr)

Call objWrd.GetPosition(intTmpLeft, intTmpRight, intTmpTop, intTmpBottom)

Call objField.SetFieldRect(intTmpLeft, intTmpRight, intTmpTop, intTmpBottom)

intItrpStatus = objWrd.GetStatus()

Call objField.SetStatus(intItrpStatus)