Data toevoegen aan een geopend Word document via VBA

[marcvc]

Hallo iedereen,

ik zou vanuit Excel data willen toevoegen aan een Word-file, die geopend is.
Het probleem is dat ik vanuit een nieuwe Sub moet verwijzen naar die geopende Word-file.

Dit is de code die het Word-document opent (werkt prima):

Dim wrdApp As Word.Application
    Dim docCreate As Word.Document
    'Dim rgeDoc As Range
    Dim strSaveFile As String
    
    strSaveFile = "C:\Jaarverslag_Theo_1.doc"
    
    Set wrdApp = New Word.Application
    Set docCreate = wrdApp.Documents.Add
    'Set rgeDoc = docCreate.Range
    wrdApp.Visible = True
        With wrdApp
            With .Selection
                .Font.Name = "Verdana"
                .Font.Size = 24
                .Font.Bold = True
                .TypeText Text:="             Jaarverslag Theo 1"
                .TypeParagraph
                .Font.Size = 10
                .ParagraphFormat.Alignment = 0
                .Font.Bold = False
                .TypeParagraph
                .TypeText Text:="Naam School:"
                .TypeParagraph
                .TypeText Text:="Naam Leerkracht:"
                .TypeParagraph
                .TypeText Text:="Naam Klas:"
                .TypeParagraph
                .TypeText Text:="Schooljaar:"

En dit is een voorbeeld van een nieuwe Sub waarin ik verwijs naar dat geopend bestand, waarin ik dan de data wil toevoegen:

Sub Invulling_ErIsErEénJarig()
    Dim Rij12 As String
    Rij12 = "TIJD - 1: de kijk op het levensverloop van een mens vanuit enkele levensbeschouwingen uit de eigen omgeving omschrijven en illustreren;"
    Dim Rij13 As String
    Rij13 = "TIJD - 2: de articulatie van de tijd door christenen en anderen illustreren en duiden;"
    Dim Rij14 As String
    Rij14 = "TIJD - 3: het belang bespreken van de voorgegeven tijdsstructuur (dag, nacht, week, maand, jaar, de seizoenen, …);"
    Dim Rij15 As String
    Rij15 = "TIJD - 4: enkele 'eigentijdse' feesten en/of rituelen bevragen op hun levensbeschouwelijk karakter;"
    Dim Rij20 As String
    Rij20 = "VERHALEN - 1: het eigen leven omschrijven als een uniek levensverhaal;"
    Dim Rij22 As String
    Rij22 = "VERHALEN - 3: de grote levensbeschouwingen profileren aan de hand van verhalen;"
    Dim Rij25 As String
    Rij25 = "VERHALEN - 6:het verhaal 'Jezus' opbouwen en vertellen."
    Dim Rij28 As String
    Rij28 = "GROEPEN/GEMEENSCHAPPEN - 1: verwoorden en beluisteren wat het betekent bij een groep te behoren;"
                If Worksheets("Theo").Rij12_4.Value = True Then
                    .TypeParagraph
                    .TypeText Text:=Rij12
                End If
                If Worksheets("Theo").Rij13_4.Value = True Then
                    .TypeParagraph
                    .TypeText Text:=Rij13
                End If
                If Worksheets("Theo").Rij14_4.Value = True Then
                    .TypeParagraph
                    .TypeText Text:=Rij14
                End If
                If Worksheets("Theo").Rij15_3.Value = True Then
                    .TypeParagraph
                    .TypeText Text:=Rij15
                End If
                If Worksheets("Theo").Rij20_6.Value = True Then
                    .TypeParagraph
                    .TypeText Text:=Rij20
                End If
                If Worksheets("Theo").Rij22_5.Value = True Then
                    .TypeParagraph
                    .TypeText Text:=Rij22
                End If
                If Worksheets("Theo").Rij25_4.Value = True Then
                    .TypeParagraph
                    .TypeText Text:=Rij25
                End If
                If Worksheets("Theo").Rij28_4.Value = True Then
                    .TypeParagraph
                    .TypeText Text:=Rij28
                End If
End Sub

Weet iemand hoe ik in deze sub moet verwijzen naar Word, en wat ik allemaal moet toevoegen om geen foutmelding te krijgen op die .TypeParagraph?

Alvast bedankt!

groetjes,
Marc