OpenOffice.info

Hallo,

Danke für die Antworten... Das ist natürlich nicht so gut mit den fehlenden Bibliotheken. Also werde ich mich jetzt mal an die Neuinstallation machen...

Ich möchte wie im Betreff Doppelte Leerzeichen löschen, sorry für meine schlampige Ausdrucksweise.... Danke für die Lösungsvorschläge.

jkl

Sub Space_loeschen_1
	FuncAcc = createunoservice("com.sun.star.sheet.FunctionAccess")
	oSheet = ThisComponent.Sheets(0)
	oCell = osheet.getcellRangeByName("A1")
	aResult=FuncAcc.callFunction("Trim", array(oCell.String ))
	oCell.string = aResult
End Sub

Hi JKL,

[quote="jkl"]Ich fürchte mein Problem hat doch was mit dem Verzeichnis zu tun![/quote]
Jou, das sieht nicht gut aus.

Mir ist erst jetzt aufgefallen, dass Du in der Überschrift geschrieben hast:
[[uote="jkl"]Doppelte Leerzeichen[/quote]
und dann[quote="jkl"]Nun möchte ich die evtl. auftretenden Leerzeichen aus diesem Text löschen[/quote]

Was denn nun, doppelte bzw. mehrfache oder doch alle?

Für doppelte bzw. mehrfache kannst Du auch folgenden Code nehmen:
[code]Sub Space_loeschen_1
FuncAcc = createunoservice("com.sun.star.sheet.FunctionAccess")
oSheet = ThisComponent.Sheets(0)
oCell = osheet.getcellRangeByName("A1")
aResult=FuncAcc.callFunction("Trim", array(oCell.String ))
oCell.string = aResult
End Sub[/code]

Jürgen

Sorry für die Formatierung, aber das Board spinnt mal wieder. :twisted:

Vielen Dank! Ich fürchte mein Problem hat doch was mit dem Verzeichnis zu tun!

[attachment=0]temp1.png[/attachment]

Vielleicht muss ich mal OpenOffice komplett platt machen und alles neu installieren....

Trotzdem schon mal danke!!!

jkl

Sub Space_loeschen
	Dim oDoc as object
	Dim osheet as object
	odoc = ThisComponent
	osheet = odoc.sheets(0) 'erstes Tabellenblatt
	oRange = osheet.getcellRangeByName("$A1")' Zelle A1
	oSuchen = oRange.createReplaceDescriptor
	oSuchen.setSearchString(" ")'Leerzeichen suchen
	oSuchen.setReplaceString("") 'ersetzen durch nichts
	oRange.replaceAll(oSuchen)
End Sub

Hi JKL,

klick in Deinem angezeigten Dialog mal auf den Pfeil des Listenfeldes.
Dann siehst Du da bestimmt OpenOffice.org Makros&Dialoge.

Dort findest Du das gesuchte.

Wenn Du möchtest kannst Du aber auch dierekt folgenden Code einsetzen:
[code]Sub Space_loeschen
Dim oDoc as object
Dim osheet as object
odoc = ThisComponent
osheet = odoc.sheets(0) 'erstes Tabellenblatt
oRange = osheet.getcellRangeByName("$A1")' Zelle A1
oSuchen = oRange.createReplaceDescriptor
oSuchen.setSearchString(" ")'Leerzeichen suchen
oSuchen.setReplaceString("") 'ersetzen durch nichts
oRange.replaceAll(oSuchen)
End Sub[/code]

Viel Erfolg.

Jürgen

Also ich bin mir nicht ganz sicher: Ich hatte vor kurzem Probleme mit dem Update von Ubuntu... mein OO hat zwar gestartet, aber sobald ich Text eingegeben habe, ist es abgestürzt. Nach viel Suchen und ein paar Versuchen mit Deinstallation... habe ich schließlich in meinem Home-Verzeichnis den Ordner .openoffice2.0 gelöscht, danach lief alles wieder. Kann es sein dass ich damit auch die Bibliotheken gelöscht habe? Ich finde sie nämlich noch immer nicht. Ansonsten benötige ich heute wohl eine DAU-Anleitung.

Ich würde die Bibliotheken hier erwarten:

[attachment=0]temp.png[/attachment]

Danke

jkl

Du findest sie in Deiner Standard-OOo Installation... Basic-Lib. "OpenOffice.org Makros"

Sorry, aber vielleicht kannst du mir noch sagen, wo ich die Bibliothek finde. Ich habe gerade überhaupt keine Zeit zu suchen, und habe sie auf die Schnelle nicht gefunden... Also nochmal sorry für meine "Faulheit"... und Danke!!

jkl

mit Basic?

Nehme bspw. die [color=#008000]SUB ReplaceStrings[/color] aus der Gimmicks-Bibliothek.

Hilft das weiter?

Hallo,

ich habe eine Calc-Zelle, in der Text steht. Nun möchte ich die evtl. auftretenden Leerzeichen aus diesem Text löschen. Hat jemand eine Idee, wie ich das einfach machen kann?

Vielen Dank

J. Kleis