Word) (Selection.NextRevision 方法

找出並傳回下一個追蹤的修訂成為 Revision 物件。

語法

expression。 NextRevision( _Wrap_ )

需要 expression。 代表 Selection 物件的變數。

參數

名稱	必要/選用	資料類型	描述
Wrap	選用	Variant	則為 true 時繼續搜尋文件的開頭修訂達到文件的結尾。 預設值為 False。

傳回值

Revision

註解

已變更的文字會成為目前的選取範圍。 使用所產生的 Revision 物件的屬性來查看何種類型的變更，使它，等等。 用於接受或拒絕變更的 Revision 物件的方法。

如果找不到追蹤修訂，目前的選取項目會維持不變。

範例

本範例會拒絕使用中文件內找到的第五個段落之後的下一個追蹤的修訂。 如果找不到變更，則 revTemp 變數會設定為 Nothing 。

Dim rngTemp as Range 
Dim revTemp as Revision 
 
If ActiveDocument.Paragraphs.Count >= 5 Then 
 Set rngTemp = ActiveDocument.Paragraphs(5).Range 
 rngTemp.Select 
 Set revTemp = Selection.NextRevision(Wrap:=False) 
 If Not (revTemp Is Nothing) Then revTemp.Reject 
End If

如果變更類型為插入文字，這則範例就會接受下一個找到的追蹤修訂。

Dim revTemp as Revision 
 
Set revTemp = Selection.NextRevision(Wrap:=True) 
If Not (revTemp Is Nothing) Then 
 If revTemp.Type = wdRevisionInsert Then revTemp.Accept 
End If

這則範例會在目前的選取項目後面尋找文件作者所做的下一個修訂。

Dim revTemp as Revision 
Dim strAuthor as String 
 
strAuthor = ActiveDocument.BuiltInDocumentProperties(wdPropertyAuthor) 
 
Do While True 
 Set revTemp = Selection.NextRevision(Wrap:=False) 
 If Not (revTemp Is Nothing) Then 
 If revTemp.Author = strAuthor Then 
 MsgBox Prompt:="Another revision by " & strAuthor & "!" 
 Exit Do 
 End If 
 Else 
 MsgBox Prompt:="No more revisions!" 
 Exit Do 
 End If 
Loop

另請參閱

Selection 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。