Changer position d'une image (à inserer) dans un texte.RTF

Résolu
kg_online Messages postés 39 Date d'inscription dimanche 28 novembre 2004 Statut Membre Dernière intervention 4 juin 2007 - 10 avril 2005 à 01:09
kg_online Messages postés 39 Date d'inscription dimanche 28 novembre 2004 Statut Membre Dernière intervention 4 juin 2007 - 11 août 2006 à 02:54
Salut tout le monde!

J'ai réussi à inserer une image dans un texte RTF qui comporte un petit texte que l'utilisateur va êtrer mais aussi une image que ce dernier va aussi inserer.Cependant mon problème est que j'aurais préférer (dans le document.RTF) que l'image soit inserer après le petit texte mais le programme que j'ai réalisé fait l'inverse.Donc s'il y'a quelqu'un qui peut me donner un coup de main "bienvenue".
Merci d'avance!

Ce que je veux fairece que je veux faire?? Ce que mon programme fait!!
""""""""""""""""""""""" """""""""""""""""""""""
texte image
image texte

"""""""""""""""""""""" """""""""""""""""""""""

Voici un extrait de ma source:

l14 = "{\b " & Label12 & "\b0" & " " & Text8.Text & "\par\par }"
l15 = "{\b " & Label13 & "\b0" & " " & Text9.Text & "\par\par }"
l16 = "{\b " & Label15 & "\b0" & " " & Text11.Text & "\par\par }"
l17 = "{\b" & Frame2 & "\b0\par\par\par" & Text10 & "\par\par }"


RTB1.TextRTF = "{\i" & l1 & "\i0\par\par\par\par\par " & "\fs18" & l2 & l3 & l4 & l5 & l6 & l7 & l8 & l9 & l10 & l11 & l12 & l13 & l14 & l15 & l16 & l17 & "}"


Open "C:\Documents and Settings\Khadime\Bureau\Doc1.RTF" For Output As #1


Print #1, RTB1.TextRTF

' Copie l'image choisie dans le presse-papier
Clipboard.Clear
Clipboard.SetData Image1.Picture


' Colle l'image contenue dans le presse papier à l'intérieur du
' contrôle RichtextBox.
SendMessage RTB1.hwnd, WM_PASTE, 0, 0


Close #1


CommonDialog1.ShowSave
RTB1.SaveFile (CommonDialog1.FileName)

2 réponses

kg_online Messages postés 39 Date d'inscription dimanche 28 novembre 2004 Statut Membre Dernière intervention 4 juin 2007
11 août 2006 à 02:54
Salut me revoilà avec la solution de mon problème.
le texte est représenté par RTB1 et imag,imag1... sont images à insérer (EX: imag= image1.picture)
Il faut créer un document ".RTF" et y insérer les signets "text", "RTB1", "image" ....ect

Voici le code

Dim MyWord As Word.Application
 Dim pathdocu As String
   
    Set MyWord = New Word.Application
       
     pathdocu = App.Path & ""
       
 On Error GoTo out

With MyWord
        .Documents.Open (pathdocu & "Document.rtf")
        .Visible = True
        .ActiveDocument.Bookmarks("text").Range.Text = Label40
        .ActiveDocument.Bookmarks("RTB1").Range.Text = RTB1.Text
       
        'Insérer images
       
        .ActiveDocument.Bookmarks("image").Select
        .Selection.InlineShapes.AddPicture FileName:=Text12 & "" & imag, _
        LinkToFile:=False, SaveWithDocument:=True
       
        .ActiveDocument.Bookmarks("image1").Select
        .Selection.InlineShapes.AddPicture FileName:=Text12 & "" & imag1, _
        LinkToFile:=False, SaveWithDocument:=True
       




 End With

out:
3
kg_online Messages postés 39 Date d'inscription dimanche 28 novembre 2004 Statut Membre Dernière intervention 4 juin 2007
10 avril 2005 à 13:48
Pour ceux qui ne savent pas j'ai change le nom du RichTextBox1 en RTB1.
Merci
0