Como todos sabemos, Word tiene su propia función de revisión ortográfica. En VB, en realidad es muy sencillo llamar a la función de revisión ortográfica de Word. El método consiste en crear primero un objeto de palabra, luego colocar la cadena que debe verificarse en WORD, llamar a la revisión ortográfica de la palabra y luego extraer el valor de retorno. y finalmente cerrar el objeto.
El código de implementación específico de cada paso es el siguiente:
Función CheckSpell(IncorrectText as string) as stringDim Word As Object, retText$ En caso de error Reanudar Siguiente 'Crear un objeto WORD y abrir Set Word = CreateObject("Word.Basic")'Coloque la CADENA que debe verificarse en WORDWord.AppShowWord .FileNewWord Insertar IncorrectText'Llamar a la revisión ortográfica de WORDWord.ToolsSpellingWord.EditSelectAll'obtener el valor de retorno retText =. Word.Selection$()CheckSpell = Left$(retText, Len(retText) - 1)'Cerrar el archivoWord.FileClose 2 ShowSet Word = Función NothingEndEste ejemplo incluye comentarios detallados para ayudar a los lectores a comprenderlo. Además, los lectores pueden consultar otros materiales basados en este ejemplo para realizar más mejoras y lograr funciones más potentes.