Если просто проверить - есть ли ошибки, то примерно так

Dim mySpell As Dictionary
Set mySpell = Application.Languages(wdRussian).ActiveSpellingDictionary

Debug.Print Application.CheckSpelling(Word:="очень хорошо", MainDictionary:=mySpell)

Если нужно еще и попытаться исправить ошибки, то Application.GetSpellingSuggestions - вот кусок из хелпа

Sub DisplaySuggestions()
Dim sugList As SpellingSuggestions
Dim sug As SpellingSuggestion
Dim strSugList As String
Set sugList = GetSpellingSuggestions(Word:="lrok", _
SuggestionMode:=wdSpellword)
If sugList.Count = 0 Then
MsgBox "No suggestions."
Else
For Each sug In sugList
strSugList = strSugList & vbTab & sug.Name & vbLf
Next sug
MsgBox "The suggestions for this word are: " _
& vbLf & strSugList
End If
End Sub



(с выражением лица)

автор2. Если слова нет в словаре, это считается как ошибка, хотя на самом деле оной не долно быть, как настроить ?

F1 на использованные функции - Custom.dic
где-то там же рядом про грамматику