API/Samples/StarBasic/Office/SpellChecker
From Apache OpenOffice Wiki
The printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.
| Snippet: | SpellChecking.BAS |
| Description: | Illustrate the use of the spellchecker to know if a word is valid. |
| Programming Language: | StarBasic |
| Author: | Laurent Godard , 2007 |
| License: | LGPL |
Sub Main
' Selects the language
dim locale as new com.sun.star.lang.Locale
locale.Language="fr" 'ISO 639
locale.Country="FR" 'ISO 3166
' Get the service
LinguService = createUnoService("com.sun.star.linguistic2.LinguServiceManager")
spellChecker = LinguService.getSpellchecker()
msgbox "is dictionary detected ? " +chr(10)+ spellChecker.hasLocale(locale)
word = inputbox("File to check (empty for end) ?")
while word<>""
isWordValid = spellChecker.isValid(word, locale, array())
if isWordValid then
msgbox word + " is valid"
else
msgbox word + " is NOT valid"
endif
word = inputbox("File to check (empty for end) ?")
wend
End Sub
