给Word添加数字大小写转换命令

给Word添加数字大小写转换命令
Next i 当用 Wo rd 输入表示金额的数字时 , 除了输入阿拉伯数字(() )k = Val Mid c , l - 1 , 1 外 ,常常需要输入数字的中文大写形式 ,而输入中文大写数字显 ( ) chine se = chine se + Midstr1 , k + 1 , 1+ “角” 然比输入阿拉伯数字要慢得多 ,若能提供一个直接将阿拉伯数字(() )k = Val Mid c , l , 1 自动转换中文大写数字的命令 ,可以大大提高输入速度。

笔者编( ) chine se = chine se + Midstr1 , k + 1 , 1+ “分” 写了一个 Change To Cn 宏命令可以实现这一功能 ,本文详细介绍 detail = chine se Selectio n. Inse rtAfte r chine se Wo rd97/ 2000 中创建该宏命令。

如何在 End If 一、创建一个对话窗口 frmchangeto cn. hide 单击“工具”3“宏”3“Vi sual Ba sic 编辑器”,启动 Vi sual Ba2 End Sub sic 编辑器。

单击其菜单栏上的命令“插入”3“添加用户窗体”, ( ) 单击“取消”命令按钮 Co mmandButto n2 , btnCanc el,为其添加一 () 添加一个空白用户窗体 ,在窗体上添加两个标签 La bel、两个文段命令处理程序如下 : ( ) ( ) 本编辑Te xtBo x和两个命令按钮 Co mmandButto n控件 ,按下表
()Privat e Sub btnc anc el- Click 修改它们的属性。

frmchangeto cn. hide 组件属性值 End Sub
() 最后给窗体的激活事件 Use rFo rm- Activat e添加如下程序段 : )( 命名 frmChange To Cn userfo rm 将阿拉伯数字转换为中文大写数字 ()Privat e Sub Use rFo rm- activat e Captio n
)( 命名 Lo a d frmchangeto cn la bel La bel 输入阿拉伯数字 : End Sub Captio n 二、创建调用该对话窗口的宏命令 ( )命名 Te xtBo x txt alb 单击Vi sual Ba sic 编辑器菜单栏上的“插入”3“添加模块”命 )( 命名 btnO K
令 ,在代码编辑窗口输入如下程序段 : Co mmandButto n1 确定 Captio n ()Sub changeto cn )( 命名 btnCancel Co mmandButto n2 frmchangeto cn. Show 取消Captio n End Sub ( ) 然后单击“确定”命令按钮 Co mmandButto n1 ,btnO K,为其添完成上述步骤后 ,保存整个工作 ,切换回 Wo rd ,就可以使用该宏加一段命令处理程序如下 : 命令了。

()Private Sub btno k- Click 三、直接使用该宏命令 Dim str1 , str2 , str3 As String
str1 = “零壹贰叁肆伍陆柒捌玖”
str2 = “圆拾佰仟万拾佰仟亿拾佰仟兆拾佰仟万拾佰仟亿” 将插入点定位在需要插入中文大写数字的位置 ,单击“工具”str3 = “角分”
chine se = “” 3“宏”3“ 宏”,打开宏对话窗口 ,选择 Change To Cn 宏并运行之, If txtalb. Text < > “”Then () 弹出一个对话窗口见图 1,在文本框中输入阿拉伯数字如 123 .
cc = txtalb. Text 45 ,单击“确定”按钮即可在插入点处获得相应的中文大写数字 :
()n1 = Val cc 壹佰贰拾叁圆肆角伍分。

使用该宏命令插入中文数字 ,大大简化 ( () )c = Trim Str n2 了排版的难度。

()n = InStr c ,“. ”
I f n = 0 Then c = c +“. 00”
() If L en c- n = 1 Then c = c +“0” () l = L en c
l1 = l - 3
l2 = 2
Fo r i = l1 To 1 Step - 1 (() )k = Val Mid c , i , 1
( ) ( )chine se = Mid str1 , k + 1 , 1+ Mid str2 , l1 - i + 1 , 1 + chine se 图 1
四、将该宏命令定义在工具栏上
单击菜单“工具/ 自定义”命令 ,打开“自定义”对话框 ;选择对
话框的“工具栏”标签 ,再单击对话框左边的“新建”按钮打开“新
建工具栏”对话框 ;在对话框的“工具栏名称”文本框内输入一个
() 自定的名字如“自定义宏”,并在“工具栏有效范围”下拉列表框 () 中点选“No rmal”通用模板,再点“确定”关闭“新建工具栏”对话框。

就建立了一个名为“自定义宏”的自定义工具栏“, 公式”工具
() 栏按钮就显示在屏幕上如图 1。

你可以将其插到 Wo rd 工具栏
上你认为合适的位置。

图 3
图 2
在“自定义”对话框中打开“命令”标签 ,在“类别”列表框中选
择“宏”; 在“命令”列表框中选择“Proje ct . 模块 2 . changeto cn”;
“Proje ct . 模块 2 . changeto cn”被蓝条包围 ,将它拖至刚建立的“自定义宏”工具栏按钮内 ,如图 2 所示。

图 4
至此 ,自定义工具按钮就已做成 ,如果想使该按钮更
右击该按钮弹出快捷菜单如图 4 所示 ,选择“更改按钮图
按钮指定一个图标 ,选择“默认样式”将该按钮设置成只有
有文字的默认样式。

最后点击窗口内的“关闭”按钮
Wo rd 工具栏上就有了一个自定义工具按钮 ,今后要输入
写数字只需点击此按钮即可。

( ) 上接第 50 页
3 、增强的安全性管理。

网络安全性包括系统安全性和接入片的发展和高可靠性、高性能的微处理器的使用从根本上安全性 ,系统安全性指在网络由核心到
边缘的整体架构中实现安网络设备的可靠性和稳定性 ;先进的嵌入性实时操作系统全机制 ,即通过特定技术对网络管理信息进行加密、控制和全网技术的发展 ,保证了网络设备的稳健性 ; 核心处理部件的络系统的安全交换 ;接入安全性是指各类型接入交换系统的安全计 ,杜绝了灾难和故障发生。

接入机制。

4 、简易化和智能化设备管理。

集群管理可以维护众多的网总之 ,预计到200
5 年之前 ,数据传输量每年将以 3 倍络设备 ,并提供设备拓扑发现功能、设备故障和链路故障告警、设增长 ,并于当年超过语音传输量 ,成为全球通信网络主要备统一配置等多种灵活的网络维护手段 ,设备管理的简易化和智方式。

面对日益增长的数据流和多媒体服务 ,大容量、高能化是显而易见的。

同时 , We b 技术的引入也使得分布式网络功能模块高端网络产品的市场规模将不断扩大。

可以预管理从理论转向实际应用。

千兆以太网交换机所占的市场份额必将会越来越大 ,并 5 、网络设备的可靠性和稳健性显著提高。

集成网络处理芯 Int e rnet 的发展和网络上层出不穷应用的出现 ,万兆以太
以后的主流 ,但在近两年内 ,千兆以太网将仍然是市场上
参考文献 :
1 《计算机网络》谢希仁电子工业出版社
2 《Co mp ut er Netwo rks》 Tanenbaum ,A. S p rentice - Hall。