Makro, um Anführungszeichen zu setzen

[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

[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