ShowTableDesc display the position of the specified cursor In a table. Example: ShowTableDesc Text.GetCursor(modeSame,cposCursor,False),"At cursor" displays the table position properties at the current cursor position. Note: this function require specific constants. See Constants for TxtPosDesc functions.

Sub ShowTableDesc(objCur,strCaption)

  Dim str

  If Not objCur.InTabulation Then

    str = "Not in a table"

  Else 

    str = "In a table"

    If objCur.TestTabulation(tpTable,True) Then

      str = str & vbCrLf & "At table beginning"

    End If

    If objCur.TestTabulation(tpTable,False) Then

      str = str & vbCrLf & "At table end"

    End If

    If objCur.TestTabulation(tpRow,True) Then

      str = str & vbCrLf & "At row beginning"

    End If

    If objCur.TestTabulation(tpRow,False) Then

      str = str & vbCrLf & "At row end"

    End If

    If objCur.TestTabulation(tpCell,True) Then

      str = str & vbCrLf & "At cell beginning"

    End If

    If objCur.TestTabulation(tpCell,False) Then

      str = str & vbCrLf & "At cell end"

    End If

  End If

  MsgBox (str,vbOkOnly,strCaption)

End Sub

 

See also ShowTxtPosDesc procedure.