Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/17.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
如何在VBA for Powerpoint中将文本设置为中文字符?_Vba_Character Encoding_Powerpoint - Fatal编程技术网

如何在VBA for Powerpoint中将文本设置为中文字符?

如何在VBA for Powerpoint中将文本设置为中文字符?,vba,character-encoding,powerpoint,Vba,Character Encoding,Powerpoint,我正在尝试使用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.Te

我正在尝试使用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是汉字字符串。这会导致像ïïïïïïïïïïïïïïïïïïïïïïï

按照中的说明(不包括注册表破解)


我刚刚用Office 2010 x86在我的英文Windows 7 Ent x64上进行了测试,工作非常出色!

这可能有助于了解DataLineTrad和DataLineSimp的值是什么?作为测试,我在幻灯片中添加了两个文本框,一个添加了英文文本,另一个添加了日文文本(我没有安装中文,但问题应该类似).然后在代码中,我将英文文本框的文本设置为=日文文本框的文本,它就工作了。所以我想知道您的变量内容是否有问题。