How to change text flow direction in a table with macro?

[Hung Mark]

How to change text flow direction in a table with macro?
I guess it may be VertOrient of a Cell, however it is always 0.

Below is my snippet:


Sub Snippet

  Dim oCurrentController As Variant
  Dim oViewCursor As Variant
  Dim oCell As Variant
  Dim nVertOrient As Integer

  oCurrentController = ThisComponent.getCurrentController()
  oViewCursor = oCurrentController.getViewCursor()
  oCell = oViewCursor.Cell

  nVertOrient = oCell.VertOrient
msgbox nVertOrient
End Sub



-- 
Mark Hung