如何在 VBA for Powerpoint 中将文本设置为汉字？答案

【问题标题】：How to set text to Chinese characters in VBA for Powerpoint?如何在 VBA for Powerpoint 中将文本设置为汉字？
【发布时间】：2017-06-08 02:26:56
【问题描述】：

我正在尝试使用 VBA 将 Powerpoint 文本框中的文本设置为以 UTF-8 编码的 .txt 文件中的中文字符。目前，我有

Set TradBox = Current.Shapes.AddTextbox(msoTextOrientationHorizontal, 0, 0, 500, 250)
Set SimpBox = Current.Shapes.AddTextbox(msoTextOrientationHorizontal, 0, 250, 500, 250)
TradBox.TextFrame.TextRange.Text = DataLineTrad
SimpBox.TextFrame.TextRange.Text = DataLineSimp

其中DataLineTrad 和Simp 是中文字符串。这会导致胡言乱语，例如ï»¿ç¦®è®“。如何更改文本框，使其编码与我尝试输入的文本匹配？

【问题讨论】：

这可能对Save text file UTF-8 encoded with VBA有帮助
DataLineTrad 和 DataLineSimp 的值是多少？作为测试，我在一张幻灯片中添加了两个文本框，一个添加了英文文本，另一个添加了日文文本（我没有安装中文，但问题应该是相似的）。然后在代码中，我将英文文本框的文本设置为 = 日文文本框的文本并且它起作用了。所以我想知道你的变量内容是否有问题。

标签： vba character-encoding powerpoint

【解决方案1】：

解决方案是调整操作系统以在 Windows 中为非 unicode 程序使用所需的语言。

按照How To Display Foreign Characters In Excel VBE 中的说明（减去注册表黑客）。

我刚刚在我的英文版 Windows 7 Ent x64 和 Office 2010 x86 上进行了测试，并且工作得很好！

【讨论】：