怎样一次性接受整篇WORD文档的修订格式？
发布网友
发布时间：2022-04-22 08:21
共1个回答
热心网友
时间：2022-06-18 13:00
摘要打开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
