Login | Register   
RSS Feed
Download our iPhone app
Browse DevX
Sign up for e-mail newsletters from DevX

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.

Tip of the Day
Language: VB6
Expertise: Intermediate
Sep 15, 2003



Building the Right Environment to Support AI, Machine Learning and Deep Learning

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
        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 = strString
End Function
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date