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
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。
フィードバック
https://aka.ms/ContentUserFeedback」を参照してください。
以下は間もなく提供いたします。2024 年を通じて、コンテンツのフィードバック メカニズムとして GitHub の issue を段階的に廃止し、新しいフィードバック システムに置き換えます。 詳細については、「フィードバックの送信と表示