| Pregunta: | 2053 - UTILIZAR EL CORRECTOR ORTOGRAFICO DE WORD A TRAVÉS DE V.B. |
| Autor: | Eduardo Jiménez Vargas |
| Deseo utilizar el corrector ortografico de Word a traves de una aplicación en Visual Basic 5.0, y a su vez poder almacenar los cambios realizados por word en mi campo memo. Espero y alguien tenga alguna sugerencia que me pueda ayudar. | |
| Respuesta: | Julian Flórez |
| Con este codigo puede utilizar el corrector ortográfico de word desde visual basicsin que se note que se abre word Private Sub Command1_Click() Dim XWord As Object Set XWord = CreateObject("Word.Application") XWord.Visible = False XWord.Documents.Add XWord.Selection.Text = Text1.Text XWord.ActiveDocument.CheckSpelling Text1.Text = XWord.Selection.Text XWord.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges XWord.Quit Set XWord = Nothing MsgBox ("Ha finalizado la corrección ortográfica"), vbInformation End Sub | |
| Respuesta: | Alberto Melo Coton |
| Hola, este codigo es simplemente una actualizacion respecto a lo que escribio Jags Andrew 90. Yo tengo vb5 y Office97 y lo que me funciona es: Option Explicit ´... Private Sub Command1_Click() Dim ObjExcel as Excel.Application Set ObjExcel = New Excel.Application ObjExcel.SheetsInNewWorkbook=1 ObjExcel.WorkBooks.Add With ObjExcel.ActiveSheet .Cells(1,1)=Text1.Text .CheckSpelling .Visible=True End With Text1.Text=ObjExcel.ActiveSheet.Cells(1,1).Value ObjExcel.Application.DisplayAlerts=False ´No estoy ´seguro si esta es la sentencia que hace que al ´cerrar Excel no haga preguntas o la siguiente. ObjExcel.Application.Quit Set ObjExcel=Nothing End Sub A mi me da resultado y como veis no hay tanta diferencia al codigo de Jags. | |
| Respuesta: | Jags Andrew 90® |
| Hola desde Colombia... Bueno es asi: antes de comenzar debes tener una caja de texto llamada text1 **** dim x set x=createobject("Excel.Sheet") x.cells(1,1).value=text1.text x.visible=true´visualiza cuadro de dialogo x.checkspelling text1.text=x.cells(1,1).value´copia el texto corregido x.application.quit set x=nothing **** Hasta la proxima... | |