OpenOffice.info

super vielen dank! :)

Sub S_automatischer_Zeilenumbruch
    osel = thiscomponent.currentselection
    nRow = osel.Rangeaddress.StartRow
    osheet = thiscomponent.currentcontroller.ActiveSheet
    ocursor = osheet.createcursor
    ocursor.gotoendofusedarea(false)
    nEndcolumn = ocursor.Rangeaddress.Endcolumn
    oRow = osheet.rows(nRow)
    for i = 0 to nEndcolumn
        ocell = orow.getCellByPosition(i,0)
        ocell.IsTextWrapped = true
    next i
End Sub

Hi,
dies Makro funktioniert für die Zeile in der der Cursor steht:
[code]Sub S_automatischer_Zeilenumbruch
osel = thiscomponent.currentselection
nRow = osel.Rangeaddress.StartRow
osheet = thiscomponent.currentcontroller.ActiveSheet
ocursor = osheet.createcursor
ocursor.gotoendofusedarea(false)
nEndcolumn = ocursor.Rangeaddress.Endcolumn
oRow = osheet.rows(nRow)
for i = 0 to nEndcolumn
ocell = orow.getCellByPosition(i,0)
ocell.IsTextWrapped = true
next i
End Sub[/code]
Viel Erfolg,
Gruß R

Hallo,
im grunde bescheid der betreff schon mein ganzen problem.
ich möchte per makro für eine zeile eines calc dokumentes den automatischen zeilenumbruch einstellen.
im internet bin ich leider nicht fündig geworden :(

Gruß


[color=#800000]Moderation,4[/color]: verschoben in BASIC-Unterbereich, wo alle Makro-Fragen hin gehören; Betreff angepasst