FiveTech Software tech support forums

Code: Select all | Expand

cFull:= "C:\word\document.docx"
oles:= oExcel:ActiveSheet:OLEObjects

Code: Select all | Expand

   oles:Add(nil, cFull, .f.,;           // Here fail
                .f., nil, 0, nil,;
                1, 1, 100, 100)

Code: Select all | Expand

   ole:= oles:Add("Word.Document")
   ole:Name:= cFull             // Here Fail

Code: Select all | Expand

   oShapes:= oExcel:ActiveSheet:Shapes

   ole:= oShapes:AddOLEObject("Word.Document", cFull, .t.,;    // Here Fail
                        .t., "", 0, "",;
                        350, 60, 40, 40)

Code: Select all | Expand

cFullDoc:= "c:\doc\doc.docx"

oExcel:= TOleAuto:New("Excel.Application")
oExcel:WorkBooks:Add()
oExcel:Visible:= .t.

oShapes:= oExcel:ActiveSheet:Shapes

oShapes:AddOLEObject("Word.Document", cFullDoc, .t.,;    // Here Fail
                        .t., "", 0, "",;
                        350, 60, 40, 40)