Sub InsertFiles()
Application.ScreenUpdating = False
Dim i As Long, strFile As String, DocTgt As Document, DocSrc As Document
Set DocTgt = ActiveDocument
Set DocSrc = Documents.Open("SourceDocumentpath & Name", ReadOnly:=True, AddToRecentFiles:=False)
With DocTgt.Content
  For i = 0 To UBound(Split(DocSrc.Content.Text, vbCr)) - 1
    strFile = Split(DocSrc.Content.Text, vbCr)(i)
    .Collapse wdCollapseEnd
    .InsertAfter strFile & vbCr
    .InsertFile FileName:=strFile, ConfirmConversions:=False, Link:=False
    .InsertAfter vbCr & vbCr
  Next
End With
DocSrc.Close SaveChanges:=False
Application.ScreenUpdating = True
End Sub