one page at a time

[Kilroy]

I can't find a setting in word that only shows one full page at a time. When I scroll I need to see a full page not half of one half the next just a single full page. I have researched online a bit and no one seems to know how to do this. Is there a macro that would do the job?

[gmaxey]

Have you tried full screen reading:

[Kilroy]

Yes I did try that. It had page by page using left and right arrows and then somehow switched to scrolling the same as print layout. I should tell you what exactly I'm trying to do. I'm running the following code by Graham that you tweeked (Greg). My problem is the same as mikewi posted he was having. When I run it, it shows me the anchor point but most of the time not the object that is anchored due to the way word shows only half of one page and half of the next one. So what I'm trying to do is force word to show me the whole entire page. Some times the object is connected to a word and when I agree to delete it I'm losing text.

Sub DeleteShapes() 
     'Graham Mayor - http://www.gmayor.com - 16/11/2016
    Dim oShape As Shape 
    Dim oStory As Range 
    Dim lngIndex As Long 
    Dim lngView As Long 
    lngView = ActiveDocument.ActiveWindow.View 
    For Each oStory In ActiveDocument.StoryRanges 
        For lngIndex = oStory.ShapeRange.Count To 1 Step -1 
            Set oShape = oStory.ShapeRange.Item(lngIndex) 
            oShape.Anchor.Select 
            If MsgBox("Delete the selected shape?", vbYesNo) = vbYes Then 
                oShape.Delete 
            End If 
        Next lngIndex 
        If oStory.StoryType <> wdMainTextStory Then 
            While Not (oStory.NextStoryRange Is Nothing) 
                Set oStory = oStory.NextStoryRange 
                For lngIndex = oStory.ShapeRange.Count To 1 Step -1 
                    Set oShape = oStory.ShapeRange.Item(lngIndex) 
                    oShape.Anchor.Select 
                    If MsgBox("Delete the selected shape?", vbYesNo) = vbYes Then 
                        oShape.Delete 
                    End If 
                Next lngIndex 
            Wend 
        End If 
    Next oStory 
lbl_Exit: 
    Set oShape = Nothing 
    Set oStory = Nothing 
    ActiveDocument.ActiveWindow.View = lngView 
    Exit Sub 
End Sub

[gmaxey]

I don't see anyway to do that. All I can suggest it to set the view to full page.

[Kilroy]

Ok Greg thanks for your reply.