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

Voltar ao topo

Criar um cliente de verificação ortográfica

1. Inicie o Visual Basic e crie um novo projecto EXE padrão . É criado o Form1 por predefinição.
2. Adicione um controlo de caixa de texto e um CommandButton ao Form1.
3. Na janela código do 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. Compilar e executar o programa. Prima o botão de comando Command1 para executar a verificação ortográfica. Caixa de diálogo de verificação de ortográfica do Word aparece confirmar a ortografia das palavras "mispelled", "textt", "receber" e "resultes". Depois de corrigir os erros ortográficos, o texto é incorporado para a caixa de texto.

Voltar ao topo