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 : Sélectionner tout - Visualiser dans une fenêtre à part
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