word中宏命令的使用

Word中宏命令的运用 Word中宏命令的运用 在OFFICE2000的所有软件中都含有宏命令的功能，宏是由一系列操作组成的命令集合。在日常的工作中经常会遇到一些重复性的操作，为了提高工作效率，可以通过创建宏来执行重复或复杂有任务。特别是还可以通过VBA编程，使宏命令的功能得到进一步的加强。下面就给大家介绍如何在WORD中使用宏为大批量的WORD文档添加任意页眉的方法。 一、问题的提出 在日常工作中，经常会创建很多WORD文档，如果想把这些WORD文档进行分类标识处理，并且为不同类别的WORD文档添加不同的页眉进行标识。这时我们就可以利用WORD中的宏，并结合VBA编程，可实现快速地把大量的不同类别的WORD文档，通过添加不同的页眉来进行分类识别。 二、实现方法 假设现有一批WORD文件存放在D:\word文件夹下，文件名分别为A01.doc、A02.doc….A10.doc….. 。     1、启动word       2、选择菜单“工具/宏/录制新宏”，输入宏名称“Macro15”，按“确定”，进入了宏录制过程。    3、在空白WORD文档中输入要设置的页眉内容，如输入“计算机基础”。    4、选择菜单“编辑/全选”，再选择菜单“编辑/剪切”    5、选择“文件/关闭”，关闭此默认的WORD文档    6、选择菜单“文件/打开”，选择目录D:\ word ，选择文件A01.doc，按“确定”。    7、选择菜单“视图/页眉和页脚“    8、选择菜单“编辑/粘贴“    9、关闭页眉和页脚的工具栏    10、单击工具栏上保存按钮    11、选择菜单“文件/关闭”    12、选择菜单“工具/宏/停止录制”   13、选择菜单“工具/宏/宏”    14、在出现的“宏”窗口左部选中Macro15，单击右边的按钮“编辑”    15、修改宏代码：     在出现的“Microsoft Visual Basic”窗口中，可以看到如下的宏代码：  Sub Macro15() ' Macro15 Macro ' 宏在 2005-11-22 由 Micro 录制     Selection.TypeText Text:="计算机基础"     Selection.WholeStory     Selection.Cut     ActiveDocument.Close     ChangeFileOpenDirectory "D:\word\"     Documents.Open FileName:="A01.doc", ConfirmConversions:=False, ReadOnly:= _         False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _         "", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _         Format:=wdOpenFormatAuto     If ActiveWindow.View.SplitSpecial <> wdPaneNone Then         ActiveWindow.Panes(2).Close     End If     If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _         ActivePane.View.Type = wdOutlineView Then         ActiveWindow.ActivePane.View.Type = wdPrintView     End If     ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader     ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument     ActiveDocument.Save     ActiveDocument.Close End Sub    对上面的代码进行修改，如下：   Sub Macro15() ' Macro15 Macro ' 宏在 2005-11-22 由 Micro 录制     Selection.WholeStory     Selection.Cut     ActiveDocument.Close     ChangeFileOpenDirectory "D:\word\"     Dim name As String     name = "01"     Do While Dir$("A" + name + ".doc") <> ""     Documents.Open FileName:="A" + name + ".doc", ConfirmConversions:=False, ReadOnly:= _         False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _         "", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _         Format:=wdOpenFormatAuto     If ActiveWindow.View.SplitSpecial <> wdPaneNone Then         ActiveWindow.Panes(2).Close     End If     If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _         ActivePane.View.Type = wdOutlineView Then         ActiveWindow.ActivePane.View.Type = wdPrintView     End If     ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader      Selection.PasteAndFormat (wdPasteDefault)     ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument     ActiveDocument.Save     ActiveDocument.Close     name = name + 1     If name < 10 Then name = "0" & name     Loop End Sub        全部代码改造完毕，关闭“Microsoft Visual Basic”窗口，回到Word窗口。 三、具体执行过程 1、  启动WORD 2、  在空白WORD文档中输入要设置的页眉内容。 3、  选择菜单“工具/宏/宏” 4、  在出现的“宏”窗口左部选中Macro15，单击右边的按钮“运行” 5、  当提示是否要保存文档时，选择“是“。 6、  开始执行操作，执行完后，可打开文件检查是否执行了正确的操作。 四、 以上所述的是WORD中宏命令应用的一个实例，在本例中所添加的页眉内容可由用户来决定，添加文件个数也是任意的，所创建的宏操作具有了一定的灵活性。 通过以上实例，我们可总结出使用宏命令的关键在于，首先根据某个任务录制初始的宏，然后再对初始的宏代码进行改造，运用VBA编程来实现特殊的要求。       本文只是例举了一个运用WORD中宏命令的实例，运用同样的方法还可创建很多运用宏的实例，以提高我们的工作效率。