حذف تصویر در Word

[SReza1]

سلام خدمت همه دوستان. من از TWordApplication استفاده میکنم. میخواهم موقعیکه فایل را باز میکنم کل تصاویر مربوط به فایل نمایش داده نشود. مثل امضاء ها و حتی در Header footer هم تصویر باشه اونها را حذف بکنه. تو نت گشتم با دستور Replcace روی Special Character سرنخ داده بود. مثلا اگر ^g را بزنید میتونید تصاویر را پیدا کنید. منتهی این کد فقط برای Replcace در body فایل است و در روی header Footer کار نمیکنه. کسی کمکی میتونه بکنه؟

[SReza1]

دوستان. ظاهرا کسی در این زمینه تجربه ای ندارد. ولی من تونستم این مشکل را حل کنم.
مشکل وقتی پیش میاد که تصاویری که در Heade footer هستند نحوه قرارگیریشون یا Wrapping Style تبدیل به حالتی به غیر از inline with text شود. این حالت تصویر را به یک Shape تبدیل میکندو درسته که تصویر هست ولی تبدیل به Shape میکند که ضمنی تصویر ! است. این همه از MSWord دیگه! برای حذف اونها بایستی Shape را پاک کنیم. البته Shapeهایی که از نوع Picture هستند با مقدار type_ 13 پر شده است. 2 روز مغز ما رو خورد :) این هم کدش :



for I := MyWAP.ActiveDocument.Sections.Item(1).Footers.Item (1).Shapes.Count downto 1 do
begin
Index := I;
if MyWAP.ActiveDocument.Sections.Item(1).Footers.Item (1).Shapes.Item(Index).type_ = 13 then
MyWAP.ActiveDocument.Sections.Item(1).Footers.Item (1).Shapes.Item(Index).Delete
end;