通过

Revision.Reject 方法 (Word)

  • 项目

拒绝接受指定的修订。 将删除修订标记，不改变原文。

语法

expression. Reject

表达式是必需的。 一个代表“Revision”对象的变量。

备注

不能拒绝格式更改。

示例

本示例将拒绝在活动文档中找到的下一处修订。

Dim revNext As Revision 
 
If ActiveDocument.Revisions.Count >= 1 Then 
 Set revNext = Selection.NextRevision 
 If Not (revNext Is Nothing) Then revNext.Reject 
End If

本示例拒绝第一段中的所有修订。

Dim rngTemp As Range 
Dim revLoop As Revision 
 
Set rngTemp = ActiveDocument.Paragraphs(1).Range 
For Each revLoop In rngTemp.Revisions 
 revLoop.Reject 
Next revLoop

本示例拒绝选定内容中的第一处修订。

Dim rngTemp As Range 
 
Set rngTemp = Selection.Range 
If rngTemp.Revisions.Count >= 1 Then _ 
 rngTemp.Revisions(1).Reject

另请参阅

修订对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。