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

相关推荐
玩泥巴的2 天前
.NET驾驭Word之力:理解Word对象模型核心 (Application, Document, Range)
word·二次开发·office·com互操作
玩泥巴的3 天前
.NET驾驭Word之力:COM组件二次开发全攻略之连接Word与创建你的第一个自动化文档
word·二次开发·com互操作
辣香牛肉面4 天前
[Windows] 搜索文本2.6.2(从word、wps、excel、pdf和txt文件中查找文本的工具)
word·excel·wps·搜索文本
FlYFlOWERANDLEAF5 天前
DevExpress中Word Processing Document API学习记录
学习·c#·word
AnySpaceOne5 天前
PDF转Word在线转换教程:多种实用方法分享
学习·pdf·word
我命由我123457 天前
Word - Word 的 5 种视图(页面视图、阅读视图、Web 版式视图、大纲视图、草稿视图)
ui·word·excel·photoshop·表格·ps·美工
XYZLHL7 天前
Word怎么设置页码总页数不包含封面和目录页
word
传而习乎7 天前
Word添加图/表题注
word
YAY_tyy7 天前
基于 Vue3 + VueOffice 的多格式文档预览组件实现(支持 PDF/Word/Excel/PPT)
前端·javascript·vue.js·pdf·word·excel