دوستان. ظاهرا کسی در این زمینه تجربه ای ندارد. ولی من تونستم این مشکل را حل کنم.
مشکل وقتی پیش میاد که تصاویری که در 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;