The array probably made it more complicated than needed, but you could write that array to an Excel range.

Here is another way:

Sub ScratchMacroII()
'A basic Word macro coded by Greg Maxey
Dim oRng As Range
Dim oDoc As Document, oDocTarget As Document, oTbl As Word.Table
  Set oDoc = ActiveDocument
  'Create the target document.
  Set oDocTarget = Documents.Add
  'Create the target basic table.
  Set oTbl = oDocTarget.Tables.Add(oDocTarget.Range, 1, 2)
  oDoc.Activate
  Set oRng = oDoc.Range
    With oRng.Find
      .Format = True
      .Font.Bold = True
      .Font.Underline = wdUnderlineDouble
      Do While .Execute
        'For each found bit of text add the text and page found to the table.
        oTbl.Cell(oTbl.Rows.Count, 1).Range.Text = oRng.Text
        oTbl.Cell(oTbl.Rows.Count, 2).Range.Text = oRng.Information(wdActiveEndPageNumber)
        'Add a new target row.
        oTbl.Rows.Add
        oRng.Collapse wdCollapseEnd
        If oRng.End = oDoc.Range.End Then Exit Do
      Loop
    End With
    oTbl.Rows.Last.Delete
lbl_Exit:
  Exit Sub
End Sub