分享
 
 
 

Word添加一个分数输入命令

王朝other·作者佚名  2008-05-21
窄屏简体版  字體: |||超大  

当编辑科技文档时,常常需要输入分数,但Word不能直接输入分数。有两种实现方法:用 Word本身提供的的EQ(方程)域或用公式编辑器。这两种方法都不简便,笔者编写了一个EnterFraction宏命令可以在文档中方便地插入分数,大大简化了分数的编辑工作。下面详细介绍如何在Word 97/2000/XP中创建该宏命令。

1.创建一个对话窗口

单击“工具”*“宏”*“Visual Basic 编辑器”,启动Visual Basic 编辑器。单击其菜单栏上的命令“插入”*“添加用户窗体”,添加一个空白用户窗体,在窗体上添加两个标签(Label)、两个文本编辑(TextBox)和两个命令按钮(CommandButton)控件,按下表修改它们的属性。

组件

属性

userform

(命名)

frmEnterFraction

Caption

输入分数

TextBox1

(命名)

tbNumerator

Caption

分子表达式:

TextBox2

(命名)

tbDenominator

Caption

分母表达式:

CommandButton1

(命名)

btnOK

Caption

确定

CommandButton2

(命名)

btnCancel

Caption

取消

然后单击命令按钮1(CommandButton1,btnOK),为其添加一段命令处理程序如下:

Private Sub btnOK_Click()

If tbNumerator.Text <> "" And tbDenominator.Text <> "" Then

fractionText = "EQ \F(" + tbNumerator.Text + "," + tbDenominator.Text + ")"

Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _

fractionText, PreserveFormatting:=False

End If

frmEnterFraction.Hide

End Sub

单击命令按钮2(CommandButton2,btnCancel),为其添加一段命令处理程序如下:

Private Sub btnCancel_Click()

frmEnterFraction.Hide

End Sub

最后给窗体的激活事件(UserForm_Activate)添加如下程序段:

Private Sub UserForm_Activate()

Load frmEnterFraction

End Sub

2. 创建调用该对话窗口的宏命令

单击Visual Basic编辑器菜单栏上的“插入”*“添加模块”命令,在代码编辑窗口输入如下程序段:

Sub EnterFraction()

frmEnterFraction.Show

End Sub

完成上述步骤后,保存整个工作,切换回Word,就可以使用该宏命令了。

3. 使用该宏命令

将插入点定位在需要插入分数的位置,单击“工具”*“宏”*“ 宏”,打开宏对话窗口,选择EnterFraction宏并运行之,弹出一个对话窗口(见图),分别在“分子表达式”和“分母表达式”编辑框中输入分数的分子和分母,单击“确定”按钮输入分数。使用该宏命令插入的分数域,在编辑过程中被当作一个单独的编辑单元对待,大大简化了排版的难度。例如: 。为了使用方便,你可以将该宏定义在工具栏上,使用时,只需单击相应工具按钮就可以打开对话窗口。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有