ehsane
دوشنبه 22 آبان 1385, 08:51 صبح
با سلام
دوستان من برای یافتن متن و جایگزین کردن یک تصویر با آن در یک فایل ورد از روش زیر استفاده می کنم و لی نمی توانم تصویر را در جای درست آن یعنی مکانی که متن مورد نظر قرار گرفته جایگزین کنم
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;
لطفا کمک کنید ( جستجو نتیجه ای خاصی نداشت )
دوستان من برای یافتن متن و جایگزین کردن یک تصویر با آن در یک فایل ورد از روش زیر استفاده می کنم و لی نمی توانم تصویر را در جای درست آن یعنی مکانی که متن مورد نظر قرار گرفته جایگزین کنم
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;
لطفا کمک کنید ( جستجو نتیجه ای خاصی نداشت )