deutsches Forum rund um Apache OpenOffice und LibreOffice
https://oooforum.de/
Code: Alles auswählen
myDoc=thisComponent
myViewCursor=myDoc.GetCurrentController.ViewCursor
mytext=myViewCursor.text
oEnum1=mytext.createEnumerationCode: Alles auswählen
Sub Main
myDoc=thisComponent
oSelalle=myDoc.getcurrentSelection()
if not isNull(oSelalle) then
if oSelAlle.getCount=1 then
oSel = oSelalle.GetByIndex(0)
oTxtC = myDoc.Text.createTextCursorByRange(oSel)
if oTxtC.isCollapsed then
s= "nichts selektiert"
else
s="Eine Selektion: " & oSel.getString()
oEnum=oSel.createEnumeration
n=0
Do While oEnum.hasMoreElements
oTxtElement = oEnum.nextElement
if oTxtElement.supportsService("com.sun.star.text.Paragraph") Then
oEnum2=oTxtElement.createEnumeration
Do While oEnum2.hasMoreElements
oAbsTeil=oEnum2.nextElement
if oAbsTeil.CharWeight=com.sun.star.awt.FontWeight.BOLD Then
msgBox (oAbsTeil.string)
End if
Loop
End if
Loop
End if
elseif oSelAlle.getCount > 1 then
s="Insgesamt " & oSelAlle.getCount() & " Selektionen:" & chr(13)
for i = 0 to oSelAlle.getCount() -1
s = s &i+1 & ": " & oSelAlle.getByIndex(i).getString() & chr(13)
next
else
s="nichts selektiert"
End if
Else
s="nichts selektiert"
End if
' MsgBox s, 0 , "Aktuelle Selektionen"
End Sub