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中宏命令的实例，运用同样的方法还可创建很多运用宏的实例，以提高我们的工作效率。