Inserting Image in a Word Document by using DOT NET Variable

prateekarya2011

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

jvmax

I have the same problem. Any solution?