Word中的宏代码

1、Word中的宏代码（1）:有关宏的基本操作有关宏的基本操作经常有人说：不掌握宏的应用，就不能叫做精通MSOffice。什么是宏呢？宏是一系列Word命令和指令，这些命令和指令组合在一起，可以形成一个单独的命令，以实现任 务执行的自动化。本栏目以Word 2003为例给大家详细介绍宏及其典型的应用。这次我们先介绍宏的一些基本操作。1.建立宏执行“工具t宏t Visual Basic编辑器”命令，进入“ Visual Basic编辑”窗口（图 1），在左侧“工程资源管理器”窗口中，选中“Normal”选项或“ Project ”选项，执行“插入T模块”命令，插入一个模块（如“模块1 ”），双击“模

2、块1 ”在窗口右边展开“模 块1（代码）”编辑窗口（图1），按下述格式输入宏代码：Sub宏名称（）宏代码End Sub输入完成后，关闭窗口返回即可。提示 可以通过执行“工具T宏T录制新宏”命令，然后取名录制建立宏。不过，这样 录制出来的宏，通常含有大量的多余宏代码。 如果“工程资源管理器”窗口没有展开，请执行“视图T工程资源管理器”命令 将它展开。 选中“ Normal”选项（在 Excel 中对应的是“ VBAProject（PERSONAL.xls） ”选项） 建立的宏，对所有的文档有效；选中“Project ”选项（在Excel中对应的是“VBAProject（工 作簿名称）”选项）建立

3、的宏，仅对相应的文档有效。 “宏名称”可以自己随意确定（支持汉字）。2.运行宏执行“工具T宏T宏”命令 （或者按“ Alt+F8 ”组合键），打开“宏”对话框，双击需要运行的宏即可。提示 要使宏运行，需要将宏的安全性设置为“低”：执行“工具T宏T安全性”命令,打开“安全性”对话框，选中“低”选项后，按“确定”返回即可。 利用“宏”对话框右侧的相关按钮，可以快速实现对宏的编辑、创建、删除等操 作。3.建立宏按钮如果你经常要运行某个宏，我们可以在工具栏上为相应的宏建立一个按钮。 执行“工具t自定义”命令，打开“自定义”对话框（图2）。 切换到“命令”标签下，在“类别”下面选中“宏”选项，然后将右边

4、“命令” 区中相应的宏拖到工具栏上。提示在Excel中，可以将“自定义按钮”选项拖到工具栏中合适的位置。 单击“更改所选内容”按钮，在随后弹出的快捷菜单的“命令”后面的方框中输入一个便于理解的名称，同时选中菜单中的“总是只用文字”选项。提示在Excel中，要增加一步操作：选中拖到工具栏上的“自定义按钮”（此时已改名）,右击鼠标，在随后弹出的快捷菜单中，选“指定宏”选项，打开“指定宏”对话框（类似“宏”对话框），选中相应的宏，按“确定”返回。 关闭“自定义”对话框。以后需要运行该宏时，只要单击刚才建立的按钮就行了。Word 中的宏代码 (2) ：添加作者信息目的我们写好稿件后，通常要将自己的联系

5、信息添加到文档中，运行下面的宏可以将定作者姓名：xxx通讯地址：xxx邮政编码：xxx电子信箱：xxx制好的信息一次性插入到光标处。 宏代码 Sub dzxx() Selection.TypeText Text:= Selection.TypeParagraph Selection.TypeText Text:= Selection.TypeParagraph Selection.TypeText Text:= Selection.TypeParagraph Selection.TypeText Text:= End Sub 说明 宏名“ dzxx ”可以随意修改。字符替换成你所要输入的字符。

6、在实际使用中，请将代码中的“xxX进阶女口果在 “ Sub dzxx() ”下面添 加两行代码：Set myDoc=Documents.Add和 Selection.TypeParagraph，在 “ End Sub” 上面添 加一行代码：Selection.MoveUpUnit:=wdScreen ， Count:=1 ，则运行该宏时，系统将自动新建一空白文档，并将定制好 的信息输入到文档中，输入完成后将光标移动到第一行的行首，等待你输入正文内容。Word 中的宏代码 (5) ：在页脚中添加文档名称和保存路径 目的在页脚中添加文档名称和保存路径，方便查找。宏代码Sub bclj()Activ

