Parent/Child Comment Extract

amschaefer · #1 10-19-2023, 01:23 PM

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 · #2 10-19-2023, 11:41 PM

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

Code:

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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
XML Schema Parent Child Extraction	ChrisOK	Excel Programming	0	11-16-2017 08:22 AM
Updating "Parent Phrase" to change all Child Phrases - (References, Fields, Headings?)	tclass117	Word	1	11-18-2016 10:14 PM
Hilight Parent Folder when Child folder is allocated a new email	brucemc777	Outlook	2	11-09-2016 09:14 AM
Advanced Content Control Problem, Making CC editable through child links not only parent	Lance Dwight	Word	1	10-15-2014 05:45 PM
How to insert a (balloon) comment and how to disable comment feature in Word2007?	pstein	Word	2	03-31-2012 05:31 AM