Aqui está uma macro rápida e suja que você pode se adaptar às suas necessidades. Como está agora, ele executará uma verificação ortográfica em inglês americano em Column A
e, em seguida, executará uma verificação ortográfica em espanhol mexicano em Column B
. Você pode encontrar os códigos dos idiomas suportados aqui .
Sub multilanguageSC()
Dim rngEng As Range, rngSpa As Range
'Set ranges to check for each language.
Set rngEng = ActiveSheet.Range("A:A")
Set rngSpa = ActiveSheet.Range("B:B")
'Set spelling dictionary language to English (US).
Application.SpellingOptions.DictLang = 1033
'Check spelling for designated English range.
rngEng.CheckSpelling
'Set spelling dictionary language to Spanish(Mexico).
Application.SpellingOptions.DictLang = 2058
'Check spelling for designated Spanish range.
rngSpa.CheckSpelling
'Set spelling dictionary back to default setting.
Application.SpellingOptions.DictLang = Application.LanguageSettings.LanguageID(msoLanguageIDUI)
End Sub