Adding data to an already opened Word file

Question

Hi everyone,

I want to add some data from Ecel to a Word file, which is already open. The problem is that I am referring to this Word file from another Sub, so I need to repeat some variables and instructions. This is the code that opens the Word file (works fine):

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:"

And this is the code of the other sub, in which I want to refer to the Word file:

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

I know I left out some variables in the sub, but I don't really know how to refer to it. Is there anyone who can help me out?

Thanks a lot!

Kind regards, Marc