Hey guys,

I decided to learn VBA two weeks ago, and it's gone rather smooth. Now, however, I've encountered a problem I can't seem to solve on my own.
I've set up an excel document containing various modules. One of these modules extracts comments from a word document over to the excel document - which works as intended.

The problem is, I haven't been able to extract the first numbered header above each comment, which I'd very much like. Currently I have to do this manually after extracting the comments. As an example, I would like to also extract the header and number alongside each comment, such as '2.1.1 Title'. If the comment is highlighting the header itself, it should be that header which is extracted as well.

I've tried a variety of things based on what I could find online, but every time I'm met with a variety of bugs I can't seem to fix. I've yet to find something than even sorta works. Does anyone know how I would go about doing this?

This is the code I have for the module (Sorry if I'm not inserting this in the correct manner/format):

Formula: copy to clipboard 
Sub ImportCommentsDOCX()

Dim wdDoc As Object

Dim wdFileName As Variant

Dim i As Integer



wdFileName = Application.GetOpenFilename("Word files (*.docx),*.docx", , _

"Browse for file to be imported")



If wdFileName = False Then Exit Sub '(user cancelled import file browser)



Set wdDoc = GetObject(wdFileName) 'open Word file



'1: if no comments'

With wdDoc

  If wdDoc.Comments.Count = 0 Then

        MsgBox ("No comments")

  End If



'2; Set excel headers'

Range("B" & 1).Value = "Number"

    Range("B" & 1).Font.Bold = True

Range("C" & 1).Value = "Comment"

    Range("C" & 1).Font.Bold = True

Range("D" & 1).Value = "Highlighted text"

    Range("D" & 1).Font.Bold = True

Range("E" & 1).Value = "Initials"

    Range("B" & 1).Font.Bold = True

Range("F" & 1).Value = "Date (*Imprecise)"

    Range("F" & 1).Font.Bold = True



'3: Extract comments and meta data'

For i = 1 To wdDoc.Comments.Count

        Range("B" & 1 + i).Value = wdDoc.Comments(i).Index

        Range("C" & 1 + i).Value = wdDoc.Comments(i).Range

        Range("D" & 1 + i).Value = wdDoc.Comments(i).Scope.FormattedText

        Range("E" & 1 + i).Value = wdDoc.Comments(i).Initial

        Range("F" & 1 + i).Value = Format(wdDoc.Comments(i).Date, "dd/MM/yyyy") 'Unreliable: Sometimes gives wrong date'

        'Range("G" & 3 + i).Value = wdDoc.Comments(i).Range.ListFormat.ListString 'Returns empty' 

Next i



End With

Set wdDoc = Nothing

MsgBox ("Extraction has completed")

End Sub


Thanks for any help you might provide