Word documenten samenvoegen in één Word document vanuit Excel

Beste forumleden,

Ik heb een Excel bestand met een tabel waarin Word controle formulieren staan die bij bepaalde technische installaties als testrapport ingediend moeten worden.
Afhankelijk van welke technische installaties bij het betreffende project gemaakt zijn.

In de tabel staan de locatie en de naam van het testrapport.

Ik heb al wel een stuk code dat een Word document maakt en tekst kan toevoegen in dat document, maar het lukt me nog niet om een document te maken en daarin de testrapporten als sub documenten in te voegen.

Deze code heb ik nu:

Sub MaakNieuwWordDocument()
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim i As Integer
Dim KeuzeFormulier As String
Dim MaxAantalGekozenFormulieren As Integer

Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Add
MaxAantalGekozenFormulieren = Range("MaxAantalGekozenFormulieren").Value

With wrdDoc
For i = 1 To MaxAantalGekozenFormulieren
KeuzeFormulier = "Keuzeformulier_" & i
KeuzeFormulier = Range(KeuzeFormulier).Value
.Content.InsertAfter KeuzeFormulier
Next i
If Dir("G:\Mijn Drive\Testlocatie opslag Worddocs\MyNewWordDoc.doc") <> "" Then
Kill "G:\Mijn Drive\Testlocatie opslag Worddocs\MyNewWordDoc.doc"
End If
.SaveAs ("G:\Mijn Drive\Testlocatie opslag Worddocs\MyNewWordDoc.doc")
.Close ' sluit het document
End With
wrdApp.Quit ' sluit de Word application
Set wrdDoc = Nothing
Set wrdApp = Nothing
End Sub

Het lukt me niet om het Excelbestand te uploaden.

Alvast hartelijk bedankt.

vr.gr.
Jan

Hoe denk je dat wij dat kunnen testen zonder de documenten? Dan begin ik er niet eens aan . En zet de volgende keer (of herstel het alsnog) je code in CODE tags.