Seite 1 von 1

Verfasst: Mi, 31.05.2006 17:54
von Toxitom
Hey Wolle,
mit dem ich im Nachhinein um ein Wort oder eine Wortgruppe typografische Anführungszeichen setzen kann.
Wieso per Makro? Ist doch eigentlich ziemlich umständlich - oder hast du dafür einen bestimmten Grund?
Aber OK, hier der Lösungsweg:
Ich habe mal ein wenig mit dem Makrorekorder probiert
Das vergiss mal - der bringt dich nicht weiter.

Wie definierst du das "Wort" oder die "Wortgruppe"? Durch Markierung? Dann wäre es einfach:
Du wählst den View-Cursor, der hat dann sowohl eine Anfang-Markierung als auch eine Ende-Markierung. Dort kannst du dann jeweils Zeichen Diener Wahl eingeben.
Und Typografische Anführungszeichen haben die Ascii-Nummern 8222 (unten) und 8221 bzw. 8223 (oben) - je nachdem, was du haben willst (im Unicodesatz. Das Zeichen erhälst du mit chr(8223) - na ja, das war es schon vom Prinzip.
Da reicht ein solcher Code:

Code: Alles auswählen

Sub Typo_Zeichen
	oDoc = thisComponent
	oViewC = oDoc.getCurrentController().getViewCursor()
	oDoc.text.insertString(oViewC.start, chr(8222), false)
	oDoc.text.insertString(oViewC.end, chr(8221), false)
End Sub
PS: 8223 geht wohl in D nicht :-)

Gruss
Thomas

Verfasst: Mi, 31.05.2006 19:25
von Toxitom
Hey Wolfgang,
Was meinst du mit: "8223 geht wohl in D nicht "
Brachte bei mir (Win XP, OOo 2.0.2) ein "nicht druckbares Zeichen" - so ein Quadart eben. Und der Smilie... sollte eigentlich hinter den Code. Tia, ja, die Eile.

Gruss
Thomas