Consulta
Publicado por Pinky (110 intervenciones) el 29/12/2009 19:50:13
Hola amigos del foro he aquí nuevamente molestando, pero tengo problemas con el código de la ortografía, la primera vez me funciono bien pero después me mando un error, este es el código que estoy utilizando para esta aplicación.
Protected Sub CMDORTOGRAFIA_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CMDORTOGRAFIA.Click
Dim XWord As Object
XWord = CreateObject("Word.Application")
XWord.Visible = False
XWord.Documents.Add()
XWord.Selection.Text = TXTNOMBRE.Text
XWord.ActiveDocument.CheckSpelling()
TXTNOMBRE.Text = XWord.Selection.Text
XWord.Selection.Text = TXTDIRECCION.Text
XWord.ActiveDocument.CheckSpelling()
TXTDIRECCION.Text = XWord.Selection.Text
XWord.Selection.Text = TXTACTIVIDAD.Text
XWord.ActiveDocument.CheckSpelling()
TXTACTIVIDAD.Text = XWord.Selection.Text
XWord.Selection.Text = TXTCOMUNA.Text
XWord.ActiveDocument.CheckSpelling()
TXTCOMUNA.Text = XWord.Selection.Text
XWord.Selection.Text = TXTCIUDAD.Text
XWord.ActiveDocument.CheckSpelling()
TXTCIUDAD.Text = XWord.Selection.Text
XWord.Selection.Text = TXTCONTACTO.Text
XWord.ActiveDocument.CheckSpelling()
TXTCONTACTO.Text = XWord.Selection.Text
[U][B]XWord.ActiveDocument.CloseSaveChanges:=wdDoNotSaveChanges[/B][/U]
XWord.Quit()
XWord = Nothing
MsgBox("Ha finalizado la corrección ortográfica.", MsgBoxStyle.Information, "Sistema")
End Sub
el error esta identificado en negro y subrayado, la única solución que pude hacer momentáneamente fue cerrar antes del punto y coma con () y el resto dejarlo con comentarios, pero al momento de aplicar esta aplicación en el formulario me da un error que no debe suceder como es del loop, ojala que me puedan ayudar desde ya muchas gracias.
Protected Sub CMDORTOGRAFIA_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CMDORTOGRAFIA.Click
Dim XWord As Object
XWord = CreateObject("Word.Application")
XWord.Visible = False
XWord.Documents.Add()
XWord.Selection.Text = TXTNOMBRE.Text
XWord.ActiveDocument.CheckSpelling()
TXTNOMBRE.Text = XWord.Selection.Text
XWord.Selection.Text = TXTDIRECCION.Text
XWord.ActiveDocument.CheckSpelling()
TXTDIRECCION.Text = XWord.Selection.Text
XWord.Selection.Text = TXTACTIVIDAD.Text
XWord.ActiveDocument.CheckSpelling()
TXTACTIVIDAD.Text = XWord.Selection.Text
XWord.Selection.Text = TXTCOMUNA.Text
XWord.ActiveDocument.CheckSpelling()
TXTCOMUNA.Text = XWord.Selection.Text
XWord.Selection.Text = TXTCIUDAD.Text
XWord.ActiveDocument.CheckSpelling()
TXTCIUDAD.Text = XWord.Selection.Text
XWord.Selection.Text = TXTCONTACTO.Text
XWord.ActiveDocument.CheckSpelling()
TXTCONTACTO.Text = XWord.Selection.Text
[U][B]XWord.ActiveDocument.CloseSaveChanges:=wdDoNotSaveChanges[/B][/U]
XWord.Quit()
XWord = Nothing
MsgBox("Ha finalizado la corrección ortográfica.", MsgBoxStyle.Information, "Sistema")
End Sub
el error esta identificado en negro y subrayado, la única solución que pude hacer momentáneamente fue cerrar antes del punto y coma con () y el resto dejarlo con comentarios, pero al momento de aplicar esta aplicación en el formulario me da un error que no debe suceder como es del loop, ojala que me puedan ayudar desde ya muchas gracias.
Valora esta pregunta


0