ajouter des donnée dans un fichier word existant sans ecraser le contenu

Salut a tous,

je suis arrivée a faire un ptit code qui me permet d'inserer une image bitmap ds un fichier Word deja existant (voir le code ci-dessous). Mais ce que j'ai envi d'ajouter est de conserver le meme fichier existant et d'ajouter d'avantage des data (images, textes,...) au meme fichier ecraser son contenu. y a t-il une synatxe permettant ca?

Merci d'avance.


Public Sub msword_coller()

Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim fichier As String


    On Error Resume Next

    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True
    Set WordDoc = WordApp.Documents.open(App.Path & "\results.doc", ReadOnly:=False)     'ouvrir le document Word

    WordDoc.InlineShapes.AddPicture FileName:= _
                                   App.Path & "\graph.bmp"    'adapter le chemin de l'image à insérer
    On Error GoTo 0
    
     With WordDoc
    .ActiveWindow.Selection.Font.name = "Arial"
    .ActiveWindow.Selection.Font.Size = 16
    .ActiveWindow.Selection.TypeText Text:="Parameter : " & nom_param
    .ActiveWindow.Selection.TypeParagraph
    .ActiveWindow.Selection.TypeParagraph
    End With
   
   
    With WordDoc.InlineShapes(1)    'adapter l'index si d'autres images existantes dans le document
        .Height = 375    'changement dimension image insérée : hauteur
        .Width = 450#    'largeur
        .ConvertToShape
       
    End With

    With WordDoc.Shapes(1)
        .ZOrder msoBringInFrontOfText    'image au premier plan devant le texte
     End With
   

   
    WordDoc.Application.ActiveDocument.Save
    WordDoc.Close 'fermer le document Word
    WordApp.Quit 'fermer l'application Word

End Sub