API/Samples/StarBasic/Office/SpellChecker

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