MS Word VBA 显示 Unicode 字符串答案

【问题标题】：MS Word VBA to display Unicode stringsMS Word VBA 显示 Unicode 字符串
【发布时间】：2013-07-15 21:58:54
【问题描述】：

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

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

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

【问题讨论】：

显示是什么意思？在文档中，在 MessageBox 中还是在表单中？
以表格形式显示。

标签： vba unicode ms-word persian farsi

【解决方案1】：

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

'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

【讨论】：