百科知识

电脑/网络

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

2009-11-12 16:41:14墨***
要求： 将一个文件夹里的所有WORD文件（当然这个文件夹里的所有文件都是WORD格式的，没有其他格式的）依次打开，全选，字号设为小五，保存退出即可． 这个问题我问过一次,但答案不是很完美.下面是链接地址 全选，字号设为小五，保存退出 这几步达到目标了,完全自动化,但当我手工打开全部文挡(40多个)的时候,会很慢, 我想能不能整个过程全用宏来解决,让宏先打开一个文件,全选,字号设为小五,保存退出,然后接着打开下一个文件.依此类推.直到40多个文件全部完成.宏结束. 如果在EXCEL里面是可以做到的,不知道在WORD里面可以吗. 还是求WORD批量处理宏要求：将一个文件夹里的所有WORD文件（当然这个文件夹里的所有文件都是WORD格式的，没有其他格式的）依次打开，全选，字号设为小五，保存?

最佳回答

  • 我觉得这个可能很难。 如果我们让宏打开一个一个的文件执行设置字号操作，其实还是要让Word打开这些文件，速度还是很慢。 如果我们了解Word文档的内部结构，或许可以完全通过代码在后台实现，无须使用Word将它们一个个打开。我不是太懂编程，不知有人懂吗？ 或许我可以推荐你使用OfficeTab这款让Word、Excel、PowerPoint支持标签的插件（下载地址： 安装OfficeTab后，进入有多个DOC文档的文件夹，全选所有文件，按下回车键，Word就会打开所有文件并在同一个窗口中显示多个标签，执行宏代码，这样或许感觉舒服点。 不过我试了下打开40个DOC文件，确实有些慢，然后直接点Word右上角的关闭按钮，可能太多了，好像Word死掉了，后来终止进程才解决。可能与系统配置不太好有关。呵呵！
    2009-11-13 00:03:12
  •   请采纳我的答案。
    下面的代码好快哟！！！不给我分，太可惜了！！！ Sub 批量设置小5号字体() '此代码为指定文件夹中所有选取的WORD文件的进行格式设置 Dim MyDialog As FileDialog, vrtSelectedItem As Variant, Doc As Document ' On Error Resume Next '忽略错误 '定义一个文件夹选取对话框 Set MyDialog = Application。
      FileDialog(msoFileDialogFilePicker) With MyDialog 。Title = "请选择要处理的文档（可多选）" 。Filters。Clear '清除所有文件筛选器中的项目 。
      Filters。Add "所有 WORD 文件", "*。doc", 1 '增加筛选器的项目为所有WORD文件 。AllowMultiSelect = True '允许多项选择 If 。Show = -1 Then '确定 Application。
      ScreenUpdating = False For Each vrtSelectedItem In 。SelectedItems '在所有选取项目中循环 Set Doc = Documents。
      Open(FileName:=vrtSelectedItem, Visible:=False) With Doc With 。Content With 。
      Font ' 。NameFarEast = "宋体" '中文字体，已禁用 ' 。NameAscii = "Times New Roman" '英文字体，已禁用 。
      Size = 9 End With End With 。Close True End With Next Application。
      ScreenUpdating = True End If End With MsgBox "批量设置完毕!", vbInformation End Sub 。
    2009-11-24 22:12:49
    • 很赞哦！ (215)

    相关文章