Hello Hung! It should be enough:
Sub Snippet Dim oCurrentSelection As Variant oCurrentSelection = ThisComponent.getCurrentSelection()oCurrentSelection.setPropertyValue( "WritingMode", com.sun.star.text.WritingMode2.TB_RL )
End Sub Regards, Mathias --------------------------------------------------------------------- To unsubscribe, e-mail: api-unsubscr...@openoffice.apache.org For additional commands, e-mail: api-h...@openoffice.apache.org