Classe SpellingSuggestion (Word VBA)

La classe SpellingSuggestion représente une suggestion orthographique donnée pour un mot mal orthographié.

Set

Pour utiliser une variable de classe SpellingSuggestion, elle doit d'abord être instanciée, par exemple

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

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe SpellingSuggestion : SpellingSuggestions.Item, Application.GetSpellingSuggestions et Range.GetSpellingSuggestions

For Each

Voici un exemple de traitement des éléments SpellingSuggestion dans une collection

Dim strWord As String: strWord = 
Dim ssnGetSpellingSuggestion As SpellingSuggestion
For Each ssnGetSpellingSuggestion In GetSpellingSuggestions(Word:=strWord)
	
Next ssnGetSpellingSuggestion

Name

Renvoie le nom de l'objet spécifié.

Dim strName As String
strName = GetSpellingSuggestions(1).Name

Parent

Renvoie un type de données Object qui représente l'objet parent de l'objet SpellingSuggestion spécifié.

Dim objParent As Object
Set objParent = GetSpellingSuggestions(1).Parent

SpellingSuggestions.Count

Renvoie un type long qui représente le nombre de suggestions d'orthographe dans la collection.

Dim lngCount As Long
lngCount = GetSpellingSuggestions.Count

SpellingSuggestions.Item

Renvoie un objet SpellingSuggestion spécifique appartenant à une collection.

Syntaxe : expression.Item (Index)

Index: Objet spécifique qui doit être renvoyé.

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

SpellingSuggestions.Parent

Renvoie un Object qui représente l'objet parent de l'objet SpellingSuggestions spécifié.

Dim objParent As Object
Set objParent = GetSpellingSuggestions.Parent

SpellingSuggestions.SpellingErrorType

Renvoie le type d'erreur de l'orthographe.

Valeurs possibles sont wdSpellingCapitalization - Erreur de majuscule, wdSpellingCorrect - L'orthographe est correcte, wdSpellingNotInDictionary - Le mot ne se trouve pas dans le dictionnaire spécifié.

Utilisez la méthode GetSpellingSuggestions pour renvoyer une collection de mots suggérés en remplacement.

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