OK, ich denke ich hab rausgefunden, wo dein Problem liegt. Wie gesagt sollten Bilder, die zu einer bestimmten Fussnote gehören, auf der selben Seite auftauchen, wie die Fussnote selbst, dann klappts auch mit dem Zählen. Im Dokument 2068 gibt es Fussnoten die hören mit einem Paragraphen auf. Dann kommt das zugehörige Bild erst auf der nächsten Seite oberhalb der nächsten Fussnote, wird also thematisch noch zur vorherigen Fussnote 3 dazugezählt.
Bei dem ersten Bild auf Seite9 liefert mir die Codezeile pgn = ishp.Range.Information(wdActiveEndPageNumber) den Wert 8. Das Bild wird also zwar auf Seite 9 gedruckt gehört aber zur Fussnote auf Seite 8. Da auf dieser Seite jedoch schon ein Bild ist, wird das erste Bild von Seite 9 korrekterweise nicht nochmal gezählt. Ob das nun ein Bug in VBA selbst oder doch so gewollt ist, sei dahingestellt. Fakt ist, an dem Rückgabewert der Eigenschaft kann ich leider nichts ändern.
|