打开时跟踪更改通知(Microsoft Word)
Robin正在寻找一种在文档打开时通知用户有关文档中是否存在任何跟踪更改的方法。这不是Word的标准功能,但是可以使用AutoOpen宏轻松地添加它。如果希望宏仅指示是否启用了“跟踪更改”,则可以使用以下命令:
Sub AutoOpen() If ActiveDocument.TrackRevisions = True Then MsgBox "Track Changes is On." End If End Sub
请注意,该宏不会让您知道文档中是否确实有任何更改,因此在关闭“跟踪更改”但仍然存在来自上一个编辑会话的未解决更改的情况下,它无济于事。在这种情况下,您需要稍微扩展宏。
Sub AutoOpen() On Error Resume Next If ActiveDocument.TrackRevisions = True Then MsgBox "Track Changes is On" With ActiveWindow.View .ShowRevisionsAndComments = True .RevisionsView = wdRevisionsViewFinal End With Exit Sub End If If ActiveDocument.Revisions.Count > 0 Then MsgBox "Document contains revisions" With ActiveWindow.View .ShowRevisionsAndComments = True .RevisionsView = wdRevisionsViewFinal End With Exit Sub End If End Sub
此版本的宏会检查两个条件:如果“跟踪更改”处于打开状态,则显示一个消息框;如果文档中存在任何更改,则显示一个消息框。在这两种情况下,宏还可以更改文档的视图,从而使更改在屏幕上可见。
注意:
如果您想知道如何使用此页面(或_WordTips_网站上的任何其他页面)中描述的宏,我准备了一个包含有用信息的特殊页面。
_WordTips_是您进行经济有效的Microsoft Word培训的来源。
(Microsoft Word是世界上最流行的文字处理软件。)本技巧(10971)适用于Microsoft Word 2007、2010、2013、2016、2019和Office 365中的Word。 Word的旧菜单界面在这里: