USUÁRIO:
SENHA:
SALVAR LOGIN ?
Dicas
Visual Basic
(VBA)
Título da Dica:
Verificando a ortografia no VB com o Word
Postada em 21/6/2003 por
Darlan Oliveira
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
CyberWEB Network Ltda. © Copyright 2000-2024 - Todos os direitos reservados.
Powered by
HostingZone -
A melhor hospedagem para seu site
