VBA (Word) - Footer Shapes Sammlung enthält Fußzeile und Header Shapes

Question

Mein Dokument hat nur eine Kopfzeile/Fußzeile Typ - wdHeaderFooterPrimary, Konstante = 1. Ich versuche, mit Formen aus der Fußzeile interagieren, aber Sammlung enthält auch Formen aus der Kopfzeile.

Ich könnte unterscheiden, welche von Header und welche von Fußzeile von .top Eigenschaft ist, aber für so viele Elemente und Tausende von Dateien würde es ewig dauern.

Gibt es eine andere Möglichkeit, die ich nur auf Fußzeilenformen beziehen kann?

Dim shp as Object 

For Each shp in ActiveDocument.Sections(1).Footers(1).Shapes 
    debug.print shp.name 
Next shp 

Answer 1

Versuchen Sie stattdessen:

For Each shp In ActiveDocument.Sections(1).Footers(1).Range.ShapeRange