visio-fwap.vba

Sub FWAP()
    Dim OriginalPage As Visio.Page
    Set OriginalPage = ActivePage
    
    Dim PagObj As Visio.Page
    
    For Each PagObj In ActiveDocument.Pages
        ActiveWindow.Page = PagObj.Name
        ActiveWindow.ViewFit = visFitPage
    Next PagObj
    
    ActiveWindow.Page = OriginalPage
End Sub