Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Rhinorhino on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
orthographic corrector
- Thread starter clatimier
- Start date
Hi,
You can use Word to do it:
WordId is a Long, MyText is a string
WordID = CREATE(0,CREATE:Ole)
WordID{PROP:Create} = 'Word.Document'
WordID{PROP
oVerb} = -3
WordID{'Application.Visible'} = False
WordID{'Application.Documents.Add' }
WordID{'Application.Selection.Text'} = MyText
WordID{'Application.ActiveDocument.CheckGrammar' }
MyText = WordID{'Application.Selection.Text'}
WordID{'Application.ActiveDocument.Close(0)'}
WordID{'Application.Close' }
WordID{PROPeActivate}
DESTROY(WordID)
Valery.
You can use Word to do it:
WordId is a Long, MyText is a string
WordID = CREATE(0,CREATE:Ole)
WordID{PROP:Create} = 'Word.Document'
WordID{PROP
oVerb} = -3WordID{'Application.Visible'} = False
WordID{'Application.Documents.Add' }
WordID{'Application.Selection.Text'} = MyText
WordID{'Application.ActiveDocument.CheckGrammar' }
MyText = WordID{'Application.Selection.Text'}
WordID{'Application.ActiveDocument.Close(0)'}
WordID{'Application.Close' }
WordID{PROP
eActivate}DESTROY(WordID)
Valery.
- Thread starter
- #3
- Status