Access VBA实现翻译功能, Access本身不带翻译，但可以通过调用网页的翻译功能来实现翻译，以下是 VB高手 "主席” 在 江苏大侠的基础上 改写的自动翻译 功能
Access 翻译 操作动画展示
详细Access VBA代码：
作者：主席（smileyoufu) 在 江苏大侠的基础上改写
'参数说明：
' 'strTextToBeTranslated 待翻译的语言内容
' 'LanguageFrom 待翻译的语言类型
' 'LanguageTo 目标语言类型
' 'strAppID 微软翻译API应用ID(使用默认值即可)
Public Function Translate( _
ByVal strTextToBeTranslated As String, _
Optional ByVal LanguageFrom As String = "ZH-CN", _
Optional ByVal LanguageTo As String = "EN", _
Optional ByVal strAppID As String = "708BEDCB01828123DC7B6C6A6AB12EF82DFBB611") As String
On Error Resume Next
Dim strURL As String
Dim objWinHttpRequest As Object
DoEvents
strURL = "http: //api.microsofttranslator.com/V2/Ajax.svc/Translate?oncomplete=&appId=" & _
strAppID + "&from=" & LanguageFrom + "&to=" & LanguageTo & "&text=" & strTextToBeTranslated
Set objWinHttpRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
With objWinHttpRequest
.Open "Get", strURL, False
.Send
Translate = Replace(VBA.Mid(.ResponseText, 3, Len(.ResponseText) - 3), "\""", """")
End With
If Translate = "" Then Translate = strTextToBeTranslated
Set objWinHttpRequest = Nothing
End Function
'[语言枚举]
' dyy("英语") = "en"
' dyy("德语") = "de"
' dyy("法语") = "fr"
' dyy("中文") = "zh-CN"
' dyy("俄语") = "ru"
' dyy("韩语") = "ko"
' dyy("日语") = "ja"
' dyy("阿尔巴尼亚语") = "sq"
' dyy("阿拉伯语") = "ar"
' dyy("阿塞拜疆语") = "az"
' dyy("爱尔兰语") = "ga"
' dyy("爱沙尼亚语") = "et"
' dyy("巴斯克语") = "eu"
' dyy("白俄罗斯语") = "be"
' dyy("保加利亚语") = "bg"
' dyy("冰岛语") = "is"
' dyy("波兰语") = "pl"
' dyy("波斯尼亚语") = "bs"
' dyy("波斯语") = "fa"
' dyy("布尔语(南非荷兰语)") = "af"
' dyy("丹麦语") = "da"
' dyy("菲律宾语") = "tl"
' dyy("芬兰语") = "fi"
' dyy("高棉语") = "km"
' dyy("格鲁吉亚语") = "ka"
' dyy("古吉拉特语") = "gu"
' dyy("哈萨克语") = "kk"
' dyy("海地克里奥尔语") = "ht"
' dyy("豪萨语") = "ha"
' dyy("荷兰语") = "nl"
' dyy("加利西亚语") = "gl"
' dyy("加泰罗尼亚语") = "ca"
' dyy("捷克语") = "cs"
' dyy("卡纳达语") = "kn"
' dyy("克罗地亚语") = "hr"
' dyy("拉丁语") = "la"
' dyy("拉脱维亚语") = "lv"
' dyy("老挝语") = "lo"
' dyy("立陶宛语") = "lt"
' dyy("罗马尼亚语") = "ro"
' dyy("马尔加什语") = "mg"
' dyy("马耳他语") = "mt"
' dyy("马拉地语") = "mr"
' dyy("马拉雅拉姆语") = "ml"
' dyy("马来语") = "ms"
' dyy("马其顿语") = "mk"
' dyy("毛利语") = "mi"
' dyy("蒙古语") = "mn"
' dyy("孟加拉语") = "bn"
' dyy("缅甸语") = "my"
' dyy("苗语") = "hmn"
' dyy("南非祖鲁语") = "zu"
' dyy("尼泊尔语") = "ne"
' dyy("挪威语") = "no"
' dyy("旁遮普语") = "pa"
' dyy("葡萄牙语") = "pt"
' dyy("齐切瓦语") = "ny"
' dyy("瑞典语") = "sv"
' dyy("塞尔维亚语") = "sr"
' dyy("塞索托语") = "st"
' dyy("僧伽罗语") = "si"
' dyy("世界语") = "eo"
' dyy("斯洛伐克语") = "sk"
' dyy("斯洛文尼亚语") = "sl"
' dyy("斯瓦希里语") = "sw"
' dyy("宿务语") = "ceb"
' dyy("索马里语") = "so"
' dyy("塔吉克语") = "tg"
' dyy("泰卢固语") = "te"
' dyy("泰米尔语") = "ta"
' dyy("泰语") = "th"
' dyy("土耳其语") = "tr"
' dyy("威尔士语") = "cy"
' dyy("乌尔都语") = "ur"
' dyy("乌克兰语") = "uk"
' dyy("乌兹别克语") = "uz"
' dyy("希伯来语") = "iw"
' dyy("希腊语") = "el"
' dyy("西班牙语") = "es"
' dyy("匈牙利语") = "hu"
' dyy("亚美尼亚语") = "hy"
' dyy("伊博语") = "ig"
' dyy("意大利语") = "it"
' dyy("意第绪语") = "yi"
' dyy("印地语") = "hi"
' dyy("印尼巽他语") = "su"
' dyy("印尼语") = "id"
' dyy("印尼爪哇语") = "jw"
' dyy("约鲁巴语") = "yo"
' dyy("越南语") = "vi"
