Añadimos la referencia Microsoft.Office.Interop.Word.Application al proyecto:
Hacemos doble click sobre el botón y escribimos el siguiente código:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text <> "" Then
Dim Corrector_Ortograf As New Microsoft.Office.Interop.Word.Application
If Corrector_Ortograf.CheckSpelling(TextBox1.Text) = True Then
MessageBox.Show("La ortografía es correcta.", "", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
MessageBox.Show("La ortografía es Incorrecta.", "", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
Else
MessageBox.Show("Ingrese un texto para comprobar la ortografía", "", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If
End Sub
Y ya está!!! Qué fácil!!!
No hay comentarios:
Publicar un comentario