OpenOffice.info

Code: 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

Code: Alles auswählen

   myDoc=thisComponent
   myViewCursor=myDoc.GetCurrentController.ViewCursor
   mytext=myViewCursor.text
   oEnum1=mytext.createEnumeration