Clase SpellingSuggestions - sugerencias para una palabra especificada (Word VBA)

Una colección de objetos SpellingSuggestion que representan todas las sugerencias para una palabra especificada o para la primera palabra del intervalo especificado. Para usar una variable de clase SpellingSuggestions, primero debe ser instanciado, por ejemplo

Dim sss as SpellingSuggestions
Set sss = Dim strWord As String: strWord = 
GetSpellingSuggestions(Word:=strWord)

Count

Devuelve un Long que representa el número de sugerencias ortográficas de la colección.

Dim lngCount As Long
lngCount = GetSpellingSuggestions.Count

Item

Devuelve un objeto SpellingSuggestion individual de una colección.

Item (Index)

Index: El objeto individual que se va a devolver.

Dim ssn As SpellingSuggestion
Set ssn = GetSpellingSuggestions(Index:=1)

SpellingErrorType

Devuelve el tipo de error ortográfico. Posibles valores de retorno son wdSpellingCapitalization - Error de mayúsculas o minúsculas, wdSpellingCorrect - La ortografía es correcta, wdSpellingNotInDictionary - La palabra no se encuentra en el diccionario especificado.

Utilice el método GetSpellingSuggestions para devolver una colección de palabras sugeridas como sustitución.

Set suggs = ActiveDocument.Content.GetSpellingSuggestions 
If suggs.SpellingErrorType = wdSpellingNotInDictionary Then 
 StatusBar = "Unknown word" 
End If