Parent/Child Comment Extract

[amschaefer]

I am trying to extract comments from a Word document into an Excel spreadsheet.



The goal is to extract a parent and child comment and place them in the same record and continue to iterate through the document.

For some reason the coding will populate a Child comment as a new record when only a parent comment should, and I'm looking to have that not happen.

Current code attached.

Any help is much appreciated!

[Guessed]

I'm not seeing a better way to work out the parent/child relationship so I've done this kludgy method. You could adopt the same principle in your code.
If the comment doesn't have an ancestor then it must be a top level comment
Then use the Replies.Count to iterate through the replies

Sub aTest()
  Dim aCmt As Comment, sAuth As String, sReplies As String
  Dim i As Integer, aReply As Comment
  For Each aCmt In ActiveDocument.Comments
    If aCmt.Ancestor Is Nothing Then        'a top level comment
      Debug.Print aCmt.Author, aCmt.Done, aCmt.Range.Text, aCmt.Replies.Count
      If aCmt.Replies.Count > 0 Then
        For i = 1 To aCmt.Replies.Count
          Set aReply = aCmt.Replies(i)
          sReplies = sReplies & vbTab & aReply.Author & ": " & aReply.Range.Text & vbCr
        Next i
        Debug.Print sReplies
        sReplies = ""
      End If
    End If
  Next aCmt
End Sub