dcsimg
Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
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

WEBINAR:

On-Demand

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

 

 

 

 

 


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

 

 

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