OpenOffice.info

Danke, Karolus, das funtkioniert!! ((LO ist zwar eben grad abgestürzt beim rumprobieren, aber davon sehen wir mal ab, es funktioniert *grundsätzlich*))

Meiner Meinung nach auch nicht wirklich ein Bug, ich habe so eine Lösung fast erwartet. Allerdings ist diese Lösung hier die universalere und wäre daher als 'Standard' sinnvoll.

[quote="Karolus"][code]doc = ThisComponent
frame_selection = doc.CurrentController.Frame.Controller.Selection.getByIndex(0)[/code][/quote]

Sehr schön

[quote="Karolus"]kein Bug[/quote]
Na ja: wenn die (berechtigte) Erwartung des Anwenders (hier: dann wg. fehlender, unzureichender Dokumentation) nicht erfüllt wird... ist es ein Bug

doc = XSCRIPTCONTEXT.getDocument()
frame_selection = doc.CurrentController.Frame.Controller.Selection.getByIndex(0)
if frame_selection.CharUnderline == 10:
    frame_selection.CharUnderline = 0
else:
    frame_selection.CharUnderline = 10

doc = ThisComponent
frame_selection = doc.CurrentController.Frame.Controller.Selection.getByIndex(0)
if frame_selection.CharUnderline = 10 then
    frame_selection.CharUnderline = 0
else
    frame_selection.CharUnderline = 10
end if

Hallo

Die aktuelle Selektion bei einem [b][color=#FF0000]Writer[/color][/b]Dokument mit mehreren offenen Fenstern:
[code=php]doc = XSCRIPTCONTEXT.getDocument()
frame_selection = doc.CurrentController.Frame.Controller.Selection.getByIndex(0)
if frame_selection.CharUnderline == 10:
    frame_selection.CharUnderline = 0
else:
    frame_selection.CharUnderline = 10[/code]

Nach Basic übersetzt:
[code]doc = ThisComponent
frame_selection = doc.CurrentController.Frame.Controller.Selection.getByIndex(0)
if frame_selection.CharUnderline = 10 then
frame_selection.CharUnderline = 0
else
frame_selection.CharUnderline = 10
end if[/code]

@Winfried: kein Bug - vmtl. ist ...CurrentSelection nur eine Abkürzung solange nur ein Fenster offen ist.

Karolus

Gar nicht.

Ich bekomme mit AOO zwar keine [i]Exception[/i], aber auch kein Ergebnis.

Auch in einem weiteren Fenster des Dokuments wird die [color=#008000]currentSelection[/color] korrekt erkannt (MRI), aber die Aktion nicht ausgeführt.
Scheint ein Bug zu sein.

[habe auch mit [color=#008000]StarDesktop.currentComponent.currentSelection[/color] getestet :( ]

Sub ToggleUnderlineWave
If ThisComponent.CurrentSelection.getByIndex(0).CharUnderline = 10 then
   ThisComponent.CurrentSelection.getByIndex(0).CharUnderline = 0
Else
rem If it was not Wave, then set it
   ThisComponent.CurrentSelection.getByIndex(0).CharUnderline = 10
End if

Ich verwende u.a. folgendes simples Makro, um die einfach gewellte Unterstreichung per Tastatur-Shortcut auf eine beliebige Auswahl in Writer anzuwenden:

[code]Sub ToggleUnderlineWave
If ThisComponent.CurrentSelection.getByIndex(0).CharUnderline = 10 then
ThisComponent.CurrentSelection.getByIndex(0).CharUnderline = 0
Else
rem If it was not Wave, then set it
ThisComponent.CurrentSelection.getByIndex(0).CharUnderline = 10
End if[/code]

Die gleichen Methoden verwende ich auch für ein paar andere komplexere Formatierungen. Das funktioniert auch prächtig.

...Solange ich das Dokument nur in einem Fenster offen habe. Oft bearbeite ich ein Writer Dokument aber in mehreren Fenstern zur gleichen Zeit (Fenster>neues Fenster). Dann laufen meine Makros nur noch korrekt ab, wenn ich sie im ersten, "originalen" Fenster aufrufe. Wenn ich sie hingegen in einem anderen Fenster der gleichen Dokuments aufrufe erhalte ich [b]"BASIC-Laufzeitfehler. Objektvariable nicht belegt."[/b].

Ich ahne, dass dann OO mit die ThisComponent.CurrentSelction irgendwie nicht mehr richtig zuordnen kann. Wir schreibe ich meine Makros so um, dass sie aus allen Fenstern ausführbar werden?


_____
LO 4.2.0.4 unter OS X 10.7.5