Export Excel print pages to Word document

[lumiere]

I have an Excel file that contains only one Worksheet but it split into multiple pages with vertical page breaks (see attached image)

What's the best way to export that worksheet to Word document? So each Excel print page is a page in a Word document.
Is there a VBA script anyone can share?

Thanks in advance

 

[lumiere]

Bump.

So I guess this consists of two tasks
1. Loop through "Print pages" and establish cell ranges for each page
2. Each page's cell range should then be exported as table on a separate page in word document.

Does this sound like a correct way of approaching this?

I can't seem to find a way to do point 1 on my list. Can't find the way to iterate over print pages and get cell ranges. Is it even possible?

 

[Dossfm0q]

Sub Export_Excel_print_pages_to_Word_document()

Dim wrdApp As Object
Dim WrdDoc As Object
Dim Pages As Variant

Set wrdApp = CreateObject("Word.Application")

Path = Environ("USERPROFILE") & "\" & "Desktop\"
WrdPath = Path & "wrd.docx"
With wrdApp
    .Visible = True
    .Activate
     Set WrdDoc = .Documents.Add
   
             With WrdDoc
                Pages = Split(ActiveSheet.PageSetup.PrintArea, ",")
               ' MsgBox " You have " & UBound(Pages) + 1
                For P = LBound(Pages) To UBound(Pages)
                .Content.InsertAfter "Page (" & P + 1 & ")"
                ' Add Spaces
                .Paragraphs.Add
                .Paragraphs.Add

                ' Copy Excel
                Range(Pages(P)).Copy

                  'Paste
                .Paragraphs(.Paragraphs.Count).Range.Paste
               ' Add Spaces
                .Paragraphs.Add
                .Paragraphs.Add
                .Paragraphs.Add
                .Paragraphs.Add
                .Paragraphs.Add
                .Paragraphs.Add
                .Paragraphs.Add
                Next
               
               
            End With 'WrdDoc
           
End With 'wrdApp
Application.CutCopyMode = False

Set wrdApp = WrdDoc
Set wrdApp = Nothing

End Sub