取得该列的内容,然后用Split分割:
Dim Parts() As String = CurrentTable.Current("文档").Replace(vbcr,"").Split(vblf)For i As Integer = 0 To Parts.Length - 1 output.show(Parts(i))Next