Classe Language - idioma (Word VBA)
A classe Language representa um idioma usado para verificação e formatação no Microsoft Word. O objeto de idioma é um membro da coleção de idiomas. Para usar uma variável de classe Language, ela primeiro precisa ser instanciada por exemplo
Dim lng as Language
Set lng = Languages(Index:=1)
For Each
Aqui está um exemplo de processamento dos itens Language em uma coleção.
Dim lng As Language
For Each lng In Languages
Next lng
ActiveGrammarDictionary
Retorna um objeto Dictionary que representa o dicionário gramatical ativo para o idioma especificado. Somente leitura.
Se não houver nenhum dicionário de gramática instalado para o idioma especificado, essa propriedade retornará Nothing.
Dim lngLanguage As Long
Dim dicGrammar As Dictionary
lngLanguage = Selection.LanguageID
Set dicGrammar = Languages(lngLanguage).ActiveGrammarDictionary
MsgBox dicGrammar.Path & Application.PathSeparator & dicGrammar.Name
ActiveHyphenationDictionary
Retorna um objeto Dictionary que representa o dicionário de hifenização ativo para o idioma especificado. Somente leitura.
Se não houver nenhum dicionário de hifenização instalado para o idioma especificado, essa propriedade retornará Nothing.
Dim lngLanguage As Long
Dim dicHyphen As Dictionary
lngLanguage = Selection.LanguageID
Set dicHyphen = Languages(lngLanguage).ActiveHyphenationDictionary
If dicHyphen Is Nothing Then
MsgBox "No hyphenation dictionary installed!"
Else
MsgBox dicHyphen.Path & Application.PathSeparator & dicHyphen.Name
End If
ActiveSpellingDictionary
Retorna um objeto Dictionary que representa o dicionário de ortografia ativo para o idioma especificado.
Se não houver nenhum dicionário de ortografia instalado para o idioma especificado, essa propriedade retornará Nothing.
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
ActiveThesaurusDictionary
Retorna um objeto Dictionary que representa o dicionário de sinônimos ativo para o idioma especificado.
Se não houver um dicionário de sinônimos instalado para o idioma especificado, essa propriedade retornará Nothing.
Dim lngLanguage As Long
Dim dicThesaurus As Dictionary
lngLanguage = Selection.LanguageID
Set dicThesaurus = Languages(lngLanguage).ActiveThesaurusDictionary
If dicThesaurus Is Nothing Then
MsgBox "No thesaurus dictionary installed!"
Else
MsgBox dicThesaurus.Path & Application.PathSeparator _
& dicThesaurus.Name
End If
DefaultWritingStyle
Retorna ou define o estilo usado pelo verificador gramatical para o idioma especificado de texto padrão. String de leitura/gravação.
O nome do estilo de texto é o nome localizado para o idioma especificado. Quando definir essa propriedade, use o nome exato encontrado na caixa Estilo de Texto na guia Ortografia e Gramática na caixa de diálogo Opções (menu Ferramentas). A propriedade ActiveWritingStyle define o estilo de texto para cada idioma em um documento. A configuração de ActiveWritingStyle sobrescreve a configuração DefaultWritingStyle.
Dim lngLanguage As Long
lngLanguage = Selection.LanguageID
Msgbox Languages(lngLanguage).DefaultWritingStyle
ID
Retorna um número que identifica o idioma especificado. WdLanguageIDsomente leitura. Aqui você pode encontrar os valores possíveis para
Selection.LanguageID = Languages("Icelandic").ID
Name
Retorna o nome do objeto especificado. Cadeia de caracteressomente leitura.
Dim strName As String
strName = Languages(1).Name
NameLocal
Retorna o nome de um idioma de ferramenta de revisão de texto no idioma do usuário. Cadeia de caracteressomente leitura.
MsgBox Languages(wdGerman).NameLocal
MsgBox Languages(wdGerman).Name
SpellingDictionaryType
Retorna ou define o tipo de ferramenta de revisão de texto. Leitura/gravação WdDictionaryType. Aqui você pode encontrar os valores possíveis para
Você pode usar essa propriedade para trocar o dicionário de ortografia ativo por um dos dicionários suplementares disponíveis que trabalham com o Word. Por exemplo, existem dicionários de ortografia completos, jurídicos e médicos que você pode usar em vez do dicionário padrão. Algumas constantes listadas acima podem não estar disponíveis para você, dependendo do suporte a idioma (por exemplo, português do Brasil) que tiver sido selecionado ou instalado.
myType = Languages(wdEnglishUS).SpellingDictionaryType
WritingStyleList
Retorna uma matriz de cadeia de caracteres que contém os nomes de todos os estilos de texto disponíveis para o idioma especificado. somente leitura.
Sub WritingStyles()
Dim WrStyles As Variant
Dim i As Integer
WrStyles = Languages(wdEnglishUS).WritingStyleList
For i = 1 To UBound(WrStyles)
MsgBox WrStyles(i)
Debug.Print WrStyles(i) & " [" & Trim(Str$(i)) & "]"
Next i
End Sub