[Resolvido]Corrector Ortografico

Boa tarde
Tenho esta função para corrector ortográfico.

Option Compare Database
Option Explicit
Public Sub SpellCheck(ctlToCheck As Control)
On Error GoTo Handle_Err
Const conProcName As String = "SpellCheck"
Dim ctlActive As Control
If Not IsNull(ctlToCheck) Then
If (ctlToCheck.OldValue <> ctlToCheck.Value) Or _
IsNull(ctlToCheck.OldValue) Then
Set ctlActive = Screen.ActiveControl
With ctlToCheck
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
DoCmd.RunCommand acCmdSpelling
If Not ctlActive Is ctlToCheck Then ctlActive.SetFocus
End If
End If
Exit_Here:
Exit Sub
Handle_Err:
Select Case err.Number
Case 64535
Resume Next
Case Else

End Select
Resume Exit_Here
Resume
End Sub

A função é chamada assim:

Private Sub Form_BeforeUpdate(Cancel As Integer)
Call SpellCheck(SeuCampo)
End Sub

Mas num formulário com campos independentes não funciona.
Alguma ideia
Obrigado

Assis,

eu uso o módulo abaixo:

Option Compare Database
Option Explicit
Public Function CorretorOrtog(ByVal strSourceText As String) As String
'*****************************************************************
' Continue em caso de erro
'*****************************************************************
On Error Resume Next
'*****************************************************************
' Crie objeto
'*****************************************************************

Dim Word As Object
Set Word = CreateObject("Word.Application")
'*****************************************************************
' Abra o word e insira o texto
'*****************************************************************
With Word
'*************************************************************
' Se vc desejar ver o word trabalhando retire o comentario
' da linha abaixo
'*************************************************************
'.Visible = True

'Adicione documento
.Documents.Add

'Selecione o texto

.Selection.TypeText strSourceText


'*************************************************************
.ActiveDocument.CheckSpelling
'*************************************************************
' Chama a função para remover espaço
'*************************************************************
CorretorOrtog = RTrimCR(.ActiveDocument.StoryRanges(wdMainTextStory))
'*************************************************************
' Feche o documento
'*************************************************************
.Quit wdDoNotSaveChanges ' = 0

End With
'libera memoria
Set Word = Nothing
End Function
Private Function RTrimCR(ByVal strSource As String) As String
Dim i As Integer

For i = Len(strSource) To 1 Step -1
'*************************************************************
' Quando caracteres de retorno forem encontrados, remove-os
' coloca uma barra para indicar
'*************************************************************
If Mid(strSource, i, 1) = vbCr Then
strSource = Left(strSource, i - 1)
Else
Exit For
End If
Next i
RTrimCR = strSource
End Function

PARA CHAMAR A FUNÇÃO:

Em um evento do form:

Me.SEUCAMPO = CorretorOrtog(Me.SEUCAMPO)

Voce pode ver o funcionamento no exemplo EmailCDO.rar em http://www.esnips.com/web/wwwmuca

Estou a puxar o tópico para cima. se já tiver resolvido, agradeço o seu retorno.

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.