Como automatizar o Word a partir do Visual Basic ou Visual Basic for Applications para a verificação ortográfica

Voltar para o início

Criar um cliente de verificação ortográfica

1. Inicie o Visual Basic e crie um novo projeto Standard EXE . O Form1 é criado por padrão.
2. Adicione um controle TextBox e um CommandButton ao Form1.
3. Na janela de código para Form1, adicione o seguinte código:

   Option Explicit
   
   Private Declare Function CoAllowSetForegroundWindow Lib "ole32.dll" (ByVal pUnk As Object, ByVal lpvReserved As Long) As Long
   
   Private Sub Command1_Click()
       Dim oWord As Object
       Dim oTmpDoc As Object
       Dim lOrigTop As Long
       
       ' Create a Word document object
       Set oWord = CreateObject("Word.Application")
       
       CoAllowSetForegroundWindow oWord, 0
   
       Set oTmpDoc = oWord.Documents.Add
       ' Position Word off screen to avoid having document visible
       lOrigTop = oWord.Top
       oWord.WindowState = 0
       oWord.Top = -3000
       
       oWord.Visible = True
       oWord.Activate
       
       ' Copy the contents of the text box to the clipboard
       Text1.SelStart = 0
       Text1.SelLength = Len(Text1.Text)
       Clipboard.Clear
       Clipboard.SetText Text1.SelText
       
       ' Assign the text to the document and check spelling
       
       With oTmpDoc
           .Content.Paste
           .Activate
           .CheckSpelling
           
           ' After the user has made changes, use the clipboard to
           ' transfer the contents back to the text box
           .Content.Copy
           Text1.Text = Clipboard.GetText(vbCFText)
           ' Close the document and exit Word
           .Saved = True
           .Close
       End With
       Set oTmpDoc = Nothing
       
       oWord.Visible = False
       
       oWord.Top = lOrigTop
       oWord.Quit
       Set oWord = Nothing
   End Sub
   

4. Compile e execute o programa. Pressione o botão de comando Command1 para executar a verificação ortográfica. Caixa de diálogo de seleção de ortografia do Word aparece confirmar a ortografia das palavras "mispelled", "textt", "receber" e "resultes". Depois de corrigir as palavras incorretas, o texto é retornado para a caixa de texto.

Voltar para o início