Shapes in header

  • Thread starter Thread starter Sander Lablans
  • Start date Start date
S

Sander Lablans

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
 
This is the excel forum - try in the word newsgroup and
you might get somewhere.
Click to expand...

You're right. My mistake.

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

SL
 
Back
Top