https://bugs.freedesktop.org/show_bug.cgi?id=58506
--- Comment #4 from Mikeyy <[email protected]> --- Thanks for help! You just need to delete few line from your code for macro to work. Don't know anything about macros, but it was trowing error and passed when I deleted 2 lines. Anyway, would be nice if this could be implemented. REM ***** BASIC ***** sub Wrap 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 ---------------------------------------------------------------------- dim args1(0) as new com.sun.star.beans.PropertyValue args1(0).Name = "WrapText" args1(0).Value = true dispatcher.executeDispatch(document, ".uno:WrapText", "", 0, args1()) end sub sub Unwrap 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 ---------------------------------------------------------------------- dim args1(0) as new com.sun.star.beans.PropertyValue args1(0).Name = "WrapText" args1(0).Value = false dispatcher.executeDispatch(document, ".uno:WrapText", "", 0, args1()) end sub -- You are receiving this mail because: You are the assignee for the bug.
_______________________________________________ Libreoffice-bugs mailing list [email protected] http://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs
