OpenOffice.info

[quote="Karbrüggen"]Und wenn wir schon dabei sind: Ich hätte gerne auch eine Unterstützung für Ligaturen in OOo.[/quote]

Hallo Dominik:
In guten Fonts, sind oft viele Ligaturen bereits integriert. Die kannst Du ohne Probleme über die Zeichentabelle integrieren, resp. Du suchst die Liste der ASCII Codes. das ae ist zB die Alt-Taste und 0230 tippen. Probiers mal: «æ». ich habe mir so eine Tabelle in PDF-Form gebastelt. Wer will kann mir eine Email schicken, ich sende sie dann gerne zu. Email Adresse im Profil. In Kauf-Fonts geht es dann noch weiter, die haben auch «ffl», «ffi» und andere Ligaturen. Ein Font, den ich kaufte, die Cardo (Ersatz für die Bembo, eine der schönsten klassischen Antiquas) sind total an die 500 Zeichen. Auch die Frutiger Next verfügt über solche Feinhzeiten. Leider sind Kauffonts nicht gerade günstig.

Und noch etwas: Im Buch Sprachschule für Schriftsetzer von Walter Heuer (NZZ Verlag) ist klar gefordert, dass die Anführungszeichen als « (alt+0171) und » (alt+0187) gesezt werden und nicht »...«. Siehe auch http://de.wikipedia.org/wiki/Guillemets. Dort ist beschrieben, dass es in Deutschland eine Ausnahme-Regel gibt.

[quote="wolle2000"]Du hast schon 'ne sehr merkwürdige Art, Danke zu sagen :shock:[/quote]

Hehe... äh, ja... öhm - danke ;-)


[quote="OberHoffis"]Ich weiß, es ist OT, aber ich lese gerade das in diesem Thread empfohlene typokurz.pdf. Die Anmerkungen zu Tabellen finde ich seltsam.[/quote]

Anstelle der horizontalen Linien kannst du auch jede 2. Zeile 10% grau einfärben (oder eine andere helle/blasse Farbe zum Layout passend). Wichtig ist auch hier ein gegebener Abstand vom Inhalt zum Zellenrand (padding).

Wenn deine Tabelle komisch ausschaut, würde ich dir empfehlen den Grauwert zu verändern (Text statt Blocksatz links ausgerichtet, manuelle Umbrüche...)

Schlussendlich ist es auch eine Frage der Schrift. In Tabellen sind Serifen keine gute Wahl, wenn die Spalten sehr schmal sind. Hier bieten sich serifenlose wie Tahoma an. Du solltest jedoch konsequent in (allen!) Tabellen die selbe Schrift verweden - wenn du nur ein paar schmal-spaltige Tabellen, jedoch einige mehr mit satterem Tabellenlayout verwendest, solltest du (auch wenns zunächst blöd ausschaut) dort ebenfalls serifenbetonte Schriften verwenden. Für den Druck eignet sich sehr gut die Gentium (die sieht nur auf dem Schirm bescheiden aus) oder aber Garamond und Georgia (letztere macht auch auf nem CRT/TFT ne gute Figur)...

So, genug Offtopic ;-)

LG
Dominik

Hallo Oberhoffis,
finde den Dreh mit den vertikalen Linien gar nicht schlecht! Die Tabelle wird so wirklich lesbarer! Außerdem erscheint dann die ganze Seite nicht so überladen.
Hast Du es mal ausprobiert?
Gruß,
Nicki

Ich weiß, es ist OT, aber ich lese gerade das in diesem Thread empfohlene typokurz.pdf. Die Anmerkungen zu Tabellen finde ich seltsam.

Sub GroKlei
	Dim sText As String
	sText=""

	'aktuelles Dokument
	xDoc=ThisComponent
	xController=xDoc.CurrentController
	
	'Cursor im Doc
	xVCrsr=xController.getViewCursor
	CurPos=xVCrsr.getPosition()
	
	'gesamtes Dokument
	oText=xDoc.Text
	xSelection = xDoc.CurrentController.getSelection
	
	'Range des aktuellen Selection
	xRange=xSelection(0)
	xCursor=xRange.getText.createTExtCursorByRange(xRange)
	
	'Wort markieren
	sText=xCursor.GetString()
	
	If Len(sText) <= 0 Then
		xCursor.gotoStartOfWord(False)
		xCursor.GotoEndOfWord(True)
		
		'String aus Wort ermitteln
		sText=xCursor.GetString()
	End If
	
	'klein > groß
	If sText=LCase(sText) Then
		sText=UCase(Left$(sText,1)) + Right$(sText, Len(sText)-1)

		'Einfügen
		oText.InsertString(xCursor,sText,True)
		Exit Sub
	End If
	
	'groß > klein
	If sText=UCase(sText) Then
		oText.InsertString(xCursor,strConvert(stext,0),True)
		Exit Sub
	End If
	
	'gemischt
	If Left$(sText,1) = UCase(Left$(sText,1)) Then
		oText.InsertString(xCursor,strConvert(stext,1),True)
		Exit Sub
	End If
	oText.InsertString(xCursor,strConvert(stext,1),True)
End Sub

Function strConvert (cText As String, Flag As Integer) As String
	iRun = 1
	while iRun < Len(cText)+1
	If Flag=1 Then
		Mid( cText ,iRun, 1, UCase(Mid(cText,iRun,1))
		Else
		Mid( cText ,iRun, 1, LCase(Mid(cText,iRun,1))
	End If
	iRun = iRun + 1
	Wend
	strConvert=cText
End Function

sub halbesLeer
	'define variables
	dim document as object
	dim dispatcher as object
	
	'get access to the document
	document = ThisComponent.CurrentController.Frame
	dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
	dispatcher.executeDispatch(document, ".uno:InsertNonBreakingSpace", "", 0, Array())
	
	dim args2(1) as new com.sun.star.beans.PropertyValue
	args2(0).Name = "Count"
	args2(0).Value = 1
	args2(1).Name = "Select"
	args2(1).Value = true
	dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args2())
	
	dim args3(2) as new com.sun.star.beans.PropertyValue
	args3(0).Name = "Escapement.Escapement"
	args3(0).Value = -101
	args3(1).Name = "Escapement.Height"
	args3(1).Value = 45
	args3(2).Name = "Escapement.Auto"
	args3(2).Value = true
	dispatcher.executeDispatch(document, ".uno:Escapement", "", 0, args3())
	
	dim args4(1) as new com.sun.star.beans.PropertyValue
	args4(0).Name = "Count"
	args4(0).Value = 1
	args4(1).Name = "Select"
	args4(1).Value = false
	dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args4())
end sub

sub halbgeviertstrich
	'define variables
	dim document as object
	dim dispatcher as object

	'get access to the document
	document = ThisComponent.CurrentController.Frame
	dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

	dim args1(0) as new com.sun.star.beans.PropertyValue
	args1(0).Name = "Text"
	args1(0).Value = "–"
	dispatcher.executeDispatch(document, ".uno:InsertText", "", 0, args1())
end sub

Sub Typo_Zeichen
	oDoc = thisComponent
	oViewC = oDoc.getCurrentController().getViewCursor()
	oDoc.text.insertString(oViewC.start, chr(8222), false)
	oDoc.text.insertString(oViewC.end, chr(8220), false)
End Sub

sub zumBeispiel
	'define variables
	dim document as object
	dim dispatcher as object

	'get access to the document
	document = ThisComponent.CurrentController.Frame
	dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
	
	dim args1(0) as new com.sun.star.beans.PropertyValue
	args1(0).Name = "Text"
	args1(0).Value = "z."
	dispatcher.executeDispatch(document, ".uno:InsertText", "", 0, args1())
	
	dispatcher.executeDispatch(document, ".uno:InsertNonBreakingSpace", "", 0, Array())
	
	dim args3(0) as new com.sun.star.beans.PropertyValue
	args3(0).Name = "Text"
	args3(0).Value = "B."
	dispatcher.executeDispatch(document, ".uno:InsertText", "", 0, args3())
	
	dim args4(1) as new com.sun.star.beans.PropertyValue
	args4(0).Name = "Count"
	args4(0).Value = 1
	args4(1).Name = "Select"
	args4(1).Value = false
	dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args4())
	
	dim args5(1) as new com.sun.star.beans.PropertyValue
	args5(0).Name = "Count"
	args5(0).Value = 1
	args5(1).Name = "Select"
	args5(1).Value = false
	dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args5())
	
	dim args6(1) as new com.sun.star.beans.PropertyValue
	args6(0).Name = "Count"
	args6(0).Value = 1
	args6(1).Name = "Select"
	args6(1).Value = true
	dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args6())
	
	dim args7(2) as new com.sun.star.beans.PropertyValue
	args7(0).Name = "Escapement.Escapement"
	args7(0).Value = 101
	args7(1).Name = "Escapement.Height"
	args7(1).Value = 40
	args7(2).Name = "Escapement.Auto"
	args7(2).Value = true
	dispatcher.executeDispatch(document, ".uno:Escapement", "", 0, args7())
	
	dim args8(1) as new com.sun.star.beans.PropertyValue
	args8(0).Name = "Count"
	args8(0).Value = 1
	args8(1).Name = "Select"
	args8(1).Value = false
	dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args8())
	
	dim args9(1) as new com.sun.star.beans.PropertyValue
	args9(0).Name = "Count"
	args9(0).Value = 1
	args9(1).Name = "Select"
	args9(1).Value = false
	dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args9())
	
	dim args10(1) as new com.sun.star.beans.PropertyValue
	args10(0).Name = "Count"
	args10(0).Value = 1
	args10(1).Name = "Select"
	args10(1).Value = false
	dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args10())
end sub

Sorry, unformatierter Code mach komische Dinge mit mir ;-)

[code]Sub GroKlei
Dim sText As String
sText=""

'aktuelles Dokument
xDoc=ThisComponent
xController=xDoc.CurrentController

'Cursor im Doc
xVCrsr=xController.getViewCursor
CurPos=xVCrsr.getPosition()

'gesamtes Dokument
oText=xDoc.Text
xSelection = xDoc.CurrentController.getSelection

'Range des aktuellen Selection
xRange=xSelection(0)
xCursor=xRange.getText.createTExtCursorByRange(xRange)

'Wort markieren
sText=xCursor.GetString()

If Len(sText) <= 0 Then
xCursor.gotoStartOfWord(False)
xCursor.GotoEndOfWord(True)

'String aus Wort ermitteln
sText=xCursor.GetString()
End If

'klein > groß
If sText=LCase(sText) Then
sText=UCase(Left$(sText,1)) + Right$(sText, Len(sText)-1)

'Einfügen
oText.InsertString(xCursor,sText,True)
Exit Sub
End If

'groß > klein
If sText=UCase(sText) Then
oText.InsertString(xCursor,strConvert(stext,0),True)
Exit Sub
End If

'gemischt
If Left$(sText,1) = UCase(Left$(sText,1)) Then
oText.InsertString(xCursor,strConvert(stext,1),True)
Exit Sub
End If
oText.InsertString(xCursor,strConvert(stext,1),True)
End Sub

Function strConvert (cText As String, Flag As Integer) As String
iRun = 1
while iRun < Len(cText)+1
If Flag=1 Then
Mid( cText ,iRun, 1, UCase(Mid(cText,iRun,1))
Else
Mid( cText ,iRun, 1, LCase(Mid(cText,iRun,1))
End If
iRun = iRun + 1
Wend
strConvert=cText
End Function

sub halbesLeer
'define variables
dim document as object
dim dispatcher as object

'get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:InsertNonBreakingSpace", "", 0, Array())

dim args2(1) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Count"
args2(0).Value = 1
args2(1).Name = "Select"
args2(1).Value = true
dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args2())

dim args3(2) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Escapement.Escapement"
args3(0).Value = -101
args3(1).Name = "Escapement.Height"
args3(1).Value = 45
args3(2).Name = "Escapement.Auto"
args3(2).Value = true
dispatcher.executeDispatch(document, ".uno:Escapement", "", 0, args3())

dim args4(1) as new com.sun.star.beans.PropertyValue
args4(0).Name = "Count"
args4(0).Value = 1
args4(1).Name = "Select"
args4(1).Value = false
dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args4())
end sub

sub halbgeviertstrich
'define variables
dim document as object
dim dispatcher as object

'get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Text"
args1(0).Value = "–"
dispatcher.executeDispatch(document, ".uno:InsertText", "", 0, args1())
end sub

Sub Typo_Zeichen
oDoc = thisComponent
oViewC = oDoc.getCurrentController().getViewCursor()
oDoc.text.insertString(oViewC.start, chr(8222), false)
oDoc.text.insertString(oViewC.end, chr(8220), false)
End Sub

sub zumBeispiel
'define variables
dim document as object
dim dispatcher as object

'get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Text"
args1(0).Value = "z."
dispatcher.executeDispatch(document, ".uno:InsertText", "", 0, args1())

dispatcher.executeDispatch(document, ".uno:InsertNonBreakingSpace", "", 0, Array())

dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Text"
args3(0).Value = "B."
dispatcher.executeDispatch(document, ".uno:InsertText", "", 0, args3())

dim args4(1) as new com.sun.star.beans.PropertyValue
args4(0).Name = "Count"
args4(0).Value = 1
args4(1).Name = "Select"
args4(1).Value = false
dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args4())

dim args5(1) as new com.sun.star.beans.PropertyValue
args5(0).Name = "Count"
args5(0).Value = 1
args5(1).Name = "Select"
args5(1).Value = false
dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args5())

dim args6(1) as new com.sun.star.beans.PropertyValue
args6(0).Name = "Count"
args6(0).Value = 1
args6(1).Name = "Select"
args6(1).Value = true
dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args6())

dim args7(2) as new com.sun.star.beans.PropertyValue
args7(0).Name = "Escapement.Escapement"
args7(0).Value = 101
args7(1).Name = "Escapement.Height"
args7(1).Value = 40
args7(2).Name = "Escapement.Auto"
args7(2).Value = true
dispatcher.executeDispatch(document, ".uno:Escapement", "", 0, args7())

dim args8(1) as new com.sun.star.beans.PropertyValue
args8(0).Name = "Count"
args8(0).Value = 1
args8(1).Name = "Select"
args8(1).Value = false
dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args8())

dim args9(1) as new com.sun.star.beans.PropertyValue
args9(0).Name = "Count"
args9(0).Value = 1
args9(1).Name = "Select"
args9(1).Value = false
dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args9())

dim args10(1) as new com.sun.star.beans.PropertyValue
args10(0).Name = "Count"
args10(0).Value = 1
args10(1).Name = "Select"
args10(1).Value = false
dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args10())
end sub[/code]

Ich hab lang genug Python geschrieben um zu wissen, wie nützlich Einrückungen und Abstände im Quellcode sind ;-)
(Dies führt michzurück zu (La)TeX: der Erfinder (Donald Knuth) ist Autor der Bücherserie "[i]The Art of Computer Programming[/i]" - darin beschreibt er u.a. wie wichtig es ist, Code ordentlich zu schreiben ;-))

moin,

das ging ja schnell: dank http://de.openoffice.info/viewtopic.php?t=8840 hab ich in die Autokorrektur das halbe geschützte Lerzeichen mal eingefügt. (also nicht direkt, sondern dann vom .odt reinkopiert)

Aber das Ergebnis ist ziemlich ernüchternd: in allen Schriftarten, die ich ausprobiert habe besitzt dieses Leerzeichen die gleiche Breite wie ein normales - wenn es denn überhaupt im Zeichensatz vorhanden ist. In Arial Unicode MS ist das zumindest nicht der Fall.

Also bleibt wohl echt nur das umwandeln im Nachhinein per suchen und ersetzen bzw. mit Makro.

mFg
m

##
wie es mit den anderen Leerzeichen aussieht hab ich nicht getestet. für mich was erstmal das wichtigste, dass das halbe >geschützte< funktioniert

moin,

das hatte ich mir für meine Diplomarbeit auch überlegt, bin dann aber beim Writer geblieben, weil die Arbeit damit dann doch komfortabler und schöner ist.

Wenns aber auf diese ganzen Feinheiten ankommt, müsste man das eigentlich ja inzwischen alles mit unicode-zeichen entsprechend hinbekommen.
Aber wenn ich die Schriften bei mir (selbst arial unicode ms) mit http://www.ooowiki.de/LeerZeichen vergleiche fehlen da immer einige Leerzeichen.
Davon abgesehen sind, wie es mir scheint, die meisten Leerzeichen gleichzeitig als geschützt zu verwenden, damit sich bei 12 345 kein Umbruch breit macht, das scheint dort aber nicht so wirklich berücksichtigt, denn es sind nur 3 geschützte Leerzeichen aufgeführt (eins davon 'nicht sichtbar'). Nu, vielleicht gibs ja im unicode noch mehr, aber nichsdestotrotz bräuchte man diese Zeichen auch in der verwendeten Schrift drin.

Was mir an Latex allerdings überhaupt nicht gefällt ist, dass es echt eine Einbanhstraße zu sein scheint. Beispiel (ist mir bei vielen Skripten aufgefallen): die ü, ö, ä-Punkte sind zwar über den etsprechenden Buchstaben - aber wenn man im .pdf nach "Überraschung" sucht, dann findet man nix, weil dort "¨Uberraschung" steht, mit geschickt positionierten Punkten. Wenns nur um Drucken und Aussehen geht, dann ist das bestimmt nebensächlich. Aber wenn man das Ergebnis und die Inhalte irgendwie weiterverarbeiten will, dann scheint mir der Writer lieber zu sein.

