OpenOffice.info

Code: Alles auswählen

Sub textInZellebereichSuchen
Dim oZelleOderBereichOderBlatt as Object
Dim oSuchBeschreibung as Object
Dim oTrefferZelle as Object
' Zellbereich holen in dem ersetzt werden soll
oZelleOderBereichOderBlatt = ThisComponent.Sheets(0).getCellRangeByName("A1:D40")
' SearchDescriptor erzeugen
        oSuchBeschreibung = oZelleOderBereichOderBlatt._
                createSearchDescriptor()
                
        ' SearchDescriptor konfigurieren
        With oSuchBeschreibung
                .SearchString = "Hallo"
                .SearchBackwards = False
                .SearchCaseSensitive = True
                .SearchWords = True
                .SearchRegularExpression = False
                .SearchStyles = False
                .SearchSimilarity = False
                .SearchSimilarityRelax = True
                .SearchSimilarityRemove = 2
                .SearchSimilarityAdd = 2
                .SearchSimilarityExchange = 2
        End With
        
        ergebnis = oZelleOderBereichOderBlatt.findAll( oSuchBeschreibung )
 
ThisComponent.getCurrentController.Select(ergebnis)

document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:DeleteRows", "", 0, Array())


End Sub

Code: Alles auswählen

Sub applyMyCustomFilter
Const colID = 7 '< column #6 of the used range
Const sRegex = "1(\d\d\d)|(\d\d\d)" '< this is one regex including the ORs as |
cEQ = com.sun.star.sheet.FilterOperator.EQUAL' <some_column> EQUALs <some_regex>

Dim fld as new com.sun.star.sheet.TableFilterField
fld.Field = colID
fld.Operator = cEQ
fld.StringValue = sRegex

sh = ThisComponent.CurrentController.getActiveSheet()
rg = getUsedRange(sh)
fd = rg.createFilterDescriptor(True)

fd.ContainsHeader = True
fd.UseRegularExpressions = True
fd.IsCaseSensitive = False
fd.SkipDuplicates = False
fd.CopyOutputData = False

fd.setFilterFields(Array(fld))
rg.filter(fd)

End Sub