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 \

Documents.Open FileName:=\ReadOnly:= _

False, AddToRecentFiles:=False, PasswordDocument:=\_

\_

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 \ Dim name As String name = \

Do While Dir$(\

Documents.Open FileName:=\ReadOnly:= _

False, AddToRecentFiles:=False, PasswordDocument:=\_

\_

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 = \ Loop End Sub

全部代码改造完毕，关闭“Microsoft Visual Basic”窗口，回到Word窗口。 三、具体执行过程 1、 启动WORD

2、 在空白WORD文档中输入要设置的页眉内容。 3、 选择菜单“工具/宏/宏”

4、 在出现的“宏”窗口左部选中Macro15，单击右边的按钮“运行” 5、 当提示是否要保存文档时，选择“是“。

6、 开始执行操作，执行完后，可打开文件检查是否执行了正确的操作。 四、总结

以上所述的是WORD中宏命令应用的一个实例，在本例中所添加的页眉内容可由用户来决定，添加文件个数也是任意的，所创建的宏操作具有了一定的灵活性。 通过以上实例，我们可总结出使用宏命令的关键在于，首先根据某个任务录制初始的宏，然后再对初始的宏代码进行改造，运用VBA编程来实现特殊的要求。 本文只是例举了一个运用WORD中宏命令的实例，运用同样的方法还可创建很多运用宏的实例，以提高我们的工作效率。