Ciao, ho problemi ad esportare correttamente i dati da un form di VB ad un file di Word.

Quello che vorrei fare è creare un documento Word con le seguenti caratteristiche:

1. Un titolo posizionato in cima alla pagina al centro, il cui testo è preso da txtTitle.Text.
2. Un'immagine centrata sotto il titolo, da me precedentemente salvata sul disco fisso.
3. Una tabella sotto l'immagine costituita da una riga e due colonne, le cui celle prendono dati da due TextBox.

Questo è il codice da me usato:

codice:
Private Sub cmdExportToWord_Click()
    
    Dim objWdApp As Object
    Dim objWdDoc As Object
    Dim objWdRange As Object
    
    Set objWdApp = CreateObject("Word.Application")
    Set objWdDoc = objWdApp.Documents.Add
   
    Set objWdRange = objWdDoc.Range

    objWdRange.Font.Name = "Arial"
    objWdRange.Font.Size = 12
    objWdRange.Font.Color = &HFF&
    objWdRange.Paragraphs.Alignment = wdAlignParagraphCenter
    
    objWdRange.InsertAfter vbNewLine & txtTitle.Text

    Dim BMP_File As String

    If Right(App.Path, 1) = "\" Then
        BMP_File = App.Path & "Temp.bmp"
    Else
        BMP_File = App.Path & "\Temp.bmp"
    End If

    SavePicture Picture1.Picture, BMP_File

    Set lo_pic = objWdApp.Selection.InlineShapes.AddPicture(BMP_File, False, True)
                   
    Set oTable = objWdDoc.Tables.Add(Range:=objWdDoc.Range(Start:=0, End:=0), NumRows:=1, NumColumns:=2)
    
    objWdDoc.Tables(1).Cell(1, 1).Range.InsertAfter Text1.Text
    objWdDoc.Tables(1).Cell(1, 2).Range.InsertAfter Text2.Text
   
    objWdApp.Visible = True
  
    Kill BMP_File
    
    Set objWdRange = Nothing
    Set objWdDoc = Nothing
    Set objWdApp = Nothing

End Sub
Il problema che ho è che non riesco ad impostare le coordinate degli oggetti creati nel file di Word.

Infatti, sebbene tutti i dati siano esportati correttamente, la tabella appare in cima alla pagina mentre il testo e l'immagine non risultano centrate.

Qualcuno può aiutarmi?

Grazie in anticipo.