Corrector Ortografico Inestable
Publicado por Adolfo (7 intervenciones) el 09/11/2018 15:43:00
Buenas tardes, amigos. Tengo el siguiente código con el que compruebo la Ortografía de un textbox, todo lo hace perfectamente si ejecuto el proyecto (hecho en vb2010 y Windows 10) desde DEPURAR – INICIAR DEPURACION. Como el proyecto está OK, Pulso en Generar Programa, copio el EXE que está en la carpeta de Obj y lo anclo a la Barra de Tareas. Es aquí cuando al ejecutar el PROGRAMA y Hacer Clic sobre el CORRECTOR de ORTOGRAFIA, 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 - Finalizar Tarea- de MICROSOFT WORD, de esta manera puedo continuar, pero sin hacer la Comprobación de Ortografía.
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.
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