USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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-2019   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página