在同一个文件夹内的多个word文件,怎么全部批量接受所有修订(含页眉页 ...

发布网友发布时间：2022-04-23 04:07

共1个回答

热心网友时间：2022-07-01 05:12

摘要打开word，点击审阅，打开审阅后，点击接受。选择接受所有修订即可。如果不想接受所有修订，点击ctrl+c返回未修订文件中。点击接受旁边的“x”的倒三角图标，选择拒绝所有修订即可。咨询记录 · 回答于2021-08-29在同一个文件夹内的多个word文件，怎么全部批量接受所有修订（含页眉页脚）如题打开word，点击审阅，打开审阅后，点击接受。选择接受所有修订即可。如果不想接受所有修订，点击ctrl+c返回未修订文件中。点击接受旁边的“x”的倒三角图标，选择拒绝所有修订即可。一个文件夹内有一百个word文件都修订过，现在要快速批量把这一百个word全部接受所有修订不要人工一个个word打开，接受所有修订，你说的那些基础的我早知道了那这个需要添加宏代码了Sub acceptrevisions() '此代码功能为列出指定文件夹中所有选取的WORD文件全路径名 Dim myDialog As FileDialog, oDoc As Document, oSec As Section Dim oFile As Variant, myRange As Range On Error Resume Next '定义一个文件夹选取对话框 Set myDialog = Application.FileDialog(msoFileDialogFilePicker) With myDialog .Filters.Clear '清除所有文件筛选器中的项目 .Filters.Add "所有 WORD 文件", "*.doc", 1 '增加筛选器的项目为所有WORD文件 .AllowMultiSelect = True '允许多项选择 If .Show = -1 Then '确定 For Each oFile In .SelectedItems '在所有选取项目中循环 Set oDoc = Word.Documents.Open(FileName:=oFile, Visible:=False) For Each oSec In oDoc.Sections '文档的节中循环 Set myRange = oSec.Range myRange.Revisions.AcceptAll '接受所选范围内的所有修订标记 Next oDoc.Close True Next End If End WithEnd Sub把上面的代码Alt+F8写到宏里面，然后运行这个宏。这个页眉和页脚没法取消修订你网上找到的吧，我早试过了不是找的，这个论坛发的一个代码，目前最高就知道修改到这里。没有人做你说的那个脚本就差页眉页脚了，你再想想办法就能搞定了在修改前，先确定多个word文档文件要被修改的内容如小小要修改的内容是多个word文档中的“西平县”，3双击“word文档批量处理大师”4点击“选择目录”5在弹出的窗口中选择点击要批量修改的多个word文档文件所在的文件夹，然后点击“确定”按钮6此时，系统会自动添加该文件中的所有文档文件点击“保存列表”在弹出窗口输入框随便输入一个名字，然后点击“保存”按钮在word文档批量处理选项中点击选择“1、内容批量替换”在右边弹出'批量替换文档内容'框体中，在”把文字：“标签下输入要被修改的内容，如“西平县”，在“替换为：”标签下输入要改成的内容，如“我在这”。然后点击“添加为待处理任务”按钮如果，要被批量修改的内容还有其他的，则先点击“添加到列表”按钮，然后再在”把文字：“标签下输入下一个要被修改的内容，如“啊”，在“替换为：”标签下输入下一个要改成的内容，如“哈“，然后点击“添加到列表”按钮。如此反复把所有要修改的文档内容全部添加到列表后再点击“添加为待处理任务”按钮在弹出窗口点击”确定“按钮在弹出窗口点击”是“按钮在弹出窗口点击”确定“按钮系统处理完后，会显示“任务完成！”打开文件查看结果多个word文档文件全部批量完成你试一下这个不行，公司电脑不能装其他软件，现在只差把宏代码设置一下，怎么把页眉页脚修订一起接受就可以了稍等下我去论坛里请教一下你好，可以了。这个是最全的。可以批量修改文档包括页眉页脚不能复制，这里把原文给你【VBA实现批量修改Word文档的页脚内容】https://mbd.baidu.com/ma/s/ELnPLdQP