This example shows a general outline of how to use the FindAllObjects, InterpretAllWords, AddSearchWord, SetWordSearchOptions, FindBestWordMatches, GetFirstWordMatch, and GetNextWordMatch methods.
Set mobjDocCont = Application.FindAllObjects(0)
mobjDocCont.InterpretAllWords()
mobjDocCont.AddSearchWord("Sum")
mobjDocCont.AddSearchWord("Summa")
mobjDocCont.AddSearchWord("Total")
mobjDocCont.SetWordSearchOptions( 80, 0, 2, 20, TRUE )
mobjDocCont.FindBestWordMatches( MaxNoOfMatches )
Set FoundWord = mobjDocCont.GetFirstWordMatch(MatchedSearchWord, _
MatchConfidence)
While (Not FoundWord Is Nothing)
If (MatchConfidence > 50) Then
If (MatchedSearchWord = "Sum")
‘ add action on finding "Sum"
ElseIf (MatchedSearchWord = "Summa")
‘ add action on finding "Summa", same as for "Sum"
ElseIf (MatchedSearchWord = "Total")
‘ add action on finding "Total"
EndIf
EndIf
Set FoundWord = mobjDocCont.GetNextWordMatch(MatchedSearchWord, _
MatchConfidence )
Wend
Note: This code may not be suitable for use without additions based on your intended purpose.