Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

Gooden

Corrector Através Open Office

Mensagens Recomendadas

Gooden

Estou a tentar fazer um corrector através do open office.

O problema é que ele não está a aceitar a linguagem pt.... Se meter  es,ES ou fr , FR ou en,US funciona. mas em pt PT nao funciona :|

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 = "pt_PT"
    ObjectLocale.Country = "PT"
    'ObjectLocale.Language = "en"
    'ObjectLocale.Country = "US"
    Set ObjectReturn = SpellChecker.SPELL("alando", ObjectLocale, EmptyArgs())
    If Not IsNull(ObjectReturn) Then
        AlternativesWord = ObjectReturn.GetAlternatives
        For I = 0 To ObjectReturn.getAlternativesCount - 1
            MsgBox AlternativesWord(I)
        Next I
    End If

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.