Propriedade Language.ActiveSpellingDictionary (Word)
Retorna um objeto Dictionary que representa o dicionário de ortografia ativo para o idioma especificado.
Sintaxe
expression. ActiveSpellingDictionary
Expressão Uma expressão que retorna um objeto 'Language'.
Comentários
Se não houver nenhum dicionário de ortografia instalado para o idioma especificado, essa propriedade retornará Nothing.
Exemplo
Este exemplo retorna o caminho completo e o o nome de arquivo do dicionário de ortografia ativo.
Dim lngLanguage As Long
Dim dicSpelling As Dictionary
lngLanguage = Selection.LanguageID
Set dicSpelling = Languages(lngLanguage).ActiveSpellingDictionary
If dicSpelling Is Nothing Then
MsgBox "No spelling dictionary installed!"
Else
MsgBox dicSpelling.Path & Application.PathSeparator _
& dicSpelling.Name
End If
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.