13/05/2004, 13:20
|
| | | Fecha de Ingreso: abril-2004 Ubicación: Managua
Mensajes: 150
Antigüedad: 20 años, 10 meses Puntos: 0 | |
| 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 |