Set property of selected cell range in a textable in Writer

[Hung Mark]

I'm not sure if I it is possible to make cell enumeration based on the
CellRange
so that i can set property for each cell. Setting the property of a
CellRange seems not work.
Please advice, thank you.

Sub Snippet
  Dim oCurrentSelection As Variant
  Dim sRangeName As String
  Dim oCurrentController As Variant
  Dim oViewCursor As Variant
  Dim oTextTable As Variant
  Dim oCellRangeByName As Variant

  oCurrentSelection = ThisComponent.getCurrentSelection()
  sRangeName = oCurrentSelection.getRangeName()
  oCurrentController = ThisComponent.getCurrentController()

  oViewCursor = oCurrentController.getViewCursor()
  oTextTable = oViewCursor.TextTable
  oCellRangeByName = oTextTable.getCellRangeByName(sRangeName)
  oCellRangeByName.setPropertyValue("WritingMode",2)

End Sub

-- 
Mark Hung