cellのIsTextWrappedをTrueに設定するだけです。
Sub ksTextWrap
Dim oDoc as Object
Dim objSheet as Object
Dim cellRange as Object
objSheet = ThisComponent.getSheets().getByIndex(0)
cellRange = objSheet.getCellByPosition(0, 0)
cellRange.IsTextWrapped = True
End Sub