跳到主要内容

如何仅在Word文档中接受格式跟踪更改?

作者:晓阳 最后修改时间:2018-09-19

如果您的Word文档处于曲目更改模式,则应用 接受所有更改 功能,所有曲目更改都会被接受。 但是,有时候,您只想接受格式轨道更改,而不接受插入或删除。 本文将讨论如何在Word文档中解决此任务。

使用VBA代码仅接受Word中的格式化轨道更改

使用显示标记功能仅接受Word中的格式化轨道更改


使用VBA代码仅接受Word中的格式化轨道更改

下面的VBA代码可以帮助您仅在Word文档中接受格式设置更改,请这样做:

1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2。 然后,单击 插页 > 模块,将以下代码复制并粘贴到打开的空白模块中:

VBA代码:仅在Word文档中接受格式跟踪更改

Sub AcceptFormatChanges()
    Dim xRev As Revision
    For Each xRev In ActiveDocument.Revisions
        If Left(xRev.FormatDescription, 10) = "Formatted:" Then
            xRev.Accept
        End If
    Next
End Sub

3。 然后按 F5 键以运行此代码,并且活动的Word文档中仅接受了格式轨道更改。 看截图:

doc接受格式1


使用显示标记功能仅接受Word中的格式化轨道更改

在Word文档中,您还可以应用 显示标记 函数来完成这项工作,请执行以下步骤:

1。 在曲目更改模式文件中,单击 评论 > 显示标记,然后取消选中 评论 插入和删除 选项,然后离开 格式化 选项已选中,请参见屏幕截图:

doc接受格式2

2。 现在,您可以看到格式跟踪的更改,然后继续单击 评论 > 接受 > 接受显示的所有更改 如下图所示:

doc接受格式3

3。 并且所有格式化轨道的更改都已被接受,现在,您需要返回 评论, 插入和删除 通过从中检查选项 显示标记 下拉列表,请参见屏幕截图:

doc接受格式4

4。 现在,您可以看到格式化轨道更改已被接受,其他轨道更改仍保留,请参见屏幕截图:

doc接受格式1

最佳办公生产力工具

Kutools for Word - 通过 Over 提升您的文字体验 100 显着特点!

🤖 Kutools 人工智能助手:用人工智能改变你的写作 - 生成内容  /  重写文本  /  总结文件  /  快速获得答案,全部在Word中

📘 文档掌握: 分页  /  合并文件  /  以各种格式导出选择(PDF/TXT/DOC/HTML...)  /  批量转换为PDF  /  将页面导出为图像  /  一次打印多个文件...

内容编辑: 批量查找和替换 跨多个文件  /  调整所有图片的大小  /  转置表行和列  /  将表格转换为文字...

🧹 轻松清洁: 移开 多余的空间  /  分节符  /  所有标题  /  文本框  /  超链接  / 如需更多拆卸工具,请前往 删除组...

创意插入: 插 千位分隔符  /  复选框  /  单选按钮  /  扫码支付  /  条码  /  对角线表  /  公式标题  /  图片说明  /  表标题  /  多张图片  / 发现更多 插入组...

🔍 精准选择:精确定位 特定页面  /    /  形状  /  标题段落  / 增强导航功能 更多 选择功能...

星级增强: 导航到任何位置  /  自动插入重复文本  /  在文档窗口之间切换  /  11 转换工具...

👉 想要尝试这些功能吗?立即下载 Kutools for Word 并体验不同之处! 🚀
 
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Vous êtes mon héros. En français, le code serait le suivant:

Sub AcceptFormatChanges()
Dim xRev As Revision
For Each xRev In ActiveDocument.Revisions
If Left(xRev.FormatDescription, 12) = "Mis en forme" Then
xRev.Accept
End If
Next
End Sub
This comment was minimized by the moderator on the site
Dans toutes les langues :

Sub AcceptFormatChanges()
Dim xRev As Revision
For Each xRev In ActiveDocument.Revisions
If xRev.FormatDescription <> "" Then
xRev.Accept
End If
Next
End Sub
This comment was minimized by the moderator on the site
Merci, en effet, la dernière méthode fonctionne aussi en néerlandais
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations