Visual Basic - Corrector ortografico

Life is soft - evento anual de software empresarial
 
Vista:

Corrector ortografico

Publicado por Sara S. (8 intervenciones) el 26/07/2000 00:00:00
Agradecería que alguien me indicara como aplicar en un programa de Visual Basic el corrector ortográfico de word.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:AQUI ESTA TU SOLUCION

Publicado por edu (448 intervenciones) el 29/07/2000 00:00:00
Primero metete en el menu proyecto-referencia y seleccciona Microsoft WORD Library y Microsoft Office Library luego escribe este codigo en un formulario De visual que tenga un TEXTBOX y un Boton.

Dim oWordApp As Word.Application
Dim oWordDoc As Word.Document

Dim sTmpString As String





Private Sub Command1_Click()
´cramos una instancia de word
Set oWordApp = CreateObject("Word.Application")
´añadimos un nuevo documento con la plantilla normal.dot
Set oWordDoc = oWordApp.Documents.Add
´metemos en el documento el texto a corregir
oWordDoc.Select
oWordApp.Selection.TypeText Text1
On Error Resume Next
´llamamos al diccionario
oWordDoc.CheckSpelling
´cuando acaba nos muestra el documento, por eso lo ponemos invisible de nuevo
´se ve el parpadeo de la ventana pero ...
oWordApp.Visible = False
´cogemos el texto ya corregido
oWordDoc.Select
sTmpString = oWordApp.Selection.Text
´cerramos el documento sin grabarlo
oWordDoc.Close False
´liberamos el objeto
Set oWordDoc = Nothing
´cerramos word
oWordApp.Quit
´liberamos el objeto
Set oWordApp = Nothing
´pasamos el texto al textbox (es una cadena que acaba en 0)
Text1.Text = Left(sTmpString, Len(sTmpString) - 1)
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar