su consiglio di componenti di un altro forum ho provato a fare qualcosa a riguardo ma riscontro un errore:

"tipo non corrispondente per l'argomento ByRef"

codice:
AddToTable i , .TextMatrix(i, 2), .TextMatrix(i, 3), _
                .TextMatrix(i, 8), .TextMatrix(i, 9), .TextMatrix(i, 10)
                'eventuali altri parametri per altrettante colonne...
Il codice completo è il seguente:

codice:
Private Sub Command4_Click()
Dim WordApp As Object
Dim i As Long
Set WordApp = New Word.Application
WordApp.Documents.Open App.Path & "\Carta_intestata.doc"
WordApp.Visible = True
With WordApp.Selection
   .TypeText "Struttura: " & Text6.Text & " - " & Text2.Text & ""
   .TypeParagraph
   .TypeParagraph
   .TypeText "All'attenzione dell'Ufficio Contabile."
   .TypeParagraph
   .TypeParagraph
   .TypeText "Riepilogo prenotazioni dal " & Text7.Text & " al " & Text8.Text & ""
   .TypeParagraph
   .TypeText "" & Text6.Text & ""
   .TypeParagraph
   .Tables.Add WordApp.Selection.Range, MSFlexGrid1.rows, 7
    .Tables(1).Columns.AutoFit
   .Tables(1).Borders.Enable = True
End With

With MSFlexGrid1
    For i = 1 To .rows - 1
        AddToTable i, .TextMatrix(i, 2), .TextMatrix(i, 3), _
                .TextMatrix(i, 8), .TextMatrix(i, 9), .TextMatrix(i, 10)
                'eventuali altri parametri per altrettante colonne...
    Next
End With
End Sub
in un modulo ho invece dichiarato quanto segue:
codice:
Sub AddToTable(iRiga As Integer, sID As String, sDateTime As String, _
    sNome As String, sCognome As String, _
    sCosto As Single)
    
    With Tables(1)
        With .rows(iRiga)
            .cells(1).Range.Text = sID
            .cells(2).Range.Text = sDateTime
            .cells(3).Range.Text = sNome
            .cells(4).Range.Text = sCognome
            .cells(5).Range.Text = Format$(sCosto, "###0.00")
            'Eventuali altre variabili per altrettante colonne ...
        End With
        .rows.Add
    End With
End Sub
Grazie a tutti e scusate l'enorme scocciatura che vi posso creare!