欢迎来到天天文库
浏览记录
ID:37013293
大小:191.51 KB
页数:8页
时间:2019-05-12
《word中的宏代码》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、Word中的宏代码(1):有关宏的基本操作 有关宏的基本操作 经常有人说:不掌握宏的应用,就不能叫做精通MSOffice。什么是宏呢?宏是一系列Word命令和指令,这些命令和指令组合在一起,可以形成一个单独的命令,以实现任务执行的自动化。本栏目以Word2003为例给大家详细介绍宏及其典型的应用。这次我们先介绍宏的一些基本操作。 1.建立宏 执行“工具→宏→VisualBasic编辑器”命令,进入“VisualBasic编辑”窗口(图1),在左侧“工程资源管理器”窗口中,选中“Normal”
2、选项或“Project”选项,执行“插入→模块”命令,插入一个模块(如“模块1”),双击“模块1”在窗口右边展开“模块1(代码)”编辑窗口(图1),按下述格式输入宏代码: Sub宏名称() 宏代码 EndSub 输入完成后,关闭窗口返回即可。 提示 ①可以通过执行“工具→宏→录制新宏”命令,然后取名录制建立宏。不过,这样录制出来的宏,通常含有大量的多余宏代码。 ②如果“工程资源管理器”窗口没有展开,请执行“视图→工程资源管理器”命令将它展开。 ③选中“Normal”选项(在Excel
3、中对应的是“VBAProject(PERSONAL.xls)”选项)建立的宏,对所有的文档有效;选中“Project”选项(在Excel中对应的是“VBAProject(工作簿名称)”选项)建立的宏,仅对相应的文档有效。 ④“宏名称”可以自己随意确定(支持汉字)。 2.运行宏 执行“工具→宏→宏”命令(或者按“Alt+F8”组合键),打开“宏”8对话框,双击需要运行的宏即可。 提示 ①要使宏运行,需要将宏的安全性设置为“低”:执行“工具→宏→安全性”命令,打开“安全性”对话框,选中“低”选
4、项后,按“确定”返回即可。 ②利用“宏”对话框右侧的相关按钮,可以快速实现对宏的编辑、创建、删除等操作。 3.建立宏按钮 如果你经常要运行某个宏,我们可以在工具栏上为相应的宏建立一个按钮。 ①执行“工具→自定义”命令,打开“自定义”对话框(图2)。 ②切换到“命令”标签下,在“类别”下面选中“宏”选项,然后将右边“命令”区中相应的宏拖到工具栏上。 提示 在Excel中,可以将“自定义按钮”选项拖到工具栏中合适的位置。 ③单击“更改所选内容”按钮,在随后弹出的快捷菜单的“命令”后面的方
5、框中输入一个便于理解的名称,同时选中菜单中的“总是只用文字”选项。 提示 在Excel中,要增加一步操作:选中拖到工具栏上的“自定义按钮”(此时已改名),右击鼠标,在随后弹出的快捷菜单中,选“指定宏”选项,打开“指定宏”对话框(类似“宏”对话框),选中相应的宏,按“确定”返回。 ④关闭“自定义”对话框。 以后需要运行该宏时,只要单击刚才建立的按钮就行了。8 Word中的宏代码(2):添加作者信息 目的 我们写好稿件后,通常要将自己的联系信息添加到文档中,运行下面的宏可以将定制好的信息一
6、次性插入到光标处。 宏代码 Subdzxx() Selection.TypeTextText:="作者姓名:XXX" Selection.TypeParagraph Selection.TypeTextText:="通讯地址:XXX" Selection.TypeParagraph Selection.TypeTextText:="邮政编码:XXX" Selection.TypeParagraph Selection.TypeTextText:="电子信箱:XXX" EndSub
7、 说明 ①宏名“dzxx”可以随意修改。 ②在实际使用中,请将代码中的“XXX”字符替换成你所要输入的字符。 进阶 如果在“Subdzxx()”下面添加两行代码:SetmyDoc=Documents.Add和Selection.TypeParagraph,在“EndSub”上面添加一行代码:Selection.MoveUpUnit:=wdScreen,Count:=1,则运行该宏时,系统将自动新建一空白文档,并将定制好的信息输入到文档中,输入完成后将光标移动到第一行的行首,等待你输入正文内
8、容。 Word中的宏代码(5):在页脚中添加文档名称和保存路径 目的 在页脚中添加文档名称和保存路径,方便查找。 宏代码 Subbclj() ActiveWindow.ActivePane.View.SeekView=wdSeekCurrent PageFooter Selection.ParagraphFormat.Alignment=wdAlignParagraph Right Selection.Fields.AddRan ge:=Sele
此文档下载收益归作者所有