Removing image only visible in reading layout

[Thorbjorn]

I have a Word 2003 document where an image is visible in reading layout but
in no other views. It appears to be in the header. I want to remove it;
however, this is not possible as I cannot select the image in reading view.
Any suggestions?

 

[JohnBlack]

If you view your document in the print layout and doubleclick the header you
should be able to selct the picture and delete it.

 

[Suzanne S. Barnhill]

This happens sometimes when an image has been inadvertently dragged off the
page. I'm trying to determine whether any simple removal method has been
devised.

 

[Suzanne S. Barnhill]

It has been suggested that you may be able to view and remove the picture in
Web Layout view, but if it's really in the header, then that wouldn't work,
I suppose.

 

[Suzanne S. Barnhill]

Okay, I'm back with what may actually be help. Fellow MVPs have provided two
macros that have been known to help in similar instances. Either is worth a
try. I have no VBA expertise, but my reading of the macros suggests that
they are intended to make the image(s) visible (so you can see and delete
them) rather than to remove them.

Macro 1:
Sub RevealHiddenPicture()
Dim shp As Word.Shape
For Each shp In ActiveDocument.Shapes
If shp.Left < 0 And shp.Top < 0 Then
shp.Top = 50
shp.Left = 50
End If
Next
End Sub

Macro 2:
Sub RevealHiddenPicture()
Dim shp As Word.Shape
Dim i As Long
i = 10
For Each shp In ActiveDocument.Shapes
shp.Top = i
shp.Left = i
i = i + 5
Next
End Sub

If you don't know what to do with them, see
http://www.gmayor.com/installing_macro.htm

 

[Suzanne S. Barnhill]

Well, I'm back again. I've been told that the macros I supplied before won't
work if the image is not in the main document body. <sigh> This one will
work if you place the insertion point in the header (or any other "story,"
such as footnotes) before running it:

Sub MoveShapesInStory()
Dim shp As Word.Shape
Dim rng As Word.Range

Set rng = Selection.Range
rng.WholeStory
For Each shp In rng.ShapeRange
If shp.Left < 0 And shp.Top < 0 Then
shp.Top = 50
shp.Left = 50
End If
Next
End Sub