Shapes in header
 

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

Shapes in header
 

This is the excel forum - try in the word newsgroup and
you might get somewhere.

Shapes in header
 

On Thu, 31 Jul 2003 05:31:55 -0700, Shunt wrote:

This is the excel forum - try in the word newsgroup and
you might get somewhere.

You're right. My mistake.

Moved to -- microsoft.public.word.vba.general

SL