共用方式為

Word) (Selection.PreviousRevision 方法

  • 發行項

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

語法

expression。 PreviousRevision( _Wrap_ )

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

參數

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

傳回值

Revision

範例

這則範例會選取使用中文件第一個區段中的最後一個追蹤修訂，並顯示變更的日期和時間。

Selection.EndOf Unit:=wdStory, Extend:=wdMove 
Set myRev = Selection.PreviousRevision 
If Not (myRev Is Nothing) Then MsgBox myRev.Date

如果變更類型是刪除或插入文字，這則範例就會拒絕找到的上一個追蹤修訂。 如果追蹤修訂是樣式變更，就會接受變更。

Set myRev = Selection.PreviousRevision(Wrap:=True) 
If Not (myRev Is Nothing) Then 
 Select Case myRev.Type 
 Case wdRevisionDelete 
 myRev.Reject 
 Case wdRevisionInsert 
 myRev.Reject 
 Case wdRevisionStyle 
 myRev.Accept 
 End Select 
End If

另請參閱

Selection 物件

支援和意見反應

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