Hi Jörg, It is exactly what I need. Thank you.
2015-06-28 0:13 GMT+08:00 Jörg Schmidt <joe...@j-m-schmidt.de>: > Hello, > > > From: Hung Mark [mailto:mark...@gmail.com] > > > The feature might be rarely used by people other than CJK. > > I try to put capture the image and put some note to describe > > what I'm going > > to do: > > > > http://imagebin.ca/v/26gpFISx24bk > > > OK, I see the words "Western English" in the screenshot. Their orientation > shown you will receive with: > > 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 > > oCell.WritingMode = 2 > > End Sub > > > Jörg > > > > > --------------------------------------------------------------------- > To unsubscribe, e-mail: api-unsubscr...@openoffice.apache.org > For additional commands, e-mail: api-h...@openoffice.apache.org > > -- Mark Hung