I don't understand what you want to do.
Sub test() If ActiveDocument.Revisions.Count + ActiveDocument.Comments.Count > 0 Then On Error Resume Next WordBasic.NextChangeOrComment If Err.Number <> 0 Then Err.Clear Exit Sub End If MsgBox Selection.Text End If End Sub