Exporting comments from word to excel

Guessed · #1 10-24-2023, 02:53 PM

I think your logic is flawed. Having no replies doesn't mean the comment is a child-level comment. Instead you should be looking for presence of an Ancestor - top level comments don't have an ancestor. Then you can loop through any replies if they exist. Here is a snippet of code I'm currently using...

Code:

      For Each aCmt In wdDoc.Comments
        If aCmt.Ancestor Is Nothing Then        'a top level comment
           'do something
          If aCmt.Replies.Count > 0 Then
            For i = 1 To aCmt.Replies.Count
              Set aReply = aCmt.Replies(i)
              'do something with the replies
            Next i
          End If
        End If
      Next aCmt

DuchessNora · #2 10-25-2023, 01:14 AM

Quote:

Originally Posted by Guessed

I think your logic is flawed. Having no replies doesn't mean the comment is a child-level comment. Instead you should be looking for presence of an Ancestor - top level comments don't have an ancestor. Then you can loop through any replies if they exist. Here is a snippet of code I'm currently using...

Code:

      For Each aCmt In wdDoc.Comments
        If aCmt.Ancestor Is Nothing Then        'a top level comment
           'do something
          If aCmt.Replies.Count > 0 Then
            For i = 1 To aCmt.Replies.Count
              Set aReply = aCmt.Replies(i)
              'do something with the replies
            Next i
          End If
        End If
      Next aCmt

I think the other code provided works for now, but if I use this one, where in the code do I need to place it? thank you

Italophile · #3 10-25-2023, 05:36 AM

You would replace

Code:

StrCmt = StrCmt & vbTab & IIf(.Parent Is Nothing, "Not a Parent", "Is a Parent")

with:

Code:

StrCmt = StrCmt & vbTab & IIf(.Ancestor Is Nothing, "Not a Parent", "Is a Parent")

DuchessNora · #4 11-07-2023, 05:57 AM

Quote:

Originally Posted by Italophile

You would replace

Code:

StrCmt = StrCmt & vbTab & IIf(.Parent Is Nothing, "Not a Parent", "Is a Parent")

with:

Code:

StrCmt = StrCmt & vbTab & IIf(.Ancestor Is Nothing, "Not a Parent", "Is a Parent")

Hi, I tried replacing this but it still classes the parent comment as not a parent? :/

DuchessNora · #5 11-07-2023, 05:50 AM

Quote:

Originally Posted by Guessed

I think your logic is flawed. Having no replies doesn't mean the comment is a child-level comment. Instead you should be looking for presence of an Ancestor - top level comments don't have an ancestor. Then you can loop through any replies if they exist. Here is a snippet of code I'm currently using...

Code:

      For Each aCmt In wdDoc.Comments
        If aCmt.Ancestor Is Nothing Then        'a top level comment
           'do something
          If aCmt.Replies.Count > 0 Then
            For i = 1 To aCmt.Replies.Count
              Set aReply = aCmt.Replies(i)
              'do something with the replies
            Next i
          End If
        End If
      Next aCmt

Yes your right, I only just noticed when I used the other code it classed parents comments as not parents because they did not have any replies, I'll try changing it

DuchessNora · #6 11-07-2023, 05:59 AM

Quote:

Originally Posted by Guessed

I think your logic is flawed. Having no replies doesn't mean the comment is a child-level comment. Instead you should be looking for presence of an Ancestor - top level comments don't have an ancestor. Then you can loop through any replies if they exist. Here is a snippet of code I'm currently using...

Code:

      For Each aCmt In wdDoc.Comments
        If aCmt.Ancestor Is Nothing Then        'a top level comment
           'do something
          If aCmt.Replies.Count > 0 Then
            For i = 1 To aCmt.Replies.Count
              Set aReply = aCmt.Replies(i)
              'do something with the replies
            Next i
          End If
        End If
      Next aCmt

where in my code do I place this, I tried copy and pasting into code but I get error messages

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Parent/Child Comment Extract	amschaefer	Word VBA	1	10-19-2023 11:41 PM
[Reviving solved thread for additional help] Exporting Tracked Changes and Comments to Excel	mjungli	Word VBA	4	01-11-2023 09:39 AM
Exporting Tracked Changes and Comments to Excel	alzasp	Word VBA	10	06-14-2022 02:13 AM
How to hide comments and comment indicators from OTHERS	Elena A	Excel	0	12-03-2014 12:08 PM
Exporting Word Comments into a pdf	blhowes	Word	5	01-09-2010 12:31 PM