让Word 2013的翻译功能更强劲

林丽华

除了办公处理之外，Word 2013向我们提供了强大的翻译功能，这里向读者介绍Word 2013的两个翻译方面的实用技巧：

借助联机服务增强翻译功能

如果你的系统一直保持在线，那么并不需要特地安装第三方词典工具，手工激活Word 2013的联机服务即可增强翻译功能：

切换到“审阅”选项卡，单击“翻译”按钮打开“信息检索”窗格，单击“翻译选项”按钮，此时会弹出“翻译选项”对话框（如图），在这里勾选“使用联机词典”和“使用在线机器翻译”两个复选框，至于是否需要选中所有的可用语言，可以根据实际需要进行确定。

以后，只要系统已经连接到网络，那么可以随时随地使用联机词典和机器翻译的服务，很方便吧？

安装可用词典

很多时候，你可能经常需要临时查阅某一英文单词的同义词，此时可以考虑从Office应用商店安装免费的词典：，点击相应词典底部的“下载”按钮即可完成安装。以后，直接右击选择“同义词”即可从快捷菜单查看相应的同义词。

ProgressBar 进度条控件

进度条控件是用来显示进度的控件，该控件在应用程序的加载、下载等待、安装等应用中非常广泛。要使用进度条控件，首先需要从“附加控件”对话框中选中它并将其添加到窗体工具箱上，进度条控件的名字是“Microsoft ProgressBar Control 6.0 （SP4）”。

该控件的主要属性有：Max属性用于指定进度条控件的最大值；Min属性用于指定进度条控件的最小值；Value属性用于显示进度条的进度值。

利用进度条控件和标签控件，我们可以设计一个窗体界面（如图3），最后在窗体Activate事件中编写如下代码就可以模拟其效果了。

Private Sub UserForm_Activate（）

ProgressBar1.Min = 1

ProgressBar1.Max = 20000

Label2.Caption = "0%"

For i = 1 To 10000 Step 0.1

ProgressBar1.Value = Str（i）

Label2.Caption = Round（i / 10000， 2） * 100 & "%"

DoEvents

Next i

End Sub

稍有遗憾的是，本例无法根据系统的运行情况实现进度条加载速度快慢的控制，大家可以进一步对这个功能进行研究和完善噢。

小贴士

大家可以根据演示的速度来调整代码中的相关数值。需要说明的是：代码中使用了DoEvents 函数，其作用是转让控制权，以便让操作系统处理其它的事件。当我们需要执行一段循环代码时，特别是循环的次数较大时，为了防止出现死机或死循环，在循环代码的开始加上DoEvents函数以便在程序运行过程中可以中止程序的运行。

Flash 控件

大家知道在Office组件中插入Flash文件倒是挺方便的，其实在用户设计的应用程序窗体中也可以插入Flash对象噢。当然了，首先要添加“Flash控件”，控件的名字是“Shockwave Flash Object”。

当然了，VBA中的自定义控件也不止我们今天介绍的这几个，在很多时候，其实用户的很多需求利用这些自定义控件就可以很方便地实现了，而无需我们辛辛苦苦地去重复编写这些代码。怎么样，学会了这些自定义控件的使用，大家是不是觉得Office二次开发其实很有用呢？

小贴士

在窗体中添加Flash对象的方法与在文档中添加Flash的方法相同，这里就不再赘述了。利用Flash控件对象，我们可以制作出精美的欢迎界面、功能强大的CAI（计算机辅助教学）软件以及一些个性化的应用程序菜单等，结合Flash本身强大的Action Script命令，我们几乎无所不能。