Selection.NextRevision メソッド (Word)

  • [アーティクル]

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

構文

式。 NextRevision( _Wrap_ )

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

パラメーター

名前 必須 / オプション データ型 説明
Wrap 省略可能 バリアント型 (Variant) 真 文書の末尾に達すると、ドキュメントの先頭に変更履歴の検索を続行します。 既定値は False です。

戻り値

Revision

注釈

変更されたテキストは、現在の選択範囲になります。 返された Revision オブジェクトのプロパティを使用して、変更を行ったユーザーの種類など。 Revision オブジェクトのメソッドを使用して、変更を承認または拒否します。

変更履歴が見つからなかった場合は、現在の選択範囲は変わりません。

例

この例では、作業中の文書の 5 番目の段落の後に見つかった次の変更履歴を拒否します。 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 のサポートおよびフィードバックを参照してください。