Function AddAPage(oDoc As Document) As Boolean
Dim oRng As Range
On Error GoTo Err_Handler
Set oRng = oDoc.Range
oRng.Collapse 0
oRng.InsertBreak wdPageBreak
Set oRng = oDoc.Range
oRng.Collapse 0
oRng.Text = "Changes: " & vbCr _
           & "_________________________________________________________________" & vbCr _
           & "Blah, blah, blah."
AddAPage = True
lbl_Exit:
Exit Function
Err_Handler:
AddAPage = False
Resume lbl_Exit
End Function