in einem Textdokument (odt) befindet sich etwas Text und innerhalb des Textes eine Texttabelle:
Ich benutze folgendes Makro:
Code: Alles auswählen
Sub Selektion_auswerten()
akt_sel = ThisComponent.getCurrentSelection
sel_count = akt_sel.getCount()
For i = 0 To sel_count-1
If LEN(TRIM(akt_sel.getByIndex(i).String)) > 0 Then
enum_all = akt_sel.getByIndex(i).CreateEnumeration
Do While enum_all.hasMoreElements()
akt_enum = enum_all.NextElement
If akt_enum.supportsService("com.sun.star.text.Paragraph") Then
Msgbox akt_enum.String
ElseIf akt_enum.supportsService("com.sun.star.text.TextTable") Then
' nix tun
Else
'nix tun
End If
Loop
End If
Next i
End Sub
Markiere ich nun per Maus und STRG die gelb markierten Textteile zeigt das Makro mit den ersten Absatz (ABS1, siehe Screenshot) in einer Msgbox an - richtig, so soll es sein.
Markiere ich aber die gelben UND den grünen Textteil zeigt mir das Makro den ersten (ABS1) und den dritten Absatz (ABS3) an.
Wieso passiert das?
Beobachtet in AOO und LO, Testdatei anhängend.
Gruß
Stephan