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. 保存,退出。

相关推荐
qq_393828225 小时前
办公文档批量打印器 Word、PPT、Excel、PDF、图片和文本,它都支持批量打印。
windows·word·powerpoint·excel·软件需求
_oP_i10 天前
实现 “WebView2 获取word选中内容
开发语言·c#·word
LENG_Lingliang10 天前
word出现由WPS切换后公式异常无法删除的情况处理
word·wps·mathtype
贤和兄10 天前
使用docx4j 实现word转pdf(linux乱码处理)
linux·pdf·word
开开心心就好11 天前
高效批量转换Word到PDF的方法
javascript·安全·智能手机·pdf·word·objective-c·lisp
response_L11 天前
麒麟v10、uos系统在线批量生成pdf文件
java·pdf·word·pageoffice·在线编辑
清风细雨_林木木12 天前
私有 Word 文件预览转 PDF 实现方案
pdf·word
一只秋田犬12 天前
基于 Apache POI 实现的 Word 操作工具类
word
清风细雨_林木木13 天前
.docx 和 .doc 都是 Word 文档格式的区别
word
r i c k13 天前
邮件合并----批量从excel表中导出数据到word中
word·excel