IF the layout of each page is as you indicate, if you run a macro containing
the following code when that document is the active document, it will creata
a new document with a table in it that contains the data in a format that
can be used as the data source for your mail merge operation.

Dim Source As Document
Dim Target As Document
Dim TTab As Table
Dim TRow As Row
Dim datarng As Range
Dim i As Long, Pages As Long
Set Source = ActiveDocument
Pages = Source.BuiltInDocumentProperties(wdPropertyPages)
Set Target = Documents.Add
Set TTab = Target.Tables.Add(Target.Range, 1, 5) TTab.Cell(1, 1).Range.Text
= "Company"
TTab.Cell(1, 2).Range.Text = "Address"
TTab.Cell(1, 3).Range.Text = "CityStZip"
TTab.Cell(1, 4).Range.Text = "Employees"
TTab.Cell(1, 5).Range.Text = "Director"
For i = 1 To Pages
   Set TRow = TTab.Rows.Add
   With Source
       TRow.Cells(1).Range.Text = .Paragraphs(1).Range.Text
       TRow.Cells(2).Range.Text = .Paragraphs(2).Range.Text
       TRow.Cells(3).Range.Text = .Paragraphs(3).Range.Text
       .Activate
       Selection.HomeKey wdStory
       Set datarng = .Bookmarks("\page").Range
   End With
   With datarng
       .Start = .Paragraphs(4).Range.Start
       .End = .Paragraphs(.Paragraphs.Count - 1).Range.End
       TRow.Cells(4).Range.Text = .Text
       .MoveEnd wdParagraph, 1
       .Start = .Paragraphs(.Paragraphs.Count).Range.Start
       TRow.Cells(5).Range.Text = .Text
   End With
   Source.Bookmarks("\page").Range.Delete
Next i
Source.Close wdDoNotSaveChanges
Target.Activate