技术论坛

    以前用Wincc6.2做的项目要转到V7.x,一步步的从6.2转到V7.0,再转到7.4，但是有些文字显示不出来，咨询了西门子客服之后，要添加一个台湾中文到文本框，添加完成之后大部分文本都能够显示出来了，但是存在一个问题，按钮上的文字是中文简体，而静态文本是台湾中文，运行的时候总不可能运行两种文本，运行简体中文静态文本是问号，运行繁体中文按钮又是问号，而且就算把文字手动修改，文字的字体、大小、粗体、下划线等属性都要跟着改一遍，工作量相当的大。上周日学了一天的VBA决定VBA可以解决这个问题，本来的思路是通过切换开发环境语言，然后遍历所有静态文本，把静态文本的字体、大小、粗体、下划线等属性存储在数组中，然后再切缘语言将保存在数组中的属性赋值给静态文本。今天看VBA帮助的时候，发现有LDTexts（Index）和LDFonts（Index）属性，这两个属性的Index代表着不同语言，但是Index对应的语言是不确定的，所以在变量第一个静态字体时先判断Index和LanguageID的对应关系，2052是中文简体，1028时台湾繁体，1031为英语，判断完成之后再进行替换，一秒钟都用不了所有静态文本被替换完成，文字大小格式也都没有改变，全部照着台湾繁体的格式复制过来。

使用VBA,首先打开画面，找到工具菜单下的——宏——VBA编辑器

然后在ProjectTemplate模板下输入代码和窗体，ProjectTemplate下的程序和脚本运行在画面窗口中，

建立菜单脚本：

替换字体和格式脚本：

代码输入完成后，运行脚本，画面窗口出现自定义菜单如下图所示，

项目文件到百度网盘下载:

链接：https://pan.baidu.com/s/1lHokM74UwOY8Vo3KJJWqqg 

提取码：u0xf

有时文本都是问号真是要了命，如果能有办法校正回来真是善莫大焉。

楼主这个VBA玩的太溜了啊

可以开发个批量生成对象的控件，好像不少有需要的

不错，太赞了

恩，不错的分享，感谢！

这个应用比较经典。

可以作为学习VBA的范例。 

然而， 实际应用中， 还是直接使用台湾中文比较简单。 

另外，语言导出工具来实现也是比较容易的。 

楼主既然这么迷恋VBA，给你出个题目如何？

尝试下自动批量生成FACEPLATE实例的方法。

比如手工做了1个实例，属性和事件里绑定了变量和脚本， 复制之后替换到别的变量。 

你说的FACEPLATE我很少用，用这个功能觉得太死板，我倒喜欢用小窗口复制，容易调整。学VBA纯粹是兴趣，最近时间比较充裕，正在学习VB.Net和Wincc，每天有100行代码的任务，所以就弄了这样一个VBA功能。

学习了....

你在其他的帖子中有提到过结构变量。

而对于高效设计而言， UDT, 结构变量, FACEPLATE面板， 窗口管理。。。这些是必要的工具。 

感谢分享，学习了！

谢谢分享！这种情况在项目升级中常有

多谢，正在学习这个VBA太有用了

 楼主好厉害，值得学习。

，确实很不错，效率提高了不少

楼主威武霸气

向楼主学习，good good study，day day up

不错的案例，感谢分享