zum thema
Statt mit suchen und Ersetzen müsste dass eigentlich auch mit der AUtokorrektur gehen, oder? (zumindest beim schreiben, nicht danach)
Problem bei mir ist aber, das entsprechende Leerzeichen (halbes, geschütztes) da reinzubekommen. mit '\202F' gehts jedenfalls nicht, dann erscheint genau das als text. In der DocumentList.xml in der acor_de-DE.dat im Profil könnte man wohl im 'quelltext' rummachen, aber ich bekomm genau dieses Leerzeichen überhaupt nicht eingegeben :-(

mFg
m

Nach diversen Diskussionsforen-Beiträgen stellt sich mir langsam die Frage, ob ich mich von OOo Writer abkehren und der Typographie wegen LaTeX verwenden sollte.

Mal sehen...

LG
Dominik

Hallo Dominik,

vielen Dank für den Link. Sehr interessantes Dokument.

Ach, der Mensch müßte mehr Zeit haben - so viele interessante Themen.

Gruß
Ralf

Hallo Ralf,

[quote="Raindancer"]Das macht in modernen Textverarbeitungen aber ziemlich viel Arbeit. :([/quote]

Dafür gibt es die Suchen-und-Ersetzen-Funktion :-) Was interessant zu wissen wäre, ist, ob die Autokorrektur sowas unterstützt - ich glaube leider nicht...

Vielleicht kann man dies ja auch als Feature-Request einbringen? Und wenn wir schon dabei sind: Ich hätte gerne auch eine Unterstützung für Ligaturen in OOo.

Wahrscheinlich bin ich aber mit einem professionellem DTP-Programm am leichtesten zu befriedigen. InDesign ist mir aber zu teuer und Scribus überzeugt mich nicht richtig. Alles was ich brauche, habe ich im Writer. Es sind doch halt nur ein paar Detail-Features, die mir fehlen. Vielleicht ist die Welt aber auch nur eine Scheibe. Und Kugeln/Bälle sind visionäre Ideen aus der Zeit von Super Mario World 1...

LG
Dominik

Hallo Dominik,

vielen Dank für den Link. Das PDF habe ich gleich mal runtergeladen. Sehr empfehlenswertes Dokument. Da kann ich jede Menge lesen und lernen. :D

Arme Kollegen, die dürfen sich am Montag warm anziehen. *breitgrins*
Seite 5 belegt nun endgültig meine Auffassung. "und/oder" ist richtig, "und / oder" ist falsch.

Dann ist mein Frage "z.B." (im Alltag immer so genutzt), also auch falsch und sollte eigentlich - laut S. 6 - mit "Gesperrt" oder "Laufweite" einen kleinen Zwischenraum (Spatium) erhalten.
Zitat: [...] innerhalb von Abkürzungen Verwendung fester Abstände (Dudenredaktion, 2004), die kleiner sind alsWortzwischenräume
und »auf keinen Fall ganz wegfallen dürfen« [...]

Das macht in modernen Textverarbeitungen aber ziemlich viel Arbeit. :(

Fröhliches Wochende.
Gruß
Ralf

Viertelchen = Viertel-Geviert [[url=http://de.wikipedia.org/wiki/Geviert_%28Typografie%29]Wikipedia[/url]

Als Verbindung von Abkürzungen werwendet man hingegen Spatien (sing. Spatium). Diese sind noch schmaler als ein Achtel-Geviert.

Ich kann dir noch Lektüre dazu empfehlen: "Typokurz" (knapp 13 Seiten): http://www.zvisionwelt.de/typokurz.pdf, Lizenz: CC by-nc-sa

Dort steht auch folgendes zu den Ziffern & Zahlen:

[quote="typokurz, S. 10"][b]Bis zu vier Ziffern[/b] solche Zahlen werden ohne Abstände gesetzt (Laut Dudenredaktion (2004) können auch vierstellige Zahlen bereits durch einen Festabstand strukturiert werden)

[b]Ab fünf Ziffern[/b] solche Zahlen »dürfen durch Abstände strukturiertwerden, nicht aber durch Punkte, Apostrophe o. ä.« (Willberg, Hans P.; Forssman, Friedrich: [i]Erste Hilfe in Typografie[/i]. Mainz: Verlag Hermann Schmidt, 2001)[/quote]

Irgendwo bei praegnanz.de, entweder im Blog oder bei den Essays hat Gerrit van Aaken (Diplomdesigner und bekennender Typograph ;-)) auch etwas ausführliches dazu geschrieben... Ich finds gerade nicht, aber ich schau da sowieso täglich vorbei, allein schon wegen den freien Schriften :-)

LG
Dominik

[quote="Karbrüggen"]Typographie, mein Freund... Typographie ist die Kunst dahinter :-)[/quote]

Auch wenn ich jetzt an die Wand gestellt werde ... :D

Ich lupfe gern mal ein Viertele. .. aber ..
Viertelchen? Wo braucht man DAS denn? (Falls meine Neugierde genehm ist).

Bei Tausendern schreibt man doch im Regelfall z.B. 22.897.345.567
und "z.B." ohne "was" dazwischen - oder?

Gruß
Ralf
(vor Neugier und Lernsucht fast platzend :P )

Hallo wolle2000,

so werde ich es machen!Danke für die Idee!

Gruß, Nicki

Typographie, mein Freund... Typographie ist die Kunst dahinter :-)