Sub InfoOfComment()  
Dim oDoc As Document 
Dim msg As String, ret As Integer 
Set oDoc = ActiveDocument
Dim strComment As Comment
For Each strComment In oDoc.Comments
  With strComment
    msg = "Aktueller Kommentar: [" & .Initial & .Index & "]" _
      & vbCrLf & "Von:" & vbTab & .Author _
      & vbCrLf & "Text:" & vbTab & .Range.Text _
      & vbCrLf & "Kapitel:" & vbTab & fkt_GetCommentHeading(strComment) _
      & vbCrLf & "Seite:" & vbTab & .Scope.Information(wdActiveEndPageNumber) 
    ret = MsgBox(msg & vbCrLf & vbCrLf & "Nächster Kommentar?", vbInformation + vbYesNo, "Kommentar-Infos") 
    If ret = vbNo Then Exit For 
  End With 
Next 
End Sub 

Function fkt_GetCommentHeading(ByRef myCom As Comment) As String  
Dim mysty As Style
Dim rng As Range 
Dim strHeading As String 
With myCom
  .Scope.Select
  Set rng = .Range.Parent.Bookmarks("\HeadingLevel").Range
  strHeading = Left(rng.Paragraphs(1).Range.Text, Len(rng.Paragraphs(1).Range.Text) - 1) 
  If rng.Paragraphs(1).Range.ListFormat.ListType = wdListNoNumbering Then 
    fkt_GetCommentHeading = strHeading & " (Ebene " & _
      rng.Paragraphs(1).OutlineLevel & ")"
  Else 
    fkt_GetCommentHeading = rng.ListFormat.ListString & " " & strHeading & " (Ebene " & _
      rng.Paragraphs(1).OutlineLevel & ")"
  End If 
End With 
End Function