Changer position d'une image (à inserer) dans un texte.RTF [Résolu]

Signaler
Messages postés
39
Date d'inscription
dimanche 28 novembre 2004
Statut
Membre
Dernière intervention
4 juin 2007
-
Messages postés
39
Date d'inscription
dimanche 28 novembre 2004
Statut
Membre
Dernière intervention
4 juin 2007
-
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

Messages postés
39
Date d'inscription
dimanche 28 novembre 2004
Statut
Membre
Dernière intervention
4 juin 2007

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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 123 internautes nous ont dit merci ce mois-ci

Messages postés
39
Date d'inscription
dimanche 28 novembre 2004
Statut
Membre
Dernière intervention
4 juin 2007

Pour ceux qui ne savent pas j'ai change le nom du RichTextBox1 en RTB1.
Merci