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