Sub Ex05macro()
    Dim myDoc As Document: Set myDoc = Documents.Add
    Dim myXPart As CustomXMLPart: Set myXPart = myDoc.CustomXMLParts.Add
    Dim xNode As CustomXMLNode, xChild As CustomXMLNode
    Dim cc As ContentControl
    With myXPart
        .Load ("D:\Ex03Rev1.xml")
        For Each xNode In .DocumentElement.ChildNodes
            If xNode.HasChildNodes Then
                For Each xChild In xNode.ChildNodes
                    With xChild
                        If Not .BaseName = "#text" Then
                            Set cc = myDoc.ContentControls.Add(Type:=wdContentControlText, Range:=myDoc.Characters.Last)
                            cc.XMLMapping.SetMapping .XPath
                            myDoc.Paragraphs.Add
                        End If
                    End With
                Next xChild
                myDoc.Characters.Last.InsertBreak WdBreakType.wdPageBreak
            End If
        Next xNode
    End With
End Sub