OpenOffice.info

Es hat funktioniert, vielen Dank! :)

Für alle die das lesen, ihr müsst eventuell (so wie ich) vorher Java installieren und Writer neu starten.
Habe ich über folgenden Link gemacht:

http://www.java.com/de/download/

sub Sonder1
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Symbols"
args1(0).Value = "«"

dispatcher.executeDispatch(document, ".uno:InsertSymbol", "", 0, args1())

end sub


sub Sonder2
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Symbols"
args1(0).Value = "»"

dispatcher.executeDispatch(document, ".uno:InsertSymbol", "", 0, args1())

end sub

Du must das als Makro aufzeichnen und den gewünschten Tastaturkombinationen zuweisen.

Da hierbei im Konkrete die Makros etwas händische Anpasssung benötigen, habe ich Dir die fertig angepassten Makros:

[code]sub Sonder1
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Symbols"
args1(0).Value = "«"

dispatcher.executeDispatch(document, ".uno:InsertSymbol", "", 0, args1())

end sub


sub Sonder2
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Symbols"
args1(0).Value = "»"

dispatcher.executeDispatch(document, ".uno:InsertSymbol", "", 0, args1())

end sub[/code]


gleich in eine Extension gepackt.


Gehe so vor:
-Lade die Extension herrunter ([attachment=0]Sonderzeichen_Guillemets-1.0.0.oxt[/attachment]) und speichere sie lokal ab
-wähle im Menü Extras-Extensionmanager
-Klicke hinzufügen, wähle die Extension und folge den Anweisungen

danach:
Extras-Anpassen Register "Tastatur" und gehe so vor wie der Screenshot zeigt:

[attachment=1]makros_zuweisen.gif[/attachment]

Links unten im Screenshot (Sonderzeichen/Module1) entspricht vollständig der Hirarchie:

endweder:
OpenOffice Makros-user-Sonderzeichen-Module1 (wenn Du die Extension 'nur für Dich' installiert hast)

Oder:
OpenOffice Makros-share-Sonderzeichen-Module1 (wenn Du die Extension 'für ale Benutzer' installiert hast)


Das Makro "Sonder1" entspricht: «
Das Makro "Sonder2" entspricht: »



Gruß
Stephan

Hi

Ich möchte gerne die Tastenkombination für Guillemets auf STRG+1 bzw. STRG+2 ändern.
Wie mache ich das?