Sub ApplyPageNos()
Application.ScreenUpdating = False
Dim Rng As Range, i As Long, StrTxt As String
StrTxt = "Page: "
With ActiveDocument







  .Fields.Unlink
  For i = (.ComputeStatistics(wdStatisticPages) - 1) To 1 Step -1
    Set Rng = .GoTo(What:=wdGoToPage, Name:=i)
    Set Rng = Rng.GoTo(What:=wdGoToBookmark, Name:="\page")
    With Rng
      .End = .End - 1
      If .Characters.Last.Text <> Chr(13) Then
        .Characters.Last.InsertAfter vbCr
      End If
      .InsertAfter vbCr & StrTxt & i + 1
    End With
  Next
  .Range.InsertBefore vbCr & StrTxt & "1"
End With
Set Rng = Nothing
Application.ScreenUpdating = True
End Sub