OpenOffice.info

Meine Makrosammlung habe ich unter www.textquick.de veröffentlicht. Vielleicht findest du dort noch andere Makros, die für dich nützlch sind.

Ich sehe diese Maskro-Sammlung heute das erste Mal und dem ersten Augenschein nach, scheinen dort jede Menge nützlicher Dinge enthalten zu sein, weshalb ich mich frage:

Warum machst Du nicht ein wenig mehr Werbung für diese Makrosammlung?

Mir war diese Makro-Sammlung bisher ganz unbekannt und ich kenne eigentlich (zumindest oberflächlich) fast alles was es zu OOo im Internet gibt.
Also, sei ruhig ein wenig 'mutig' und kümmere dich darum das das Ganze bekannter Wird, die Nutzer werden Dir dankbar sein.


Gruß
Stephan

Hallo Claudio,
vielen Dank! Mit ein bißchen umstricken (ich will den Cursor einfach irgendwo im Wort positionieren dürfen) habe ich dank Deiner Hilfe mein "Traummakro" gefunden. Werde mir bald in Ruhe Deine Makrosammlung anschauen.
Liebe Grüße
pfwolke

Hallo Leute,
ich möchte mir ein Makro bauen, mit dem ich den ersten Buchstaben eines Wortes entweder klein oder großschreiben kann - je nachdem wie ich es brauche (Ich drücke die Shift-Taste oft nicht lange genug oder vergesse sie ...).
Unter Wordperfect hatte ich jahrelang ein sehr praktisches Makro. Ich brauchte nur den Cursor irgendwo in ein Wort stellen, das Makro aufrufen (was ich mit einer Tastenkombination gemacht habe) und das Makro hat selbständig erkannt ob der erste Buchstabe groß oder klein war und hat dann das entsprechende Gegenteil aufgerufen. Die "Erkennung" lief dadurch, dass das Makro nach dem ASCII-Wert des ersten Buchstaben gefragt hat.
Ich benutze jetzt NeoOffice 2.2.5. Patch 13, habe mir zwei Makros erstellt und sie auf die Tastenkombination CMD-K (klein) und CMD-G (groß) gelegt. Ich würde aber gerne die "elegantere"Lösung hinbekommen, weiß bloss nicht, wie das gelingen kann.
Bin für jede Hilfe dankbar!
Herzlich Euer pfwolke
Hier der Code meine aktuellen Makros:
sub buchstabeklein
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 ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:GoToPrevWord", "", 0, Array())

rem ----------------------------------------------------------------------
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:GoRight", "", 0, args2())

dispatcher.executeDispatch(document, ".uno:ChangeCaseToLower", "", 0, Array())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:GoToNextWord", "", 0, Array())


end sub


sub buchstabegross
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 ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:GoToPrevWord", "", 0, Array())

rem ----------------------------------------------------------------------
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:GoRight", "", 0, args2())

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

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:GoToNextWord", "", 0, Array())

end sub