word中的宏代码

《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