typelib Word {00020905-0000-0000-C000-000000000046} 8.0 0x409 ;;Microsoft Word 8.0 Object Library, ver 8.0 Word.Application a._getactive Word.Table t=a.ActiveDocument.Tables.Item(1) ;;1 is table index int i nr=t.Rows.Count str s for i 1 nr+1 ,s=t.Cell(i 2).Range.Text ,s.fix(s.len-2) ,out s ,