FP2000: How to Programmatically Save All Open Pages That Have Changed

Sub SaveAll() 
    
	' First check to make sure that a page is open.
	If (ActiveWebWindow.PageWindows.Count > 0) Then
      
          ' If a page is open, set up variables.
            Dim myCurrentPage, myPageWindow As PageWindow

	' Set myCurrentPage to the currently active page so we can go
	        ' back to this page when the macro is finished running.
            Set myCurrentPage = ActivePageWindow

		' Now loop through each page in the web.
            For Each myPageWindow In ActiveWebWindow.PageWindows

			' Activate the page so we can save it.
           		myPageWindow.Activate
			
		' Check to see if changes have been made to this page.
			If myPageWindow.IsDirty Then

				' Execute the Save command on the File menu
				CommandBars("File").Controls("&Save").Execute

			End If

            Next

        
		'Once the macro has finished, reactivate the original page.
        	myCurrentPage.Activate

      End If

End Sub