Adding this snipit. came in helpfull today
Dim TaskKill
TaskKill = CreateObject("WScript.Shell").Run("taskkill /f /im winword.exe", 0, True)
Dim oWord,x
Set oWord = CreateObject("Word.Application")
oWord.visible = true
oWord.DisplayAlerts = false
oWord.Documents.Add()
x = oWord.CheckSpelling("Carrrots",,true,,,,,,,,,,)
if ( x = false ) Then
debug.log(oWord.GetSpellingSuggestions("Carrrots").Item(1))
End if