Remove multiple pages from multiple documents

It can possibly be down with a macro, the only issue being that "pages" in Word is a little bit meaning less and it would be better if we knew that the pages to be deleted were all in a separate Section or Sections of the document.

However, if you have all of the documents in a folder by themselves, the following code should delete the first five pages from each:

Dim fd As Dialog
Dim strFolder As String
Dim strFile As String
Dim aDoc As Document
Dim i As Long
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
    .Title = "Select the folder that contains the files from which you want to delete the pages."
    If .Show = -1 Then
        strFolder = .SelectedItems(1) & "\"
    Else
        MsgBox "You did not select a folder."
        Exit Sub
    End If
End With
strFile = Dir$(strFolder & "*.doc")
While strFile <> ""
    Set aDoc = Documents.Open(strFolder & strFile)
    For i = 1 To 5
        aDoc.Bookmarks("\page").range.Delete
    Next i
    aDoc.Save
    aDoc.Close
    strFile = Dir$()
Wend