Bug 61235

As far I can see , there isn't (Tools < Customize...). Therefore I mark this as enhancement. Thanks for reporting! Because there is also a (text) Wrap function in Draw (and Writer?) I mark this bug as component 'LibreOffice'.

Kind regards,
Joren

*** This bug has been marked as a duplicate of bug 58506 ***

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

Created attachment 75692 [details]
extension for wrap button

Please see the attached extension

http://extensions.libreoffice.org/extension-center/wrap-unwrap-insert-copied-row-or-column-and-paste-value/releases/1.0.1