7、eWindow.ActivePane.View.SeekView=wdSeekCurrentPageFooterSelection.ParagraphFormat.Alignment = wdAlignParagraph RightSelection.Fields.Add Range： =Selection.Range ， Type:=wdFieldEmpty ， Text ： =FILENAME p ， PreserveFormatt ing:=TrueActiveWindow.ActivePane.View.SeekView = wdSeekMain DocumentEnd Sub进阶如果

8、将第二行代码最后的Footer ”换成Header”，则运行该宏后，文档名称和保 存路径将添加到“页眉”中；如果将第三行代码最后的“Right ”换成，“Center ”或“Left ”,则运行该宏后，相应的内容会“居中”或“左对齐”排列。Word 中的宏代码 (7) ：快速打印指定页面目的在用Word打印文件时，第一页通常是套打到事先印好的文件头上，由于各种文件头 的规格不一致，这就需要多次打印第 1 页，然后进行调试。其实可以让下面的宏帮你打 印指定的页。宏代码Sub dypage1()ActivePrinter = Epson Stylus 800 ESC/P 2Application.

9、PrintOutRange:=wdPrintRangeOfPages, Pages:=1End Sub说明 代码中“ Epson Stylus 800 ESC/P 2”是电脑中安装的打印机名称，朋友们 应该根据自己的打印机型号进行调整。 如果将代码中的数值“1”替换成其他数值， 即可打印其他指定的页面； 如果为空，则打印所有的页(当然，打印所有页就不需要这个宏了A_A)。Word 中的宏代码 (8) ：快速设置文档密码目的目前不少单位还是多人共用一台电脑，为了保密起见，常常要为Word文档加密。由于 Word 的加密功能通常只对当前文档有效，为了提高效率，笔者设计了一个宏，可以快 速给文档设置

10、密码。宏代码Sub mima()With ActiveDocument.Password = 123.WritePassword = 456End WithEnd Sub说明 代码中第三行和第四行开头均有一个英文状态下的句号“.”，不要遗漏。 代码第三行设置的是打开权限密码，第四行设置的是修改权限密码。 如果把宏名修改为“ AutoNew”，那么以后通过执行“文件t新建”命令(或者直接点击常用工具栏上的“新建”按钮 )建立的新文档，都会被自动加密。 把宏名修改为 “Autolose ”，则以后关闭文档时 (即使已经对文档执行了保存操作 )， 系统都会弹出一个“是否保存对 XXX.doc 的更改

11、”提示框，如果选择“是 (Y) ”，则对该 文档加密，如果选择“否 (N) ”，则不对该文档加密。Word 中的宏代码 (9) ：快速扩大屏幕区域目的应用Word的“全屏显示”功能时，虽然可以扩大屏幕区域，但是菜单栏也消失了， 很不方便。运行下面的宏，可以帮你既实现全屏显示，又保留菜单栏。宏代码Sub qcpm()Application.DisplayScrollBars = FalseApplication.DisplayStatusBar = False CommandBars(Standard).Visible =False CommandBars(Formatting).Visible

12、 = False CommandBars(Drawing).Visible = False End Sub 说明 自上而下，各条代码依次对应“滚动条”、“状态栏”、“常用工具栏”、“格式工具栏”和“绘图工具栏” 。 将代码中的“ False ”全部替换成“ True” ，再运行该宏，即可恢复关闭的项目。 Word 中的宏代码 (10) ：快速设置字符格式目的笔者在单位用 Word 编辑一份内部刊物，多份稿件保存在一个 Word 文档中，要想把 每个稿件的标题都设置为“黑体、二号字、居中排列”格式，经常要重复操作N 次，于是笔者想到了宏。宏代码Sub bt()Selection.Font.Nam

13、e = 黑体 Selection.Font.Size = 22Selection.ParagraphFormat.Alignment = wdAlignParagraphCenterEnd Sub说明 代码中的字体名称 (黑体)和字号(22) ，可以根据实际需要设置。 如果把第四行代码最后的“Center”替换成“ Right ”，则格式变为右对齐；替换成“Left ”，或者直接删除第四行代码，则格式变为左对齐。 应用时只须选中要设置格式的文字，单击“工具t宏t宏”，按“运行”按钮即可。Word 中的宏代码 (12) ：统计指定字符出现次数目的 在Word文档中快速统计出某个指定字符出现的次数

