[VB + ACCESS (2003)] Creare tabelle in Word

[oRpo]

sto finendo un db che permette l'esportazione dei record di access a Word.
Non sapendo nulla di vb ho trovato queste righe di codice, testate e funzionanti che creano in word 5 tabelle:

        For i = 0 To 5
            Const END_OF_STORY = 6
            Set objSelection = Wrd.Selection
            objSelection.TypeText " "
            Set objRange = objSelection.Range
            objSelection.Tables.Add objRange, 1, 2
            Set objTable = objSelection.Tables(1)
            objTable.Cell(1, 1).Range.Text = "cella 1"
            objTable.Cell(1, 2).Range.Text = "cella 2"
            objSelection.EndKey END_OF_STORY
        Next 

vorrei ora ottimizzarlo riuscendo a modificare le celle anche in seguito, ovvero fuori dal ciclo for sopra scritto.
Mi spiego: vorrei che l'oggetto objSelection stia "dentro a un array".
Con questa intenzione ho riscritto il codice in questo modo:

         Set objSelection() = Wrd.Selection
         For i = 0 To 5
            Const END_OF_STORY = 6
            objSelection(i).TypeText " "
            Set objRange = objSelection(i).Range
            objSelection.Tables.Add objRange, 1, 2
            Set objTable = objSelection(i).Tables(1)
            objTable.Cell(1, 1).Range.Text = "cella 1"
            objTable.Cell(1, 2).Range.Text = "cella 2"
            objSelection(i).EndKey END_OF_STORY
        Next 

Con questa modifica penso di creare un array di oggetti objSelection in modo che a ogni iterazione del for ogni variabile objSelection usi un determinato oggetto del vettore... mi spiego?
Ci sarebbe anche da "vettorializzare" objRange e objTable ma mi son fermato perchè il codice così modificato non è compilabile... c'è un errore...

Potete aiutarmi? grazie in anticipo!