I'm looking for a quick solution to create a macro in a LO Spreadsheet that will search a range of cells for a text string, then when finding one, move it into a second range of cells.
Here's what I have so far:
Dim FindAddress As String
Dim extString As String, WCString
Dim oInCells, oOutCells
oSheet = ThisComponent.Sheets.getByName("Sheet1")
oInCells = oSheet.getCellRangeByName("A1:A50000")
extString = InputBox("Please Enter String.", "String Entry!")
WCString = oInCells.createSearchDescriptor
WCString.SearchString= "*" & extString & "*"
WCString.SearchSimilarity = True
WCString.SearchSimilarityAdd = 2
WCString.SearchSimilarityExchange = 2
WCString.SearchSimilarityRemove = 2
WCString.SearchSimilarityRelax = False
If "" = extString Then
Found = oInCells.FindFirst(WCString)
Now what I'm stuck on is I can't find any documentation on the properties/methods available to do what I want, particularly where the cell range that was found is returned so that I can move it to a different location.
Any thoughts appreciated....