Corrector ortografico
Publicado por Adolfo (6 intervenciones) el 20/11/2018 19:11:58
Buenas tardes, amigos. Tengo el siguiente código para comprobar la Ortografía de un textbox, cuando lo ejecuto con el servidor de Visual Studio el programa funciona correctamente, (el proyecto hecho en vb2010 y Windows 10). creo que tengo un problema, porque cuando lo ejecuto con el EXE (después de compilar el proyecto) NO ABRE LA PANTALLA PARA CORREGIR LOS ERRORES.
Se queda bloqueado y no responde a nada, (solamente cuando solicito el Administrador de Tareas y observo que están activados correctamente), y tengo que pulsar sobre - Tarea- de MICROSOFT WORD, de esta manera SI ABRE LA PANTALLA PARA CORREGIR LOS ERRORES.
Este es el código:
En Referencias
Microsoft Word 16.0 Object Library
Antes del Modulo
En el Modulo
¿Porque no da error cuando hago la depuración?
¿Que estoy haciendo mal y no me doy cuenta?
Gracias anticipadas.
Se queda bloqueado y no responde a nada, (solamente cuando solicito el Administrador de Tareas y observo que están activados correctamente), y tengo que pulsar sobre - Tarea- de MICROSOFT WORD, de esta manera SI ABRE LA PANTALLA PARA CORREGIR LOS ERRORES.
Este es el código:
En Referencias
Microsoft Word 16.0 Object Library
Antes del Modulo
1
2
3
Imports System.WindowsImports Microsoft.Office.Interop
Imports vb = Microsoft.VisualBasic
En el Modulo
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub ComprobarOrtografia()
Dim WordApp As New Word.ApplicationWordApp.Visible = False
Dim doc As Word.Document = WordApp.Documents.Add()
Dim range As Word.Rangerange = doc.Range()
range.Text = TrabajoOrtografia
doc.Activate()
doc.CheckSpelling()
Dim chars() As Char = {CType(vbCr, Char), CType(vbLf, Char)}
TrabajoOrtografia = doc.Range().Text.Trim(chars)
doc.Close(SaveChanges:=False)
WordApp.Quit()
End Sub
¿Porque no da error cuando hago la depuración?
¿Que estoy haciendo mal y no me doy cuenta?
Gracias anticipadas.
Valora esta pregunta
0