Insérer une image dans Word

Bonjour,
Je tente d'insérer une image dans un document Word.
(à la place du tag "###1")
L'image semble bien insérée mais n'est pas visible?!?
(Quand je clique dessus, le bord est bien présent)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

var Fword,FDocument,Range:OleVariant; Filename:String; MyImage: TBitmap; begin MyImage:= TBitmap.Create; Filename := FWord.ActiveDocument; Range := FWord.ActiveDocument.Content; Range.Find.Execute('###1'); if Range.Find.Found = True Then begin FWord.ActiveDocument.InlineShapes.AddPicture(extractFilePath(application.exename)+'pic1.jpg',True, True); end; end;

---

Merci pour vos idées...
PhilLu

Voici la solution:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

Uses ... ActiveX, ComObj, word2000; ... procedure TForm1.Button2Click(Sender: TObject); begin W := CreateOleObject('Word.Application'); // W.Visible := True; // W.Documents.Add; W.Documents.Open(extractFilePath(application.exename)+'TestDoc.doc'); W.Selection.Find.ClearFormatting; W.Selection.Find.Text :='Here goes my picture:'; W.Selection.Find.Forward := True; W.Selection.Find.MatchAllWordForms := False; W.Selection.Find.MatchCase := False; W.Selection.Find.MatchWildcards := False; W.Selection.Find.MatchSoundsLike := False; W.Selection.Find.MatchWholeWord := False; W.Selection.Find.MatchFuzzy := False; W.Selection.Find.Wrap := wdFindContinue; W.Selection.Find.Format := False; W.Selection.TypeParagraph;     // Rnge := W.selection.Range; // W.Execute('Here goes my picture:'); W.Selection.Find.Execute; if W.Selection.Find.Found then begin W.Selection.Find.Text := ''; W.Selection.InlineShapes.AddPicture( 'C:\Users\Phil\Pictures\20091109102023516.jpg',False, True, EmptyParam); end; W.ActiveDocument.SaveAs(extractFilePath(application.exename)+'TestDoc2.doc'); W.ActiveDocument.Close; W.Quit; W := Unassigned; end;

---