OpenOffice.info

Code: Alles auswählen

Sub ReplaceInCalc
       Dim oDoc As Object
       Dim oSheet As Object
       Dim oSearch As Object, oResult As Object         'Replace Descriptor (ScCellSearchObj)
       Dim oFound As Object, oFoundCursor as Object
       Dim n As Long
       
       oDoc = ThisComponent
       oSheet = oDoc.Sheets.getByIndex(0)

       oStartCell = oSheet.getCellRangeByName("A2")   
       oCursor = oSheet.createCursorbyRange( oStartCell )
       oCursor.gotoEndOfUsedArea( True )  
       endrow = oCursor.rangeAddress.EndRow      
       oCellRange    = osheet.getcellrangebyPosition(0, 1, 0, endrow )


       oCellrange.CellBackColor = RGB(255,0,0)
       oSearch = oCellRange.createSearchDescriptor
       oSearch.SearchString = "^[a-z0-9_\-]+(\.[a-z0-9_\-]+)*@([0-9a-z][0-9a-z\-]*[0-9a-z]\.)+([a-z]{2,4}|museum)$"
       oSearch.SearchRegularExpression = TRUE
       oResult = oSheet.findAll(oSearch)
       For n = 0 To oResult.count - 1
           oFound = oResult(n)
           oFound.CellBackColor = -1
       Next 
End Sub

Code: Alles auswählen

Sub ReplaceInCalc
   Dim oDoc As Object
   Dim oSheet As Object
   Dim oSearch As Object, oResult As Object         'Replace Descriptor (ScCellSearchObj)
   Dim oFound As Object, oFoundCursor as Object
   Dim n As Long
   Dim oDataArry As Object
   
   oDoc = ThisComponent
   oSheet = oDoc.Sheets.getByIndex(0)
   oCellRange = oSheet.getCellRangeByName("A10:A20")
'   oCellrange.CellBackColor = RGB(255,0,0)

for n = 1 to 99
if  oSheet.getCellByPosition(0,n).string <> "" then oSheet.getCellByPosition(0,n).CellBackColor = RGB(255,0,0)
next

   oSearch = oCellRange.createSearchDescriptor
   oSearch.SearchString = "^[a-z0-9_\-]+(\.[a-z0-9_\-]+)*@([0-9a-z][0-9a-z\-]*[0-9a-z]\.)+([a-z]{2,4}|museum)$"
   oSearch.SearchRegularExpression = TRUE
   oResult = oSheet.findAll(oSearch)
   For n = 0 To oResult.count - 1
       oFound = oResult(n)
       oFound.CellBackColor = RGB(255,255,255)
       REM oFoundCursor = oFound.Text.createTextCursorByRange(oFound)
        REM oFoundCursor.CharWeight = com.sun.star.awt.FontWeight.BOLD
   Next n

   End Sub

Code: Alles auswählen

oCellrange.CellBackColor = RGB(255,0,0)

Code: Alles auswählen

for n =1 to 99
if  oSheet.getCellByPosition(0,n).string <> "" then oSheet.getCellByPosition(0,n).CellBackColor = RGB(255,0,0)
next

Code: Alles auswählen

Sub ReplaceInCalc
       Dim oDoc As Object
       Dim oSheet As Object
       Dim oSearch As Object, oResult As Object         'Replace Descriptor (ScCellSearchObj)
       Dim oFound As Object, oFoundCursor as Object
       Dim n As Long
       
       oDoc = ThisComponent
       oSheet = oDoc.Sheets.getByIndex(0)
       oCellRange = oSheet.getCellRangeByName("A2:A1000")     
       
       
       oCellrange.CellBackColor = -1
       oSearch = oCellRange.createSearchDescriptor
       oSearch.SearchString = "^[a-z0-9_\-]+(\.[a-z0-9_\-]+)*@([0-9a-z][0-9a-z\-]*[0-9a-z]\.)+([a-z]{2,4}|museum)$"
       oSearch.SearchRegularExpression = TRUE
       oResult = oSheet.findAll(oSearch)
       For n = 0 To oResult.count - 1
           oFound = oResult(n)
           oFound.CellBackColor = RGB(255,0,0)
       Next 
End Sub