Extracting the MS Word comments of a specific reviewer to Excel

[dpkdileep]

Hello,

I am trying to create a macro to extract the comments made by a specific reviewer in word.
I need the results in an excel table where one column should show the page number of word, other column should show the original selected content (for the comment), and another column should show the comment given by the reviewer.

After much research I could extract the comments from word, but I am not able to extract the comments of one particular reviewer.

Please help.

 

[John_w]

Try this, editing the code where indicated.

Public Sub Extract_Word_Comments()

    Dim wApp As Object
    Dim wDoc As Object
    Dim wComment As Object
    Dim WordFile As String
    Dim Reviewer As String
    
    WordFile = "C:\path\to\Word document.docx"  'CHANGE THIS
    Reviewer = "YourReviewer" 'CHANGE THIS

    Set wApp = CreateObject("Word.Application")
    Set wDoc = wApp.Documents.Open(fileName:=WordFile, ReadOnly:=True)
    wApp.Visible = True

     For Each wComment In wDoc.Comments
        'Check comment author
        If StrComp(Reviewer, wComment.Author, vbTextCompare) = 0 Then
            'Page number
            Debug.Print wComment.Scope.Information(3) 'wdActiveEndPageNumber
            'The text marked by the comment
            Debug.Print wComment.Scope
            'The comment itself
            Debug.Print wComment.Range.Text
        End If
    Next
   
    wDoc.Close SaveChanges:=False
    wApp.Quit

End Sub

 

[dpkdileep]

Hello,
Thanks for you support.

Regards
Dpk