Yes I am sure that such a macro exists, or could be written. We (or at least most of the regulars) are not here as a free macro writing service. We are here to help others learn VBA. You have made no apparent effort write this procedure yourself or search for one online.
This should get you started:
Code:
Sub ScratchMacro()
'A basic Word Macro coded by Gregory K. Maxey
Dim oRng As Range
Set oRng = ActiveDocument.Range
With oRng.Find
.Style = "Heading 2"
While .Execute
MsgBox oRng.Text & oRng.Information(wdActiveEndPageNumber)
Wend
End With
lbl_Exit:
Exit Sub
End Sub