OpenOffice.info

Code: Alles auswählen

def splitdata():
    doc = XSCRIPTCONTEXT.getDocument()
    sel = doc.getCurrentSelection()
    sheet = sel.Spreadsheet
    address = sel.RangeAddress
    first = address.StartRow
    last = address.EndRow
    firstCol = address.StartColumn
    data = sel.DataArray
    out = [row[0].split('-') for row in data ]
    width = max(len(row) for row in out )  
    for row in out:
        row.extend( [ '' ] * ( width - len( row ) ) )
    out = tuple( map( tuple, out ) )
    outrange = sheet.getCellRangeByPosition( firstCol,
                                             first,
                                             firstCol + width - 1,
                                             last )
    outrange.setDataArray( out ) 

Code: Alles auswählen

Sub S_text_to_columns
    oselection = Thiscomponent.currentselection
    if oSelection.columns.Count <> 1 then
        msgbox "Bitte nur Zellen in einer Spalte auswählen"
        exit sub
    endif
    adata = oselection.dataarray
    bMax = 0
    for i = 0 to ubound(adata)
        arow = adata(i)
        anewRow = Split(arow(0),"-")
        adata(i) = anewRow
        if ubound(anewRow) > bMax then bMax = ubound(anewRow)
    next i
    for i = 0 to ubound(adata)
        arow = adata(i)
        nStart = ubound(arow)
        if nStart < bMax then 
            redim preserve arow(bMax)
            for j = nStart+1 to bMax
               arow(j)= ""
            next j
            adata(i) = arow
        endif 
    next i 
    osheet = oselection.spreadsheet
    nStartRow = oselection.rangeaddress.Startrow
    nEndRow = oselection.rangeaddress.Endrow
    nColumn = oselection.rangeaddress.Endcolumn + 1
    oRange = osheet.getcellrangebyposition(nColumn,nStartRow,nColumn+bMax,nEndRow)
    oRange.setDataArray(adata)
End Sub

Code: Alles auswählen

sub Main
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 ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:TextToColumns", "", 0, Array())
end sub