一、OFFICE中利用SOAP集成翻譯

    工作中經常要用到翻譯功能，GOOGLE 和bing都提供了翻譯接口，但目前GOOGLE已經關閉了免費的API服務，而微軟的BING則繼續提供每月200萬字符的免費接口，bing翻譯提供三種方式，http模式、ajax模式和soap模式，其中soap模式簡單方便，重要的是，它幾乎不受要翻譯文字長短限制，不像前2種方式收到瀏覽器網址長度限制導致要翻譯的文字有長度限制，今天討論如何在OFFICE中利用SOAP集成翻譯，首先要下載工具(文末附下載地址及源碼)
Microsoft Office 2003 Web Services Toolkit 2.01
安裝完畢，后打開word>> 工具>>宏>>Visual Basic編輯器>>工具>>WEB服務引用

輸入web服務地址: http://api.microsofttranslator.com/V2/Soap.svc ，搜索得到上圖右側結果，點添加后，系統自動生成代碼如下圖所示，其中包含了WebService對應的代理類和相關的實體類，還有一個工廠類。

接下來，插入一個用戶窗體，拖出控件箱，拖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中顯示，
運行后，在textbox1中輸入中文，點翻譯按鈕，結果如textbox2所示。
 

怎么樣，夠簡單吧！還可以進一步創建一個過程將宏添加到word工具欄上，可以直接翻譯打開的word文檔，暫且不做示范了。

[1] [2] [3] [4] 下一頁