vba - MS Word VBA 显示 Unicode 字符串

Question

我们在 MS Word 2010 中有一些需要动态显示波斯语（波斯语）单词的 VBA 代码；换句话说，根据用户在 VBA 应用程序窗口中单击的按钮，我们将显示不同的波斯语字符串。

我们发现这样做的唯一方法是使用类似这样的方法并逐个字符连接一个很长的字符串：the ChrW(&633). 你知道我们可以做到这一点的另一种方式吗？字符串将保持不变，但我们需要几个不同的字符串。它们可以从文件中加载吗？

非常感谢您的帮助。谢谢。

Answer 1

让我们有一个 UTF-8 文本文件unicode.txt ，一个带有标签Label1和按钮CommandButton1的表单UserForm1：

'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