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
mein "Traummakro" gefunden. Werde mir bald in Ruhe Deine Makrosammlung anschauen.