【结】往WORD里面写东西遇到的问题？**

fpj

我想实现如下功能：新建一个WORD，但不打开它，往里面加目录下所有的图片，加完后保存关闭。自始至终WORD不能在界面中打开。我在DELPHI里面实现的代码如下：运行成功：
var
  WordApp,WordDoc:variant;
begin
  try
       WordApp:=GetActiveOleObject('Word.Application');
  except
    try
      WordApp:=CreateOleObject('Word.Application');
    except
         showmessage('没有安装Word软件或文件错误!');
         exit;
    end;
  end;
  WordDoc:=WordApp.Documents.Add(  DocumentType:=wdNewBlankDocument);  //这时打开WORD新增一个Documents。
.......................................//省略部分代码，下面是循环往里面加图片
         WordApp.Selection.InlineShapes.AddPicture(dir+sr.name,False,True);
................................................//省略部分代码，下面是加完后保存，指定保存路径和名称。关闭。
   WordDoc.saveas(dir1+'\'+Form2.str2+'.doc');
   WordDoc.close;

完成。但在X3里面怎么实现呢。

lixy

http://bbs.justep.com/forum.php?mod=viewthread&tid=21679
模仿这个写

atiger

请反馈一下，楼主

fpj

该问题暂放吧，这些天我因为工作关系很忙没有继续研究这个问题。先结贴吧。过后我会自己照着2楼的贴子仔细研究。谢谢版主。

atiger

hao ,我先结了，有问题你重新开贴吧