OpenOffice.org BASIC Guide.pdf - OpenOffice.org wiki

Editing Text Documents 104
individually. Here are the associated properties of the com.sun.star.util.SearchDescriptor
service:
SearchSimilarity (Boolean)
performs a similarity search.
SearchSimilarityAdd (Short)
number of characters which may be added for a similarity search.
SearchSimilarityExchange (Short)
number of characters which may be replaced as part of a similarity search.
SearchSimilarityRemove (Short)
number of characters which may be removed as part of a similarity search.
SearchSimilarityRelax (Boolean)
takes all deviation rules into consideration at the same time for the search expression.
Once the SearchDescriptor has been prepared as requested, it can be applied to the text
document. The OpenOffice.org documents provide the findFirst and findNext methods for
this purpose:
Found = Doc.findFirst (SearchDesc)
Do While Found
' Suchergebnis bearbeiten
Found = Doc.findNext( Found.End, Search)
Loop
The example finds all matches in a loop and returns a TextRange object, which refers to the
found text passage.
Example: Similarity Search
This example shows how a text can be searched for the word "turnover" and the results
formatted in bold type. A similarity search is used so that not only the word “turnover”, but
also the plural form "turnovers" and declinations such as "turnover's" are found. The found
expressions differ by up to two letters from the search expression:
Dim SearchDesc As Object
Dim Doc As Object
Doc = StarDesktop.CurrentComponent
SearchDesc = Doc.createSearchDescriptor
SearchDesc.SearchString="turnover"
SearchDesc.SearchSimilarity = True
SearchDesc.SearchSimilarityAdd = 2
SearchDesc.SearchSimilarityExchange = 2
SearchDesc.SearchSimilarityRemove = 2
SearchDesc.SearchSimilarityRelax = False