Can someone tell me if it is possible to access the properties of shapes
that are 'hidden' in the header of a word-document, without having to use
the following code:

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
&
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

Example:
---------------------------------
Sub test()

Dim shape As Variant

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

For Each shape In
ActiveDocument.ActiveWindow.Selection.HeaderFooter .Shapes

Debug.Print shape.Name

Next shape

ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

End Sub
----------------------------------

I would think that it is possible to access those shapes directly, instead
of having to revert to the header/footer view.

I am using Word2000.

Thx,

Sander