【结帖】求助: 关于文档导出的**

caoyeziqq

这是我录制的宏,请你帮忙调试一下啊,我对这个太不熟悉了,调了大半天了也没有成功啊!  谢谢
ub 宏1()
'
' 宏1 宏
'
'
    Selection.InlineShapes.AddPicture FileName:= _
        "C:\Documents and Settings\Administrator\桌面\111.JPG", LinkToFile:=False, _
        SaveWithDocument:=True
    ActiveDocument.Save
End Sub

caoyeziqq

关键是这个InlineShapes它既不是参数也不是方法或函数什么的,它是个类名.

LineShape:= DispatchHelper.Create(FApp.PropertyGet('InlineShapes', []));   
所以这里编译出错!
请指教!

jiahaiming

楼主，您上面的代码报什么错误？另外确认一下，是编译时报错，还是运行时报错？

caoyeziqq

执行到那行代码的时候就死机不动了,什么反应都没有了.
原代码如下,您可以在您的机器上运行看:
procedure TMainForm.Button4Click(Sender: TObject);
var
  FWord,Odocs: Object;
  FApp,FDocs,FDoc,lSelection,LineShape,APicture: DispatchHelper;
  lFileName,lPath,PFileName: String;
begin
  if OpenDialog1.Execute then
  begin
    lFileName := OpenDialog1.FileName;
    lfile:= lFileName;
    FWord := ComObj.CreateOleObject('Word.Application');
    FApp := DispatchHelper.Create(FWord);
    FApp.PropertyPut('Visible', [True]);
    FDocs := DispatchHelper.Create(FApp.PropertyGet('Documents',  []));
    FDocs.InvokeMethod('Open', [lFileName]);
  end;
  if OpenDialog2.Execute then
    begin
      PFileName:= OpenDialog2.FileName;
      lSelection := DispatchHelper.Create(FApp.PropertyGet('Selection', []));
      LineShape:= DispatchHelper.Create(FApp.PropertyGet('InlineShapes', []));
      APicture:= DispatchHelper.Create(LineShape.PropertyGet('AddPicture', []));
      APicture.InvokeMethod('ClearFormatting',[]);
      APicture.InvokeMethod('Execute',[PFileName]);
    end;
end;

lixy

你看看吧：
procedure TMainForm.Button5Click(Sender: TObject);
var
  FWord,Odocs: Object;
  FApp,FDocs,FDoc,lSelection,LineShape,APicture: DispatchHelper;
  lFileName,lPath,PFileName: String;
begin

    FWord := ComObj.CreateOleObject('Word.Application');
    FApp := DispatchHelper.Create(FWord);
    FApp.PropertyPut('Visible', [True]);
    FDocs := DispatchHelper.Create(FApp.PropertyGet('Documents',  []));
    FDocs.InvokeMethod('Open', ['c:/1.doc']);


   lSelection := DispatchHelper.Create(FApp.PropertyGet('Selection', []));


   LineShape:= DispatchHelper.Create(lSelection.PropertyGet('InlineShapes', []));
   LineShape.InvokeMethod('AddPicture',['c:/a.jpg',false,true]);



end;

caoyeziqq

好的感谢两位的排忧解难!,现在可以实现图片的插入了