nasr
پنج شنبه 06 فروردین 1383, 15:37 عصر
سلام
من یه برنامه دارم که فایلها را در برنامه Word از طریق دلفیInsert می کنم
حالا برای این کار در ویندوز XP مشکلی ندارم ولی در 98 یک پیام خطا بعد از باز شدن Word و موقع Insert کردن فایل می ده که عنوانش هست
Invalid Variant Operation
اون کدی هم که نوشته ام هست
var
AExportFilter : TQRHTMLDocumentFilter;
Wordapp : OleVariant;
Doc : olevariant;
Wordapp := CreateOleObject('Word.Application') ;
Wordapp.visible := true;
Doc := Wordapp.Selection.InsertFile(ExtractFilePath(Appli cation.ExeName)Doc1.txt');
من یه برنامه دارم که فایلها را در برنامه Word از طریق دلفیInsert می کنم
حالا برای این کار در ویندوز XP مشکلی ندارم ولی در 98 یک پیام خطا بعد از باز شدن Word و موقع Insert کردن فایل می ده که عنوانش هست
Invalid Variant Operation
اون کدی هم که نوشته ام هست
var
AExportFilter : TQRHTMLDocumentFilter;
Wordapp : OleVariant;
Doc : olevariant;
Wordapp := CreateOleObject('Word.Application') ;
Wordapp.visible := true;
Doc := Wordapp.Selection.InsertFile(ExtractFilePath(Appli cation.ExeName)Doc1.txt');