CORRECAO DE ORTOGRAFIA...
Pessoal,
Gostaria de saber se alguém sabe como fazer correção de ortografia em um textbox.
Gostaria que a correção fosse da mesma forma do word... somente um traço vermelho em baixo...
Desde já agradeço.
Gostaria de saber se alguém sabe como fazer correção de ortografia em um textbox.
Gostaria que a correção fosse da mesma forma do word... somente um traço vermelho em baixo...
Desde já agradeço.
Existem algumas maneiras para isto, uma delas seria um banco de dados com tipo dicionario com todas palavras corretas e ao invés de usar o textbox seria richtextbox para o efeito desejado, bom depois bastaria fazer a comparação da palavra digitada, se existe no banco de dados.
e agora sem usar criar o efeito que deseja vc pode usar o dicionario do word da seguinte maneira
Inclua o seguinte código no evento Load do formulário.
Private Sub Form_Load()
Text1.Text = [Ô] Hoji eu istou muinto ancioso para uzar meu conputador [Ô]
End Sub
A seguir insira o código abaixo no evento Click do botão de comando - Command1.
Private Sub Command1_Click()
Dim oword As Object
Dim otmpdoc As Object
Dim lorigtop As Long
[ô] criando um documento word
Set oword = CreateObject([Ô]Word.Application[Ô])
Set otmpdoc = oword.documents.Add
[ô]posiciona o texto fora da area visivel
lorigtop = oword.Top
oword.WindowState = 0
oword.Top = 3000
[ô] atribui texto ao documento e verifica ortografia
With otmpdoc
.content.Text = Text1.Text
.Activate
.checkspelling
[ô]apos as alteracoes retorna o texto
Text1.Text = .content.Text
[ô]fecha o documento e sai do word
.saved = True
.Close
End With
oword.Top = lorigtop
oword.quit
Set oword = Nothing
End Sub
[ô] o .checkspelling que faz todo o serviço
e boa sorte
e agora sem usar criar o efeito que deseja vc pode usar o dicionario do word da seguinte maneira
Inclua o seguinte código no evento Load do formulário.
Private Sub Form_Load()
Text1.Text = [Ô] Hoji eu istou muinto ancioso para uzar meu conputador [Ô]
End Sub
A seguir insira o código abaixo no evento Click do botão de comando - Command1.
Private Sub Command1_Click()
Dim oword As Object
Dim otmpdoc As Object
Dim lorigtop As Long
[ô] criando um documento word
Set oword = CreateObject([Ô]Word.Application[Ô])
Set otmpdoc = oword.documents.Add
[ô]posiciona o texto fora da area visivel
lorigtop = oword.Top
oword.WindowState = 0
oword.Top = 3000
[ô] atribui texto ao documento e verifica ortografia
With otmpdoc
.content.Text = Text1.Text
.Activate
.checkspelling
[ô]apos as alteracoes retorna o texto
Text1.Text = .content.Text
[ô]fecha o documento e sai do word
.saved = True
.Close
End With
oword.Top = lorigtop
oword.quit
Set oword = Nothing
End Sub
[ô] o .checkspelling que faz todo o serviço
e boa sorte
Tópico encerrado , respostas não são mais permitidas