AutoTextEntries Word invoegen in document middels Vb.net

[weswillem]

Op welke wijze is het mogelijk om zodra je Word heb geopend
en records wil toevoegen autotextentries aan kan roepen.
Dan wel de macro in de . dot file aanspreken.
Iemand daar ervaring mee.

 Dim oWord As Word.Application
        Dim oDoc As Word.Document
        Dim Dagen(,) As String = {{"Maandag"}, {"Dinsdag"}, {"Woensdag"}, {"Donderdag"}, {"Vrijdag"}, {"Zaterdag"}, {"Zondag"}}

        'Start Word en open de *.dot file.
         oWord = CreateObject("Word.App        
        oDoc = oWord.Documents.Add("C:\Zorgboerderij\ZBS_Urenstaat.dotx")
        oWord.Visible = True
        '------------------------------------------------------------------------------
        Dim i As Integer
        Dim k As Integer = 0
        Dim J As Integer

        oDoc.Activate()
        oDoc.Sections(3).Range.Select() 'Hier word de range gezet in sectie 3 van Word
        For i = 0 To iAantal - 1        'dit zijn de aantal records
            oDoc.Bookmarks("Week").Range.Text = ds.Tables(0).Rows(i).Item(3)
            oDoc.Bookmarks("Jaar").Range.Text = ds.Tables(0).Rows(i).Item(2)
            For J = 4 To 17 - 1 Step 2  'Dit zijn de aantal velden, 2 velden aan elkaar koppelen vb: 09:00-17:00
                oDoc.Bookmarks(Dagen(k, 0)).Range.Text = Format(CDate(ds.Tables(0).Rows(i).Item(J).ToString), "HH:mm") & "-" & Format(CDate(ds.Tables(0).Rows(i).Item(J + 1).ToString), "HH:mm")
                k = k + 1 'Volgende dag, betreft een arry van de dagen
            Next J
        'Hier moet de macro slecteer na myrange komen, dat betekend dat de cursor aan het einede van de rij staat
        ' daarna moet de autextentries toegevoegd worden als er meerdere records zijn
        Next
        '------------------------------------------------------------------------------
        MsgBox("Het document is geopend in Word", vbYesNo)
        If vbYes Then
            oDoc.Close()
            oWord.Quit()
            oDoc = Nothing
            oWord = Nothing
        Else
            'doe niets

        End If