| View previous topic :: View next topic |
| Author |
Message |
hffm
Power User
Joined: 22 Jul 2005
Posts: 52
Location: GERARDMER FRANCE
|
 Posted: Tue Dec 09, 2008 7:44 am Post subject: Using SpellChecker from VB6 or VB.Net |
 |
|
Hello Here is an example of how to use spellchecker from VB6 or VB.net:
| Code: | Public Sub TestSpellCheck()
Dim GetProcessServiceManager As Object
Dim SpellChecker As Object
Dim ObjectReturn As Object
Dim ObjectLocale As Object
Dim I As Integer
Dim EmptyArgs() 'Change to Dim EmptyArgs(-1) for VB.Net
Dim AlternativesWord As Variant
Set GetProcessServiceManager = CreateObject("com.sun.star.ServiceManager")
Set ObjectLocale = GetProcessServiceManager.Bridge_GetStruct("com.sun.star.lang.Locale")
Set SpellChecker = GetProcessServiceManager.CreateInstance("com.sun.star.linguistic2.SpellChecker")
ObjectLocale.Language = "en"
ObjectLocale.Country = "US"
Set ObjectReturn = SpellChecker.SPELL("ist", ObjectLocale, EmptyArgs())
If Not IsNull(ObjectReturn) Then
AlternativesWord = ObjectReturn.GetAlternatives
For I = 0 To ObjectReturn.getAlternativesCount - 1
MsgBox AlternativesWord(I)
Next I
End If
End Sub |
|
|
| Back to top |
|
 |
shahed2
Newbie
Joined: 05 May 2009
Posts: 1
|
| Posted: Tue May 05, 2009 4:54 am Post subject: |
|
|
Amazing code, very useful to me, thanks 
_________________
my openoffice |
|
| Back to top |
|
|
|
