Classe SpellingSuggestions - sugestões para uma palavra especificada (Word VBA)

Uma coleção de objetos SpellingSuggestion que representa todas as sugestões para uma palavra especificada ou para a primeira palavra no intervalo especificado. Para usar uma variável de classe SpellingSuggestions, ela primeiro precisa ser instanciada por exemplo

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

Count

Retorna um Long que representa o número de sugestões de ortografia na coleção. Somente leitura.

Dim lngCount As Long
lngCount = GetSpellingSuggestions.Count

Item

Retorna um objeto SpellingSuggestion individual em uma coleção.

Item (Index)

Index: O objeto individual a ser retornado. Pode ser um Long que indica a posição ordinal do objeto individual.

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

SpellingErrorType

Retorna o tipo de erro de ortografia. Somente leitura WdSpellingErrorType. Os valores de retorno possíveis são wdSpellingCapitalization - Erro de maiúsculas/minúsculas, wdSpellingCorrect - A ortografia está correta, wdSpellingNotInDictionary - A palavra não está no dicionário especificado.

Use o método GetSpellingSuggestions para retornar uma coleção de palavras sugeridas como substituições de ortografia. Se uma palavra estiver incorreta, o método CheckSpelling retorna True.

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