Clase SpellingSuggestion (Word VBA)

La clase SpellingSuggestion representa una sola sugerencia para una palabra escrita incorrectamente.

Set

Para usar una variable de clase SpellingSuggestion, primero debe ser instanciado, por ejemplo

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

Los siguientes procedimientos se pueden usar para establecer variables de clase SpellingSuggestion : SpellingSuggestions.Item, Application.GetSpellingSuggestions y Range.GetSpellingSuggestions

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos SpellingSuggestion en una colección.

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

Name

Devuelve el nombre del objeto especificado.

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

Parent

Devuelve un objeto Object que representa el objeto primario del objeto SpellingSuggestion especificado.

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

SpellingSuggestions.Count

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

Dim lngCount As Long
lngCount = GetSpellingSuggestions.Count

SpellingSuggestions.Item

Devuelve un objeto SpellingSuggestion individual de una colección.

Sintaxis : expression.Item (Index)

Index: El objeto individual que se va a devolver.

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

SpellingSuggestions.Parent

Devuelve un objeto Object que representa el objeto primario del objeto SpellingSuggestions especificado.

Dim objParent As Object
Set objParent = GetSpellingSuggestions.Parent

SpellingSuggestions.SpellingErrorType

Devuelve el tipo de error ortográfico.

Valores posibles 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