5.0 </div> </div> <div xml:id=" org="uniform" part="N" sample="complete" type="Chapter"> , , , , , , , , , , , , y1 Then y1 = y1new Next 'find the smallest x1 in the first word of any line ' and the largetst x2 in the last word of any line Set firstwordcoords = firstLine.selectNodes("WORD[1]/@coords") firstcomma = InStr(firstwordcoords.item(0).text, ",") x1 = cint(Mid(firstwordcoords.item(0).text, 1, firstcomma-1)) Set lastwordcoords = firstLine.selectNodes("WORD[position()=last()]/@coords") firstcomma = InStr(lastwordcoords.item(0).text, ",") secondcomma = InStr(firstcomma+1, lastwordcoords.item(0).text, ",") thirdcomma = InStr(secondcomma+1, lastwordcoords.item(0).text, ",") x2 = cint(Mid(lastwordcoords.item(0).text, secondcomma+1, thirdcomma-secondcomma-1)) For Each line In lines Set firstwordcoords = line.selectNodes("WORD[1]/@coords") firstcomma = InStr(firstwordcoords.item(0).text, ",") x1temp = cint(Mid(firstwordcoords.item(0).text, 1, firstcomma-1)) For Each coord In firstwordcoords firstcomma = InStr(coord.text, ",") x1new = cint(Mid(coord.text, 1, firstcomma-1)) If x1new < x1temp Then x1temp = x1new Next If x1temp < x1 Then x1 = x1temp Set lastwordcoords = line.selectNodes("WORD[position()=last()]/@coords") firstcomma = InStr(lastwordcoords.item(0).text, ",") secondcomma = InStr(firstcomma+1, lastwordcoords.item(0).text, ",") thirdcomma = InStr(secondcomma+1, lastwordcoords.item(0).text, ",") x2temp = cint(Mid(lastwordcoords.item(0).text, secondcomma+1, thirdcomma-secondcomma-1)) For Each coord In lastwordcoords firstcomma = InStr(lastwordcoords.item(0).text, ",") secondcomma = InStr(firstcomma+1, coord.text, ",") thirdcomma = InStr(secondcomma+1, coord.text, ",") x2new = cint(Mid(coord.text, secondcomma+1, thirdcomma-secondcomma-1)) If x2new > x2temp Then x2temp = x2new Next If x2temp > x2 Then x2 = x2temp Next getCoords= cstr(x1) + "," + cstr(y2) + "," + cstr(x2) + "," + cstr(y1) end function ]]>