摘要：求个WORD批量处理宏要求：将一个文件夹里的所有WORD文件（当 这个其实非常简单，编几行代码便可瞬间完成，根本不用一个文件一个文件地来，全部批量自动化操作并保存关闭。 以Wod2003为例。Wod2...

求个WORD批量处理宏要求：将一个文件夹里的所有WORD文件（当

这个其实非常简单，编几行代码便可瞬间完成，根本不用一个文件一个文件地来，全部批量自动化操作并保存关闭。

以Wod2003为例。

Wod2007类似。

首先你可以用Wod打开所有的DOC文档，然后菜单“工具---宏”，输入宏名：全部文档小五号，在“宏的位置”选择“Noma t（共用模板），再点“创建”，把以下代码复制粘贴到里面就可以了。

不论你是打开20还是50个文档，可以说是瞬间完成。

本方法是通过一个循环遍历所有打开的文档进行操作。

将变量doc定义为一个文档类型document，而Documents代表所有打开的文档，然后通过Fo Each循环遍历所有打开的文档，全选每一个文档并将字体设为9号字（即小五号）。

为了以后方便使用，你可以选择菜单“工具---自定义”，点“命令”选项卡，在左边的“类别”中找到“宏”，将右边的这个宏命令拖放到工具栏，以后点一下工具栏这个按钮就可以了，还可以点击这个窗口下边的“键盘”按钮，找的方法同上，给这个宏命令设定一个快捷方式。

以后想用时绝对超级方便快捷。

是否保存或既保存并关闭由你自己决定（修改代码即可），如果某个文档是新建的文档且从未保存过文件名，则弹出“另存为”对话框，如果全部是打开的文档，则自动保存并全部关闭。

Su 全部文档小五号（） On Eo Resume Next Dim doc As Document Fo Each doc In Documents With doc .Activate .Application.Selection.WholeStoy "全选 .Application.Selection.Font.Size = 9 "字体大小设为9号（即小五号） .Save "保存文档 .Close "关闭文档 End With Next doc End Su

还是求WORD批量处理宏要求：将一个文件夹里的所有WORD文件（

我觉得这个可能很难。

如果我们让宏打开一个一个的文件执行设置字号操作，其实还是要让Wod打开这些文件，速度还是很慢。

如果我们了解Wod文档的内部结构，或许可以完全通过代码在后台实现，无须使用Wod将它们一个个打开。

我不是太懂编程，不知有人懂吗？ 或许我可以推荐你使用OfficeTa这款让Wod、Excel、PowePoint支持标签的插件（下载地址： 安装OfficeTa后，进入有多个DOC文档的文件夹，全选所有文件，按下回车键，Wod就会打开所有文件并在同一个窗口中显示多个标签，执行宏代码，这样或许感觉舒服点。

不过我试了下打开40个DOC文件，确实有些慢，然后直接点Wod右上角的关闭按钮，可能太多了，好像Wod死掉了，后来终止进程才解决。

可能与系统配置不太好有关。

呵呵！

...受信任位置——添加新位置,把你保存含有宏文件的文件夹添加进去...

如果在 Microsoft Word 中反复执行某项任务，可以使用宏自动执行该任务。

宏是一系列 Word 命令和指令，这些命令和指令组合在一起，形成了一个单独的命令，以实现任务执行的自动化。

以下是宏的一些典型应用： 1.加速日常编辑和格式设置 2.组合多个命令，例如插入具有指定尺寸和边框、指定行数和列数的表格 3.使对话框中的选项更易于访问 4.自动执行一系列复杂的任务 Word 提供两种方法来创建宏：宏录制器和 Visual Basic 编辑器 （Visual Basic 编辑器：一种环境，用于编写新的 Visual Basic for Applications 代码和过程，并编辑已有的代码和过程。

Visual Basic 编辑器包括完整的调试工具集，用于查找代码中的语法、运行时和逻辑问题。

）。

Word文档 每次打开都有宏 错误的警告 如下图

1、让复杂的工作简单化 2、让重复的工作自动化 3、扩充Excel自带的功能（我认为它是可以无限扩充的，只有你想不到的，没有它做不到的，夸张了一点！） 事件、对象、语句、函数、方法、属性，把这些东西有机组合在一起，就能解决你的问题。

以下内容仅供参考~~~~~~~ 打开Excel中的VB编辑器，左边双击ThisWorkbook，在右边空白处粘贴以下代码： Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) "捕获单元格被修改事件 "if ... then ... 判断语句 IsNumeric（)判断是否是数值的函数 "Target.Value Target为对象，指当前被改变的单元格，value是该对象的属性，表示该单元格的值 "=，等于号是赋值或比较符号，IsNumeric(Target.Value) = False，这里的=号是作比较，Target.Value = ＂＂，这里的=号是赋予该单元格新的值. If IsNumeric(Target.Value) = False Then Target.Value = ＂＂ End Sub "结束语句

我打开word2003有关于宏的提示！怎么解决？

方法1：？ 从？Startup？文件夹中删除模板：？ 1.？退出？Word?2003。

? 2.？单击“开始”，指向“程序”，指向“附件”，然后单击“Windows？资源管理器”。

？ 3.？找出下列二个文件夹之一：？ ？Documents?and?Settings[系统登陆名]Application?DataMicrosoftWordStartup ？ 或Program?FilesMicrosoft?OfficeOffice11Startup? 4.？打开“Startup”文件夹，单击以选择要删除的模板。

？ 方法2:? 1.？点击“开始”—“运行”？ 2.输入“winword?/a”? 3.启动WORD? 4.依次点击“工具”—“宏”—“安全性”？ 5.在“安全性”中，选择“低”？ 6.确定退出