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