string 		ls_exceptionMsg, ls_word = 'tabli'	
any 			la_tempReturn 
OLEObject 	lobj_ServiceManager, lobj_Desktop, lobj_CoreReflection, lobj_PropertyClass, lo_locale
OLEObject 	lo_propertyValue[], lole_LSM, lole_spellchecker

//Create the service manager 
lobj_ServiceManager = CREATE OLEObject 
IF lobj_ServiceManager.ConnectToNewObject("com.sun.star.ServiceManager") < 0 Then 
	MessageBox("Error", "Cound not connect to OpenOffice") 
	RETURN
End IF 

////Create the Desktop, core reflection and property class services 
//lobj_Desktop= lobj_ServiceManager.createInstance("com.sun.star.frame.Desktop") 

lobj_CoreReflection = lobj_ServiceManager.createInstance("com.sun.star.reflection.CoreReflection" ) 
lobj_PropertyClass = lobj_CoreReflection.forName ("com.sun.star.beans.PropertyValue") 

lo_locale = lobj_CoreReflection.forName( 'com.sun.star.lang.Locale') 
lo_locale.CreateObject( REF lo_locale ) 

lo_locale.Language = 'en'
lo_locale.Country = 'US'  
lo_locale.Variant = '' 

lobj_PropertyClass.CreateObject(REF lo_propertyValue[1]) 
//lo_propertyValue[1] = lobj_CoreReflection.Bridge_GetStruct("com.sun.star.beans.PropertyValue") 

lole_LSM = lobj_ServiceManager.CreateInstance("com.sun.star.linguistic2.LinguServiceManager") 
lole_spellchecker = lole_LSM.getspellchecker() 

//Здесь эта дрянь падает ("Error calling external object function spell..."):
la_tempReturn = lole_spellchecker.spell( ls_word ,lo_locale , lo_propertyValue) // PROBLEM!!!

OleObject lole_Spell
Long ll_RC
string	as_Text

as_text = 'text dlya proverki'

SetPointer( HourGlass! )

// Word is available so replace all CR/LFs with CRs
this.ReplaceChar( as_Text, '~r~n', '~r' )

// Connect to Word and do a spell-check
lole_Spell = CREATE OleObject
ll_RC = lole_Spell.ConnectToNewObject( 'Word.Application' )
IF ll_RC <> 0 THEN
	MessageBox('Error!', 'Word.Application: ConnectToNewObject ERROR')
	DESTROY lole_Spell
	RETURN ll_RC
END IF

lole_Spell.Application.Visible = False
lole_Spell.Application.WindowState = 2
lole_Spell.Documents.Add()
lole_Spell.Selection.TypeText( as_Text ) // by ref
lole_Spell.Selection.HomeKey()
lole_Spell.Selection.MoveStart()
lole_Spell.ActiveDocument.CheckSpelling()
lole_Spell.ActiveDocument.Select()
as_Text = lole_Spell.Selection.Text
lole_Spell.ActiveDocument.Close( False )
lole_Spell.Application.Quit
lole_Spell.DisconnectObject()
DESTROY lole_Spell

// Change the CRs back to CR/LFs
this.ReplaceChar( as_Text, '~r', '~r~n' )

MessageBox('', as_text)