The macroi shows merely the method of getting the value into Excel. It doesn't address getting it from the document as I have not seen that. However the following modification will record the paragraph that the cursor is in, provided it is formatted with one of Word's heading styles (as an error check). It assumes that you have used heading styles for your headings.
Sub Macro1()
'Graham Mayor - www.gmayor.com
Const strPath As String = "C:\Path\"
Const strWorkBook As String = "Review Log.xlsx"
Dim strItem As String
Dim oFSO As Object
Dim strValues As String
Dim oPara As Range
    Set oPara = Selection.Paragraphs(1).Range
    oPara.End = oPara.End - 1
    If oPara.Style Like "Heading*" Then
        strItem = oPara.Text
        Set oFSO = CreateObject("Scripting.FileSystemObject")
        If Not oFSO.FileExists(strPath & strWorkBook) Then
            MsgBox "The workbook " & strWorkBook & " doesn't exist at " & strPath
            GoTo lbl_Exit
        End If
        strValues = Format(Date, "Short Date") & "', '" & strItem & "', '" & Environ("UserName")
        WriteToWorksheet strWorkBook:=strPath & strWorkBook, strRange:="Sheet1", strValues:=strValues
    Else
        MsgBox "Select the heading paragraph first!"
    End If
lbl_Exit:
    Exit Sub
End Sub