word一键接受所有修订并保留修订痕迹

目的:让word修订插入的内容在接受修订后保留痕迹。

文章目录

    • 目的:让word修订插入的内容在接受修订后保留痕迹。
      • [1. 打开批注的word文件](#1. 打开批注的word文件)
      • [2. 同时按住:*Alt+F11*,然后右键:Normal -->插入--> 模块](#2. 同时按住:Alt+F11,然后右键:Normal -->插入--> 模块)
      • [3. 在出现的代码框中插入以下代码(如下图)](#3. 在出现的代码框中插入以下代码(如下图))
      • [4. 鼠标放到代码的任意一行,按:*F5* 运行代码](#4. 鼠标放到代码的任意一行,按:F5 运行代码)
      • [5. 先别关闭这个界面,直接查看word文档里,修订的内容是不是变成蓝色了](#5. 先别关闭这个界面,直接查看word文档里,修订的内容是不是变成蓝色了)
      • [6. 这个时候在word文档里,接受所有修订即可](#6. 这个时候在word文档里,接受所有修订即可)
      • [7. 查看此时的word文档是否符合您的要求](#7. 查看此时的word文档是否符合您的要求)
      • [8. 保存,退出。](#8. 保存,退出。)

1. 打开批注的word文件

2. 同时按住:Alt+F11,然后右键:Normal -->插入--> 模块

3. 在出现的代码框中插入以下代码(如下图)

bash 复制代码
Sub 保留修订痕迹()
'
' 保留修订痕迹 宏
'
'
    Dim rngTemp As Range
    Dim revTemp As Revision
    
    Do While True
        Set revTemp = Selection.NextRevision(Wrap:=False)
        If Not (revTemp Is Nothing) Then
         If revTemp.Type = wdRevisionInsert Then  '如果是新增,则该内容颜色变为蓝色
            revTemp.Range.Font.ColorIndex = wdBlue
            Selection.Font.Underline = wdUnderlineSingle
            revTemp.Accept
         End If
        Else
            MsgBox Prompt:="已无修订"
        Exit Do
        End If
    Loop
    
End Sub

4. 鼠标放到代码的任意一行,按:F5 运行代码

5. 先别关闭这个界面,直接查看word文档里,修订的内容是不是变成蓝色了

如果插入的内容没有全部变蓝,把word文档划到第一页,再次执行步骤4 即可

6. 这个时候在word文档里,接受所有修订即可

7. 查看此时的word文档是否符合您的要求

8. 保存,退出。

相关推荐
揭老师高效办公1 天前
在Word和WPS文字中将手机中间4位替换为星号****
word·wps文字
打码人的日常分享2 天前
运维服务方案,运维巡检方案,运维安全保障方案文件
大数据·运维·安全·word·安全架构
揭老师高效办公2 天前
在Word和WPS文字的表格中快速输入连续的星期、月、日
word·wps
gc_22992 天前
C#测试调用OpenXml操作word文档的基本用法
c#·word·openxml
vfvfb2 天前
word文档结尾批量插入图片 docx批量插入图片 指定几张
word·docx插入图片·word批量插入图片·word文档批量插入图片
老马啸西风3 天前
sensitive-word 敏感词性能提升14倍优化全过程 v0.28.0
安全·开源·nlp·word·敏感词·sensitive-word
象骑士Hack3 天前
Word 常用快捷键大全:提升文档处理效率的必备技巧
word
会飞的小菠菜4 天前
如何根据Excel数据表生成多个合同、工作证、录取通知书等word文件?
word·excel·模板·数据表·生成文件
IT小农工4 天前
Windows 文件资源管理器无法预览文件内容word、ppt、excel、pdf
windows·word·powerpoint
BillKu4 天前
在 Delphi 5 中获取 Word 文档页数的方法
word·delphi