REM ***** BASIC ***** sub LRM xsel = thiscomponent.currentcontroller.getselection xrange = xsel(0) xrange.setstring(chr$(8206)) end sub sub RLM xsel = thiscomponent.currentcontroller.getselection xrange = xsel(0) xrange.setstring(chr$(8207)) end sub sub Insert_RTL_Footnote rem ---------------------------------------------------------------------- rem define variables dim document as object dim dispatcher as object rem ---------------------------------------------------------------------- rem get access to the document document = ThisComponent.CurrentController.Frame dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") rem ---------------------------------------------------------------------- dispatcher.executeDispatch(document, ".uno:InsertFootnote", "", 0, Array()) rem ---------------------------------------------------------------------- dim args2(0) as new com.sun.star.beans.PropertyValue args2(0).Name = "RightPara" args2(0).Value = true dispatcher.executeDispatch(document, ".uno:RightPara", "", 0, args2()) end sub