14、。宏代码Sub tjText()tjzf = InputBox( 请输入要统计的字符串： , 字符统计 )With ActiveDocument.Content.FindDo While .Execute(FindText:=tjzf) = Truezifu = zifu + 1LoopEnd WithMsgBox( 字符“ + tjzf + ” + 在本文中共出现了 + Str(zifu) + 次 ),0, 字符统计结果 End Sub说明宏代码中“ tjzf ”和“ zifu ”变量，可以修改为其他字符。该宏运行时，会弹出一个对话框，要求输入统计的字符；按下“确定”按钮后， 会弹出统计结果

15、消息框。Word 中的宏代码 (14) ：插入 30 天后的日期目的要求：单位图书室用Word制作了一个借书登记表，规定借出图书在30天之内必须归还，每次在“到期日”栏下面的单元格中输入到期日时，都要计算半天，既麻烦， 又不准确，用下面的宏吧。宏代码Sub afterdate()newdate = Format(Date + 30,YYYY 年 MM月 DD日”)Selection.InsertAfter newdateEnd Sub说明：代码中“ newdate”变量，你可以修改为其他字符；代码中的“ YYYY年MM 月DD日”字母，不需要考虑大小写问题。将光标定在相应的位置(包括表格中的单

16、元格)，运行该宏即可将 30天后的日期插入到光标处。系统日期要调整准确。Word 中的宏代码 (17) ：打印历史自动记录 目的要求：笔者使用的电脑为多人共用，近来发现打印机被人随意使用，主要是在Word中打印文档，为了监督打印机的使用情况，我编写了一个 Word宏，只要有人打印文档，宏就被激活，将所打印文档的保存路径、文件名及打印时间记录下来，并可随时查 看记录。宏代码：Sub FilePrint()Dialogs(wdDialogFilePrint).ShowDName = ActiveDocume nt.Path + + ActiveDocume nt.NameIf ActiveDocu

17、ment.Path = Then DName = 未保存文档 Tim = Str(Date) + 日 + Str(Time)Open d: langzi.dat For Append As #1Print #1, 于 + Time+ 打印 + DNameClose #1End SubSub FilePrintDefault()ActiveDocument.PrintOutEnd Sub说明： 此后，只要有人使用“文件”菜单中的“打印”命令( 对应于第一个宏 )，或者工具栏上的“打印”按钮 ( 对应于第二个宏 ) ，所打印文档的路径、文件名、打印时间， 就会被记载到 D:langzi.dat 文

18、件中。用记事本打开这个记录文件，打印历史都详细记 录在里面。Word 中的宏代码 (18) ：自动展开“打开”对话框目的要求：启动 Word,通常通过执行“文件打开”命令，或者单击常用工具栏上的 “打开”按钮，展开“打开”对话框，然后打开相应的文档进行编辑。我们也可以通过 制作一个自动宏,让 Word 启动后直接展开“打开”对话框。宏代码：Sub Autoexec()Dialogs(wdDialogFileOpen).ShowEnd Sub说明：此处宏名称“ Autoexec ”表示 Word启动时自动运行的宏，不能修改为其他 字符。代码“ wdDialogFileOpen ”表示“打开”对话

19、框。“打印”对话框的代码是wdDialogFilePrint ；“新建”对话框的代码是 wdDialogFileNew 。Word中的宏代码(19)嵌入WM播放器目的要求：如果我们在编辑 Word文档的过程中想放松一下，比如打开 Windows MediaPlayer(以下简称WMF播放器播放自己喜爱的音乐？但是专门去打开WMP程序是不是很麻烦，其实在 Word中可以用“ Shell ”语句来方便地调用播放器的应用程序。宏代码： Sub WMP9 ()Shell “X:Program FilesWindows Media Playerwmplayer.exe”End Sub说明：1.X:Program FilesWindows Media Playerwmplayer.exe”为 WMP播放器的路径及程序名。2.可以创建菜单命令按钮。打开“工具t自定义t命令”，在“类别”列表框中选择“宏” ,在右边的“命令”列表框中找到一个名为“ Normal.NewMacros.WMP 播放器”的宏命令,用鼠标把它拖放到菜单栏中或快捷工具栏中。右击该菜单命令按钮, 在“命名”文本框中将“ Normal.NewMac