MS Word VBA顯示Unicode字符串

Question

我們在MS Word 2010中有一些VBA代碼需要動態顯示波斯語（波斯語）單詞;換句話說，取決於用戶在VBA應用程序窗口上單擊哪個按鈕，我們將顯示不同的波斯語字符串。

我們發現要做到這一點的唯一方法是使用類似這樣的東西，並按字符串連一個很長的字符串：the ChrW(&633)。你知道另一種方式，我們可以做到這一點？字符串將保持不變，但我們需要一些不同的字符串。他們可以從文件加載嗎？

非常感謝您的幫助。謝謝。

Answer 1

讓我們有一個UTF-8文本文件unicode.txt，形式UserForm1與標籤的Label1和按鈕CommandButton1的：

'ensure reference is set to Microsoft ActiveX DataObjects library 
'(the latest version of it) under "tools/references" 

Dim adoStream As ADODB.Stream 
Dim var_String As Variant 

Set adoStream = New ADODB.Stream 

adoStream.Charset = "UTF-8" 
adoStream.Open 
adoStream.LoadFromFile "unicode.txt" 

Label1 = adoStream.ReadText 

adoStream.Close