Wie wir alle wissen, verfügt Word über eine eigene Rechtschreibprüfungsfunktion. In VB ist es eigentlich sehr einfach, die Word-Rechtschreibprüfungsfunktion aufzurufen. Die Methode besteht darin, zuerst ein Wortobjekt zu erstellen, dann die zu prüfende Zeichenfolge in WORD einzufügen, die Wort-Rechtschreibprüfung aufzurufen und dann den Rückgabewert herauszunehmen , und schließen Sie schließlich das Objekt.
Der spezifische Implementierungscode jedes Schritts lautet wie folgt:
Funktion CheckSpell(IncorrectText as string) as stringDim Word As Object, retText$ On Error Resume Next 'Erstellen Sie ein WORD-Objekt und öffnen Sie Set Word = CreateObject("Word.Basic")'. Fügen Sie den STRING, der überprüft werden muss, in WORDWord.AppShowWord ein .FileNewWord. IncorrectText einfügen'WORD-Rechtschreibprüfung aufrufenWord.ToolsSpellingWord.EditSelectAll'den Rückgabewert retText = abrufen Word.Selection$()CheckSpell = Left$(retText, Len(retText) - 1)'Schließe die DateiWord.FileClose 2 ShowSet Word = NothingEnd FunktionDieses Beispiel ist mit detaillierten Kommentaren versehen, um den Lesern das Verständnis zu erleichtern. Darüber hinaus können Leser auf der Grundlage dieses Beispiels auf andere Materialien verweisen, um weitere Verbesserungen vorzunehmen, um leistungsfähigere Funktionen zu erreichen!