Silbentrennung bei Calc per Makro?

[MikeRo]

Hallo,

ich habe ein kleines Problem, das sich z.B. Stammkundenrabatt nicht richtig auftrennt in meiner Spalte, da es ein Automatisiertes Makro ist müssen sich die Silben natürlich automatisch trennen, da ich eine feste Spaltenbreite habe. Weiß einer Rat?

[DPunch]

Aloha

Ich weiss nicht, ob ich Dir folgen kann.
Willst Du die automatische Silbentrennung für eine Zelle / einen Bereich aktivieren oder wie oder was?
Das geht mit dem Stichwort

Code: Alles auswählen

oCell.ParaIsHyphenation = True

Oder Du formatierst die Zelle / den Bereich von vornherein mit Automatischer Zeilenumbruch + Silbentrennung aktiv.

[MikeRo]

Aloha

Ich weiss nicht, ob ich Dir folgen kann.
Willst Du die automatische Silbentrennung für eine Zelle / einen Bereich aktivieren oder wie oder was?
Das geht mit dem Stichwort

Code: Alles auswählen

oCell.ParaIsHyphenation = True

Oder Du formatierst die Zelle / den Bereich von vornherein mit Automatischer Zeilenumbruch + Silbentrennung aktiv.

Die Silbentrennung soll für einen bestimmten Bereich stattfinden. In diesem Bereich ist auch der automatische Zeilenumbruch und die Silbentrennung aktiv. Aber er macht es einfach nicht. z.B. bei diesem Wort: Mediakostenbrutto

Hier mal ein Auszug aus dem Quelltext.:

Code: Alles auswählen

..... DB Abfrage

         			s = oResult.getString(1)
        	   	   	RabattUeberschrift = oDoc.sheets.getByName("Angebot").getCellByPosition(LetzteSpalte+nUpperBoundary,9)
        	   	   	RabattUeberschrift.String = s
        	   	   	RabattUeberschrift.ParaIsHyphenation = True
			   	RabattUeberschrift.isTextWrapped = TRUE

Weiter....

Er macht es aber leider nicht.

[DPunch]

Aloha

Er macht es aber leider nicht.

Kann ich nicht bestätigen, bei mir (OOo 3.2.1, Win XP) macht er es anstandslos.

Code: Alles auswählen

	oSheet = thisComponent.CurrentController.ActiveSheet
	oCell = oSheet.getCellByPosition(0,0)
	oCell.String = "Mediakostenbrutto"
	oCell.isTextWrapped = True
	oCell.ParaIsHyphenation = True

Wie sieht es denn bei Dir unter Extras -> Optionen -> Spracheinstellungen -> Linguistik aus?
Häkchen bei Libhyphen Hyphenator gesetzt?

[MikeRo]

Bei mir sind alle Optionen gesetzt, aber es geht einfach nicht. Keine Ahnung.
Ich habe es jetzt durch suchen und ersetzen gelöst.

Angemerkt sei das ich die Überschriften aus der Datenbank lese.

Code: Alles auswählen

....
         			s = oResult.getString(1)
        	   	   	RabattUeberschrift = oDoc.sheets.getByName("Angebot").getCellByPosition(LetzteSpalte+nUpperBoundary,9)
        	   	   	RabattUeberschrift.String = s
        	   	   	RabattUeberschrift.ParaIsHyphenation = True
			   	RabattUeberschrift.isTextWrapped = True
....

[MikeRo]

Ich habe noch ein neues Problem.:

Ich lese Wörter aus der Datenbank aus und schreibe sie als Überschrift in die Tabelle.

Wenn ich z.B. Spezialrabatt als Wort habe, soll dieses Makro rabatt abschneiden und drunter schreiben.
Es macht es aber nicht, wenn die Zeile breit genug ist, ist das Wort trotzdem nebeneinander... :/

Code: Alles auswählen

Sub SilbenTrennung

				oCellRange = oSheet.getCellRangeByName("A10:ZZ10")

				ReplaceDescriptor = oCellRange.createReplaceDescriptor()

				ReplaceDescriptor.SearchString = "rabatt"
				ReplaceDescriptor.ReplaceString = "-" & chr(10)& chr(13)& "rabatt"
				oCellRange.ReplaceAll(ReplaceDescriptor)
				
				ReplaceDescriptor.SearchString = "Produktionskosten"
				ReplaceDescriptor.ReplaceString = "Produktions-" & chr(10)& chr(13)& "kosten"
				oCellRange.ReplaceAll(ReplaceDescriptor)

End Sub