Information générale
Catégorie:
Produits tierce partie
What about MS Word?
Local lcString,oWord,loDocument,loSelection,loSelectionFinal
oWord = Createobject("word.application")
With oWord
.Documents.Add()
.Documents(1).Content = this.Value
.Documents(1).CheckSpelling()
.Selection.WholeStory()
If .Selection.Text # this.value
This.Value = .Selection.text
Thisform.Refresh()
Else
Messagebox("No spelling mistakes found","Congradulations")
Endif
*.Documents(1).Close(.F.)
*.Quit()
Endwith
Release oWord
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement