https://bugs.freedesktop.org/show_bug.cgi?id=61235

--- Comment #3 from Gitsy <[email protected]> ---
I think adding the following basic macros to the toolbar will do

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
-------------------------------------------------------------------------

REM  *****  BASIC  *****


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

Reply via email to