API/Samples/StarBasic/Office/SpellChecker

From Apache OpenOffice Wiki
< API‎ | Samples‎ | StarBasic
Jump to: navigation, search
Snippet: SpellChecking.BAS
Description: Illustrate the use of the spellchecker to know if a word is valid.
Programming Language: StarBasic
Author: Laurent Godard <laurentgodard@openoffice.org> , 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
Personal tools