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

[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 رو اجرا کنی و گرنه اتفاق خاصی نمیفته...