delphi7 向word插入图片 放置最后

Question

procedure TForm1.InsertWordPictureAfter(strSourceWord: string);
var
  Word: OleVariant;
begin
  Word := CreateOleObject('Word.Application');
  try
    Word.Documents.Open(strSourceWord, False);
    Word.Visible := False;
    Word.ActiveDocument.Range(0, 0);
    Word.ActiveDocument.Range.InsertParagraphAfter;
    Word.Selection.InlineShapes.addpicture(extractfilepath(Application.ExeName)+'\test.jpg',False, True);
    //Word.ActiveDocument.Range.InlineShapes.addpicture(extractfilepath(Application.ExeName)+'\test.jpg',True, True);    //Word.saved := True;
    Word.Documents.close;
  finally
    Word.Quit;
    Word := Unassigned;
  end;
end;
这种只能放在开头