CheckSpelling – Using the Word’s check-spelling engine

CheckSpelling – Using the Word’s check-spelling engine

' Do the check spelling on the input text' Returns the input text with the corrections applied from the Word's check-' spelling dialog' Note: it requires a reference to the MS Word 9.0 library'' Example:'   MsgBox (CheckSpelling("This sentence iss far from being correcta"))Function CheckSpelling(ByVal strString As String) As String    Dim objWord As Word.Application    Dim objDoc As Word.Document        ' use the hourglass mouse cursor    Dim oldMousePointer As Variant    oldMousePointer = Screen.MousePointer    Screen.MousePointer = vbHourglass    Set objWord = New Word.Application        With objWord        .Visible = False        ' create a new document, and "paste" the input text        Set objDoc = .Documents.Add        .Selection.Text = strString        ' run the check-spelling        .Dialogs(wdDialogToolsSpellingAndGrammar).Show        strString = .Selection.Text        ' close the document        objDoc.Close wdDonotSaveChanges        Set objDoc = Nothing        ' close the Word instance        .Quit wdDonotSaveChanges    End With        Set objWord = Nothing    ' restore the original couse cursor    Screen.MousePointer = oldMousePointer        CheckSpelling = strStringEnd Function

See also  How IoT Tech Will Transform Logistics

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist