Position une image aprés un texte grâce aux signets de WordRésolu

Question

Bonjour

Ayant un documentword prérempli, j'ai fait appel au signets ce qui me permet de remplir via visual basic certaine champs de ce document.
Cependant pour les textes ça marche très bien mais pour les images ça marche moins bien du fait que l'image et toujours placée avant le texte alors que  voudrais que ça soit l'inverse.Je sais qu'il est possible d'insérer des images dans les richtextbox et à la positions qu'on veut.Serait il possible avec les signets?
Si quelqu'un peut me donner un petit coup de main bienvenu. 

Merci d'avance voici mon code:

Dim MyWord As Word.Application
Dim pathdocu As String
    
    Set MyWord = New Word.Application
        
     pathdocu = App.Path & "\Documents"
        
On Error GoTo out
        
    With MyWord
   
        .Documents.Open (pathdocu & "Document.doc")
        .Visible = True
            
            'insérer une image à partir du fichier

        .ActiveDocument.Bookmarks("text").Range.Text = Label40
        .ActiveDocument.Bookmarks("RTB1").Range.Text = RTB1.Text
        .ActiveDocument.Bookmarks("date").Range.Text = Format(Date, "dd mmmm yyyy")
     .Selection.InlineShapes.AddPicture FileName:="C:\chemin\image.bmp", _         LinkToFile:=False,SaveWithDocument:=True 
        

    End With
    
    

    
    
            
out:
    DoEvents
    
'=========================enregistrer le document sous =========================
        
     On Error GoTo fin
CommonDialog1.DialogTitle = "Enregistrer le fichier sous ..."
CommonDialog1.Filter = "Fichier (*.doc)|*.doc"
CommonDialog1.FilterIndex = 1
CommonDialog1.ShowSave
MyWord.ActiveDocument.SaveAs (CommonDialog1.FileName & ".doc")

   Set MyWord = Nothing

Exit Sub
fin:
MsgBox "Sauvegarde impossible ce fichier est en cours d'utilisation (lecture seule)!!!", vbCritical

3mier · Accepted Answer

.Selection.InlineShapes.AddPicture FileName:="C:\chemin\image.bmp", _
                                                      LinkToFile:=False,SaveWithDocument:=True
.ActiveDocument.Bookmarks("image").Select

3mier · Answer

Pardon j'ai inversé les lignes

Position une image aprés un texte grâce aux signets de Word

2 réponses

Votre réponse

Discussions similaires