Discussion :

[PhilLU]

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

[PhilLU]

Voici la solution:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;