一、OFFICE中利用SOAP集成翻譯
工作中經(jīng)常要用到翻譯功能，GOOGLE 和bing都提供了翻譯接口，但目前GOOGLE已經(jīng)關(guān)閉了免費(fèi)的API服務(wù)，而微軟的BING則繼續(xù)提供每月200萬字符的免費(fèi)接口，bing翻譯提供三種方式，http模式、ajax模式和soap模式，其中soap模式簡單方便，重要的是，它幾乎不受要翻譯文字長短限制，不像前2種方式收到瀏覽器網(wǎng)址長度限制導(dǎo)致要翻譯的文字有長度限制，今天討論如何在OFFICE中利用SOAP集成翻譯，首先要下載工具(文末附下載地址及源碼)
Microsoft Office 2003 Web Services Toolkit 2.01
安裝完畢，后打開word>> 工具>>宏>>Visual Basic編輯器>>工具>>WEB服務(wù)引用
輸入web服務(wù)地址: http://api.microsofttranslator.com/V2/Soap.svc ，搜索得到上圖右側(cè)結(jié)果，點(diǎn)添加后，系統(tǒng)自動生成代碼如下圖所示，其中包含了WebService對應(yīng)的代理類和相關(guān)的實(shí)體類，還有一個工廠類。
接下來，插入一個用戶窗體，拖出控件箱，拖2個文本框和一個按鈕，分別為textbox1 textbox2 CommandButton1
雙擊按鈕，輸入以下代碼
Private Sub CommandButton1_Click()
Dim obingTranslate As New clsws_SoapService
TextBox2.Text = obingTranslate.wsm_Translate(“你申請的APPID”, TextBox1.Text, "zh-CHS", "en", "text/plain", "general")
End Sub
我這里是將textbox1中的中文翻譯成英文在textbox2中顯示，
運(yùn)行后，在textbox1中輸入中文，點(diǎn)翻譯按鈕，結(jié)果如textbox2所示。
怎么樣，夠簡單吧！還可以進(jìn)一步創(chuàng)建一個過程將宏添加到word工具欄上，可以直接翻譯打開的word文檔，暫且不做示范了。