Revision.Accept 方法 (Word)

接受指定的追蹤修訂、移除修訂標記，然後將變更併入文件。

語法

expression. Accept

需要 expression。 代表 'Revision' 物件的變數。

範例

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

Set revNext = Selection.NextRevision(Wrap:=True) 
 
If Not (revNext Is Nothing) Then 
 If revNext.Type = wdRevisionInsert Then revNext.Accept 
End If

這則範例會接受選取項目中的所有追蹤修訂。

Dim revLoop As Revision 
Dim rngSelection As Range 
 
Set rngSelection = Selection.Range 
For Each revLoop In rngSelection.Revisions 
 revLoop.Accept 
Next revLoop

另請參閱

Revision 物件

支援和意見反應

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