Propriedade Application.Languages (Word)
Retorna uma coleção Idiomas que representa os idiomas de prova listados na caixa de diálogo Idioma .
Sintaxe
expression. Languages
expressão Uma variável que representa um Aplicativo objeto.
Comentários
Para obter informações sobre como retornar um único membro de uma coleção, consulte Retornando um objeto de uma coleção.
Exemplo
Este exemplo retorna o caminho completo e o o nome de arquivo do dicionário de ortografia ativo.
Dim dicSpell As Dictionary
Set dicSpell = _
Languages(Selection.LanguageID).ActiveSpellingDictionary
MsgBox dicSpell.Path & Application.PathSeparator & dicSpell.Name
Este exemplo usa a aLang()
matriz para armazenar os nomes de linguagem de revisão.
Dim intCount As Integer
Dim langLoop As Language
Dim aLang(Languages.Count - 1) As String
intCount = 0
For Each langLoop In Languages
aLang(intCount) = langLoop.NameLocal
intCount = intCount + 1
Next langLoop
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.