You could use a function to get the page number of any paragraph you supply it with e.g.
Code:
Function PageNum(iPara As Integer) As Integer
With ActiveDocument
With .Paragraphs(iPara).Range
PageNum = .Information(wdActiveEndPageNumber)
End With
End With
End Function