Inset کردن فایل در Word از طریق دلفی

[nasr]

سلام
با چه کدی می توان یک فایل Txet از داخل Insert ، Word کرد

من با این کد یک فایل Word را باز می کنم ولی من نیاز دارم که فایل به جای Open شدن Insert بشه

کدی که نوشته ام برای Open اینه :


var
AExportFilter : TQRHTMLDocumentFilter;
Wordapp : OleVariant;
Doc : olevariant;


Wordapp := CreateOleObject('Word.Application') ;
Wordapp.visible := true;
Doc := Wordapp.documents.Open(ExtractFilePath(Application .ExeName)Doc1.txt');

حالا اگه بجای Open لغت Inset یا insertFile را بنویسم Error می ده
با تشکر

[DelphiMan]

با سلام
دوست عزیز من منظور شما رو دقیقا متوجه نشدم منظور شما آیا اینه که می خواهید یک فایل رو تو Word درست کنید و بعد یک فایل Text رو توی اون قرار بدین یا نه ؟

در هر صورت چیزی که من توی کد شما دیدم این اشتباه هست که شما برای استفاده از InsertFile باید از کلاس Selection استفاده کنید:

WordApp.Selection.InsertFile(...);

چون شما می خواهید تو فایلی که باز کردید کاری انجام بدین از Documents زمانی استفاده می شود که می خواهید با خود سند کاری انجام بدین ...

حالا اگر منظور شما همین بوده که خوب اگر نه بیشتر توضیح بدین شاید بتونم راهنمایی کنم...

موفق باشید