import Word document as several objects, one page at a time

Hello all,
I am looking for a solution to the problem of page breaks in OLEObjects. how about a macro that lets the user browse to pick the Word document, then imports it one page at a time as separate word.document12 objects for each page, and places them one below the other in Excel starting at the current cell?
If anyone knows how to modify the code below to open a dialogue to browse and select a file, then add only the first page of the chosen document that might be a great start:

Sub ImportWordDoc()
    ActiveSheet.OLEObjects.Add(filename:= _
        "C:\Documents and Settings\Desktop\file name here.docx" _
        , Link:=False, DisplayAsIcon:=False).Select
End Sub

Thanks in advance,

Willardio