- 欢迎访问起航教学!
给Word添加一个分数输入命令
12-14 18:35:46 分类:办公技巧 浏览次数: 138次
标签:办公技巧大全,http://www.qihang56.com
给Word添加一个分数输入命令,
当编辑科技文档时,常常需要输入分数,但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宏并运行之,弹出一个对话窗口(见图),分别在“分子表达式”和“分母表达式”编辑框中输入分数的分子和分母,单击“确定”按钮输入分数。使用该宏命令插入的分数域,在编辑过程中被当作一个单独的编辑单元对待,大大简化了排版的难度。例如: 。为了使用方便,你可以将该宏定义在工具栏上,使用时,只需单击相应工具按钮就可以打开对话窗口。
本文来自 http://www.qihang56.com 谢谢支持
当编辑科技文档时,常常需要输入分数,但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宏并运行之,弹出一个对话窗口(见图),分别在“分子表达式”和“分母表达式”编辑框中输入分数的分子和分母,单击“确定”按钮输入分数。使用该宏命令插入的分数域,在编辑过程中被当作一个单独的编辑单元对待,大大简化了排版的难度。例如: 。为了使用方便,你可以将该宏定义在工具栏上,使用时,只需单击相应工具按钮就可以打开对话窗口。
本文来自 http://www.qihang56.com 谢谢支持
相关热词搜索:
- ·上一篇:让WORD工作效率大增的“独门密技”
- ·下一篇:在Word中录入分式一法
分享到:
收藏
评论排行
办公技巧 热门排行
- · PowerPoint2017教程:平抛运动的实现
- · 粘贴预览 Excel2017粘贴效果预览功能
- · 在Word2017文档中替换字符技巧
- · 轻松找回Office2017传统界面
- · 用Word 2017书签编辑长文档
- · 将PowerPoint2017幻灯片打包成CD并刻录
- · Word2017应用技巧荟萃
- · word2017怎样设置和灵活应用页眉和页脚
- · 如何删除最近的Word2017文档记载
- · 经典Word 2017小技巧
- · PowerPoint2017丰富图片优化编辑
- · 禁止未授权用户修改 Word 2017 文档
- · 两种方法解决Office2017和office 2017
- · Word2017中显示或隐藏标尺网格线和导航
- · 提取PowerPoint2017中的图片
- · 在PowerPoint2017(PPT)中插入Excel图
- · 在Word2017中设置折页和拼页页边距
- · 用Web版式视图将Excel2017表格转为Wor
- · 设置Excel2017数据精度 保障准确性
- · Word2017很多你看不见的技巧
- · Word2017中智能标记的设置
- · Word 2017文档中设置纸张大小技巧
- · Office 2017安装后出现的Q盘分区有什么
- · 利用Word2017新功能除去修订