求个WORD批量处理宏要求：将一
这个其实非常简单，编几行代码便可瞬间完成，根本不用一个文件一个文件地来，全部批量自动化操作并保存关闭。
以Word2003为例。Word2007类似。
首先你可以用Word打开所有的DOC文档，然后菜单“工具---宏”，输入宏名：全部文档小五号，在“宏的位置”选择“Norma
t（共用模板），再点“创建”，把以下代码复制粘贴到里面就可以了。
不论你是打开20还是50个文档，可以说是瞬间完成。
本方法是通过一个循环遍历所有打开的文档进行操作。
将变量doc定义为一个文档类型document，而Documents代表所有打开的文档，然后通过For Each循环遍历所有打开的文档，全选每一...全部
这个其实非常简单，编几行代码便可瞬间完成，根本不用一个文件一个文件地来，全部批量自动化操作并保存关闭。
以Word2003为例。Word2007类似。
首先你可以用Word打开所有的DOC文档，然后菜单“工具---宏”，输入宏名：全部文档小五号，在“宏的位置”选择“Norma
t（共用模板），再点“创建”，把以下代码复制粘贴到里面就可以了。
不论你是打开20还是50个文档，可以说是瞬间完成。
本方法是通过一个循环遍历所有打开的文档进行操作。
将变量doc定义为一个文档类型document，而Documents代表所有打开的文档，然后通过For Each循环遍历所有打开的文档，全选每一个文档并将字体设为9号字（即小五号）。
为了以后方便使用，你可以选择菜单“工具---自定义”，点“命令”选项卡，在左边的“类别”中找到“宏”，将右边的这个宏命令拖放到工具栏，以后点一下工具栏这个按钮就可以了，还可以点击这个窗口下边的“键盘”按钮，找的方法同上，给这个宏命令设定一个快捷方式。
以后想用时绝对超级方便快捷。
是否保存或既保存并关闭由你自己决定（修改代码即可），如果某个文档是新建的文档且从未保存过文件名，则弹出“另存为”对话框，如果全部是打开的文档，则自动保存并全部关闭。
Sub 全部文档小五号()
On Error Resume Next
Dim doc As Document
For Each doc In Documents
With doc
。
Activate
。Application。Selection。WholeStory '全选
。Application。Selection。Font。
Size = 9 '字体大小设为9号（即小五号）
。Save '保存文档
。Close '关闭文档
End With
Next doc
End Sub
。
收起
