Inserting Image in a Word Document by using DOT NET Variable

Hello Everyone,

Thanks for ever time support.

I am facing an issue in inserting image in word document by using Dot Net Variables. I am able to do the same using Automation , but facing issue in using Dot Net Variables.

I have written the following function to insert an image in the word document.


MergeServerFileName := FileMgt.UploadFileSilent(MergeClientFileName);

MergeDataFile.OPEN(MergeServerFileName);
MergeDataFile.CREATEINSTREAM(InStr);
InStr.READTEXT(tmpStr1);
InStr.READTEXT(tmpStr2);
MergeDataFile.CLOSE;

WrdApp := WrdApp.ApplicationClass();
WrdApp.Visible := FALSE;


WrdDoc := WordHelper.CallOpen(WrdApp,MainFileName,ParamFalse,FALSE);

IF CompanyInfo.GET THEN
CompanyInfo.CALCFIELDS(CompanyInfo.Picture);
IF CompanyInfo.Picture.HASVALUE THEN
Pic := CompanyInfo.Picture.EXPORT('C:\Pic.gif');

InlineShape := WrdDoc.InlineShapes.AddPicture(Pic,Missing,Missing,Missing);
InlineShape.Height := 100;
InlineShape.Width := 100;
WrdDoc.Save;
WrdDoc.Close(Missing,Missing,Missing);
WrdApp.Quit(Missing,Missing,Missing);


The Variables used are:
Name DataType Subtype Length
MergeDataFile File
InStr InStream
WrdApp DotNet Microsoft.Office.Interop.Word.ApplicationClass.'Microsoft.Office.Interop.Word, Version=14.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c'

WrdDoc DotNet Microsoft.Office.Interop.Word.Document.'Microsoft.Office.Interop.Word, Version=14.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c'

MergeServerFileName Text

Missing Variant

CompanyInfo Record Company Information

Pic Text

Path DotNet System.IO.Path.'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'

InlineShape DotNet Microsoft.Office.Interop.Word.InlineShape.'Microsoft.Office.Interop.Word, Version=14.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c'

tmpStr1 Text
tmpStr2 Text


While calling the Function in am getting "Type Mismatch" error .This is because of the parameters passed in Inlineshapes.Addpicture.

Kindly guide.


Thanks in Advance
Regards
Prateek