Insert Multiple files - from a list

[rpothen]

This code (https://www.msofficeforums.com/word-...ple-files.html) is great and it get the files from a directory ( strFile = Dir(strFolder & "*.txt", vbNormal) ) all the text file in this specific folder\directory . . . great . . . can someone give me code where instead of getting the file from a directory, I want to read a text file that contains the names of the file that I want to insert into the document.

For example:


File = filenames.txt contains the following rows/data:
C:\user\rpothen\departments.txt
D:\data\regions.txt
L:\EMEA\country.txt

I want to ready Filename.txt and insert the contents of the three files into my document.

How do I do that?

[macropod]

You could use a macro like:

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

Simply replace 'SourceDocumentpath & Name' with the source file's name.

PS: Please don't post multiple questions about the same issue.