Kommentare eines Word-Dokumentes als Liste erstellen

Mein aktuelles Problem: In einem recht großen Word-Dokument möchte ich alle Kommentarte überarbeiten.
Die aufkommende Fragestellung: Kann ich alle Kommentare eines Word-Dokumentes als Liste erstellen?

Eine kurze suche brachte mich zu http://word.tips.net/Pages/T001046_Printing_Comments.html. Das Ergebnis ist schon ganz brauchbar:

Sub KommentarlisteInNeuemDokument()
'
' KommentarlisteInNeuemDokument Makro
' Erstellt eine Liste aller Kommentare des aktuellen Dokumentes in ein neues Dokument.
'
Dim oThisDoc As Document
Dim oThatDoc As Document
Dim c As Comment
Dim sTemp As String
Dim iPage As Integer
Set oThisDoc = ActiveDocument
Set oThatDoc = Documents.Add
Application.ScreenUpdating = False
For Each c In oThisDoc.Comments
'Find page number of comment
oThisDoc.Select
c.Reference.Select
iPage = Selection.Information(wdActiveEndAdjustedPageNumber)
'Put info in new document
oThatDoc.Select
Selection.EndKey Unit:=wdStory
sTemp = "Seite: " & iPage
Selection.TypeText Text:=sTemp
Selection.TypeParagraph
sTemp = "[" & c.Initial & c.Index & "] " & c.Range
Selection.TypeText Text:=sTemp
Selection.TypeParagraph
Next
Application.ScreenUpdating = True
End Sub
view raw listAllComments.vba hosted with ❤ by GitHub

Vielleicht finde ich demnächst die Zeit das ganze etwas schöner zu gestalten.