Well, I don't understand why Application.ScreenUpdating isn't suppressing things, but this runs a little cleaner ..

[vba]Sub SavePages()

Dim MainDoc As Document, PageDoc As Document
Dim lPageNo As Long
Dim strNameStem As String

Set MainDoc = ActiveDocument
strNameStem = Left(MainDoc.FullName, Len(MainDoc.FullName) - 4)

lPageNo = 1
Application.ScreenUpdating = False

MainDoc.Range(0, 0).Select

Do
Selection.Bookmarks("\Page").Select
Selection.Copy

Set PageDoc = Application.Documents.Add(Visible:=False)
PageDoc.Range.Paste
PageDoc.SaveAs strNameStem & " - Page " & lPageNo & ".doc"
PageDoc.Close

If lPageNo = MainDoc.Range.Information(wdNumberOfPagesInDocument) Then _
Exit Do
Selection.GoToNext wdGoToPage
lPageNo = lPageNo + 1
Loop

Application.ScreenUpdating = True
Set PageDoc = Nothing
Set MainDoc = Nothing

End Sub[/vba]