求个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
。
收起