Re: [de-users] LO 7.6.3.2 und ALT 16

Hallo Hans-Werner,

Deine Feststellungen sind korrekt.
Das Makro habe ich vor langer Zeit geschrieben, daher habe ich keine 
Erinnerung mehr, was ich genau getestet habe. Ich habe es unter Verion 
5.4 getestet, das immerhin gut sechs Jahre alt ist, da ist das Verhalten 
genauso; dass sich etwas in LibO diesbezüglich geändert hätte, ist also 
nicht wahrscheinlich.Möglicherweise habe ich dann hauptsächlich so 
getestet, wie ich das auch, soweit ich mich erinnere, dann immer 
eingesetzt habe, nämich beim fortlaufenden Schreiben, wo der Cursor am 
Ende steht, und da funktioniert das ja.
Was ich festgestellt habe, ist, dass die Selektion und auch der 
Viewcursor, so wie sie dem Makro geliefert werden, im Fall von Tabellen 
und Shapes den ganzen Text (der Zelle bzw. des Shapes liefern); damit 
ist das Überschreiben des auf dem Schirm selektierten Texts also nicht 
möglich.
Für die Tabelle habe ich eine Lösung gefunden, nämlich den Dispatcher 
einzusetzen. Davon wird ja eher abgeraten, weil nie klar ist, wei weit 
ds in Zukunft noch funktioniert; aber wenn es nichts anderes gibt...
Ich habe das Einfügen eines Zeichens aufgezeichnet und den Code dann ins 
Makro eingefügt, wobei nur das eigefügte Zeichen durch CHAR(chara) - wie 
sonst auch im Code - ersetzt habe. Dasfunkioniert nun auch mit 
selektiertem text.
Bei den Shapes passiert bei der Aufzeichnung nichts, daher konnte ich 
auch keine entsprechende Änderung vornehmen. Es bleibt also derzeit 
dabei, dass dort das Zeichen am Ende eingefügt wird. Aber das dann 
auszuschneiden und weiter vorne einzufügen ist im Gesamten vielleicht 
immer noch günstiger als andere Variante. Und die vielleicht häufigste 
Einsatzmöglichkeit, nämlich am Ende des Texts, funktioniert ja.

Zu deinen sonstigen Fragen:

 * Shapes sind sowohl die Textfelder als auch geometrische Formen, wie
   Rechteck, Kreis, Legenden, ...
 * Ich habe das nur für Writer gedacht und andere Kompopnenten wohl gar
   nicht versucht. Das könnte ich aber versuchen, wenn es dir wichtig
   ist. Die kleinen Makros pro Zeichen, die ich Alt+Umschalt+ ein
   mnemotechnischen Buchstaben aufrufe, habe ich auch nur für Writer
   eingestellt.

Das neue Hauptmakro folgt unten.

Herzliche Grüße

Gerhard

sub insertSpecial (chara as integer)

dim vc as object, curSel as object, tc as object, cursel1 as object, 
null as object
dim cellText as object

curSel = ThisComponent.CurrentSelection
if curSel.count > 1 then
    msgbox "Bitte nur eine einfach Selektion",,"Einfügen Sonderzeichen"
    exit sub
end if
if curSel.supportsService("com.sun.star.drawing.Shapes") then
    curSel1 = curSel.getByindex(0)
    if curSel1.supportsService("com.sun.star.drawing.TextShape") or _
        curSel1.supportsService("com.sun.star.drawing.Text") then
        tc = curSel1.createTextCursor
        cursel1.insertString(tc,CHR(chara), FALSE)
        ThisComponent.CurrentController.select(null)
        ThisComponent.CurrentController.select(cursel1)
        tc.goToEnd(False)
    end if
  elseif curSel.supportsService("com.sun.star.text.TextRanges") then
    if isEmpty(curSel(0).TextTable) then    'keine Tabelle
        vc = ThisComponent.CurrentController.getViewCursor
        vc.setString(CHR(chara))
        Vc.collapseToEnd
      else    ' Tabelle
      ' die vo dem "end if" stehenden Zeilen funktionieren nicht, weil 
der ViewCursor
      ' nicht den selektierten String zeigt und den daher auch nicht 
übetrschreibt
        dim document   as object
        dim dispatcher as object
        rem get access to the document
        document   = ThisComponent.CurrentController.Frame
        dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
        dim args1(0) as new com.sun.star.beans.PropertyValue
        args1(0).Name = "Text"
        args1(0).Value = CHR(chara)
        dispatcher.executeDispatch(document, ".uno:InsertText", "", 0, 
args1())
        exit sub    'Rest veraltet
        vc = ThisComponent.CurrentController.getViewCursor
        cellText = curSel(0).cell.text
        cellText.insertString(vc, CHR(chara), FALSE)
        ' mit letztem Parameter TRUE müsste der selektierte Text 
überschrieben werden, aber s.oben!
    end if
  else
    msgbox "Diese Situation (dieser Objekttyp) ist bisher nicht 
programmiert.",,"Einfügen Sonderzeichen"
end if

end sub


Am 30.11.2023 um 08:12 schrieb OoOHWHOoO:
> Guten Morgen Gerhard,
>
> zu Deinem ( wunderbaren :-)) ) BasicMacro 
> https://listarchives.libreoffice.org/de/users/2023/msg01227.html und 
> Deiner Kurzbeschreibung "[...] aber das funktioniert auch in Texten in 
> Tabellen oder in Shapes.[...]" hätte ich da noch ein paar Fragen:
>
> Ist das BasicMacro nur zur Verwendung mit WRITER gedacht ?
>
> Bei Verwendung mit WRITER ist mir Folgendes aufgefallen:
>
> [1] Normaler Text - Alles wie erwartet !
>
> Das Zeichen wird eingefügt oder markierte Zeichen werden durch das 
> Zeichen ersetzt.
>
> [2] Tabelle - ?
>
> Das Zeichen wird eingefügt. Bei markierten Zeichen wird das Zeichen 
> vor den markierten Zeichen eingefügt, aber die markierten Zeichen 
> werden nicht ersetzt.
>
> [3] Shapes - ?
>
> Was meinst Du mit Shapes ? Mir ist im Kontext WRITER nur das 
> (einfügbare) "Textfeld" eingefallen. Das Zeichen wird eingefügt. Bei 
> markierten Zeichen werden die markierten Zeichen nicht ersetzt und das 
> Zeichen wird hinter dem (letzten vorhandenen) Zeichen  im "Textfeld" 
> eingefügt.
>
> Dank im Voraus für etwaige Erläuterungen,
>
> Grüße
> Hans-Werner ;-))

--
Liste abmelden mit E-Mail an: users+unsubscribe@de.libreoffice.org
Probleme? https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: https://listarchives.libreoffice.org/de/users/
Datenschutzerklärung: https://www.documentfoundation.org/privacy