次の方法で共有

Selection.PreviousRevision メソッド (Word)

  • [アーティクル]

1 つ前の変更履歴を検索し、Revision オブジェクトとして返します。

構文

式。 PreviousRevision( _Wrap_ )

式 が必要です。 Selection オブジェクトを表す変数を指定します。

パラメーター

名前 必須 / オプション データ型 説明
Wrap 省略可能 バリアント型 True を指定すると、文書の先頭まで変更履歴の検索を行った後で末尾から検索が再開されます。 既定値は False です。

戻り値

Revision

例

次の使用例は、作業中の文書の最初のセクションの最後の変更履歴を選択し、変更履歴の日付と時刻を表示します。

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

次の使用例は、1 つ前の変更履歴が文字列の削除または挿入である場合、変更履歴を元に戻します。 変更履歴がスタイルの変更である場合は、変更履歴を反映します。

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 のサポートおよびフィードバックを参照してください。