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

相关推荐
bing_15812 小时前
Word 中为什么我的图片一拖就乱跑,怎么精确定位?
word
有什么东东12 小时前
取消office word中的段落箭头标记
word
CodeCraft Studio4 天前
文档处理控件Aspose.Words教程:从 C# 中的 Word 文档中提取页面
c#·word·aspose·aspose.word·word页面提取
索西引擎4 天前
Word 文字编辑状态下按回车换行后是非正文格式
word·办公
bu_shuo4 天前
Word中的批注显示与修订显示
word·批注·修订
流形填表5 天前
AI 助力:如何批量提取 Word 表格字段并导出至 Excel
开发语言·人工智能·word·excel·办公自动化
R-sz6 天前
导出word并且插入图片
开发语言·c#·word
wáng bēn6 天前
【java17】使用 Word 模板导出带替换符、动态表格和二维码的文档
java·word·itextpdf
小杨爱学习zb6 天前
如何将公式图片转换为公式格式到wps/word里面
word
干净的坏蛋6 天前
Microsoft Word 中 .doc 和 .docx 的区别
microsoft·word