یافتن متن و جایگزین کردن تصویر بجای آن در فایل ورد

[ehsane]

با سلام
دوستان من برای یافتن متن و جایگزین کردن یک تصویر با آن در یک فایل ورد از روش زیر استفاده می کنم و لی نمی توانم تصویر را در جای درست آن یعنی مکانی که متن مورد نظر قرار گرفته جایگزین کنم


MSWord.Connect;
DocName := 'c:\111.doc';
MSDocument.ConnectTo(MSWord.Documents.Open(DocName , EmptyParam, EmptyParam,EmptyParam, EmptyParam,EmptyParam, EmptyParam, EmptyParam,EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, ));

Rnge := MSDocument.Range;
Rnge.Find.Text :='ãÓÚæÏ';
if (Rnge.Find.Text ='ãÓÚæÏ') then
begin

MSDocument.InlineShapes.AddPicture(
'c:\1.bmp',
EmptyParam, EmptyParam, Rnge);
end;




لطفا کمک کنید ( جستجو نتیجه ای خاصی نداشت )

[ghabil]

من نمیبینم جایی Find رو Execute کرده باشی که !!

[ehsane]

1- دوست عزیزم جناب ghabil در خط پنجم می تونی موضوع جستجو را ببیند
2- بعد از بررسی های انجام گرفته توسط خودم به این نتجیه رسیدم که برای انجام این کار از چند راه میتوان استفاده کرد که فعلا در حد پیشنهاد است و دارم روی آن کار می کنم ( مطالعه) که در صورت به پاسخ رسیدن حتما جهت اطلاع اعلام خواهم کرد. یکی از راهها استفاده از Bookmark در فایلهای ورد است شما هم اگه دوست دارید بررسی کنید.

[ghabil]

راستش من درست متوجه نمیشم که منظورت چیه ، اما تا جایی که من میدونم فقط ست کردن مقدار Find.Text کافی نیست و باید وقتی تمام پراپرتیهارو ست کردی بعدش Find.Execute رو اجرا کنی و گرنه اتفاق خاصی نمیفته...