Word document vullen met ander Word document.

[roosjordens]

Hallo,

Ik heb een draaiboek wat ingevuld moet worden.

Nu wil ik een Worddocument met al de vragen (onder elkaar) maken waarbij je erachter de antwoorden in kunt vullen (bijvoorbeeld in een tabel). Deze antwoorden moeten dan weggeschreven worden op een bepaalde plaats in een ander worddocument (het draaiboek dus).

Met excel heb ik al wel wat gevonden. Dat ziet er ongeveer zo uit:

Private Sub Invoegen_Click()
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

conn.Open "Driver={Microsoft Excel Driver (*.xls)};DriverId=790;Dbq=" & ActiveDocument.Path & "\Adressen.xls;"
rs.Open "SELECT * FROM [Sheet1$] WHERE Naam = '" & ComboBox1 & "'", conn

Selection.GoTo wdGoToBookmark, , , "Naam"
Selection.TypeText rs("Naam")
Selection.GoTo wdGoToBookmark, , , "Adres"
Selection.TypeText rs("Adres")
Selection.GoTo wdGoToBookmark, , , "Plaats"
Selection.TypeText rs("Postcode") & " " & rs("Plaats")
rs.Close: Set rs = Nothing
conn.Close: Set conn = Nothing
End Sub

Is dit ook mogelijk van een worddocument naar een worddocument ipv excel naar word? Ik wil namelijk de vragen onder elkaar (bij excel kan dit alleen naast elkaar) en er moet eenvoudig ge-entert kunnen worden in stukken tekst.

Hopelijk heb ik mijn vraag goed genoeg geformuleerd en kan iemand mij helpen!

Groeten,