请问怎么往WORD的表格中插入图片

Question

如题~!

Answer 1

楼上的回答好像答非所问吧？搂猪的意思应该是如何在Delphi中实现该操作，对吧？如果是直接使用word，那还用问吗？如何在Delphi中实现这种操作我也不会，等待达人出现。

Answer 2

那VBA怎么写. delphi又怎么操作VBA

Answer 3

首先在word里面用录制宏 把你的操作记录下来，然后查看录制的那个红的源代码， 就是VBA了
然后转换成 pascal 就OK了

Answer 4

我在网上看到这么一个例子.可我不知道word的图文框是哪个.我现有一WORD模板，内有WORD的 Label1，Label2，Label3以及二个图文框FRAMES[1]与FRAMES[2]，我希望在程序中修改 Label1，Label2，Label3的Caption，并在二个图文框中各插入一个图片。
uses ComObj;procedure TForm1.Button1Click(Sender: TObject);
var
  vWordApp: OleVariant;
  vAppPath: string;
begin
  vAppPath := ExtractFilePath(ParamStr(0));
  vWordApp := CreateOleObject('Word.Application');
  try
    vWordApp.Visible := True;
    vWordApp.Documents.Open(vAppPath + 'Dot7.doc');
    vWordApp.ActiveDocument.Frames.Item(1).Select;
    vWordApp.Selection.InlineShapes.AddPicture(vAppPath + '1.bmp');
    vWordApp.ActiveDocument.Frames.Item(2).Select;
    vWordApp.Selection.InlineShapes.AddPicture(vAppPath + '1.jpg');
    vWordApp.ActiveDocument.FormFields.Item(1).Result := '姓名：吴向明';
    vWordApp.ActiveDocument.FormFields.Item(2).Result := '年龄：26岁';
    vWordApp.ActiveDocument.FormFields.Item(3).Result := '科别：手术外科';
  finally
    vWordApp := Unassigned;
  end;
end;