FP2000: How to Configure FrontPage to Save Pages Before Publishing

• Microsoft FrontPage 2000

SUMMARY

The sample code in this article demonstrates how to configure FrontPage 2000 to prompt to save unsaved pages before a Web is published.

MORE INFORMATION

Microsoft provides programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes that you are familiar with the programming language being demonstrated and the tools used to create and debug procedures. Microsoft support professionals can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific needs. If you have limited programming experience, you may want to contact a Microsoft Certified Solution Provider or the Microsoft fee-based consulting line at (800) 936-5200. For more information about Microsoft Certified Solution Providers, please see the following page on the World Wide Web:

http://www.microsoft.com/mcsp/

http://www.microsoft.com/support/supportnet/overview/overview.asp

Q212536 OFF2000: How to Run Sample Code from Knowledge Base Articles

1. Open FrontPage and press ALT+F11 to open the Visual Basic Editor.



2. To create a new class module, click Insert and select Class Module.



3. In the Properties Window, change the name of the class module to myClassModule.



4. Insert the following code into the new class module:




'Set up our event handler
Dim WithEvents fpapp As FrontPage.Application

Private Sub Class_Initialize()

    'Set up the fpapp object
    Set fpapp = Application
    
End Sub

Private Sub fpapp_OnBeforeWebPublish(ByVal pWeb As Web, _
  Destination As String, Cancel As Boolean)
    
    'Set up variables
    Dim myPageWindow As PageWindow
    Dim myPageWindows As PageWindows
    
    'Set myPageWindows to equal the PageWindows collection
    Set myPageWindows = ActiveWebWindow.PageWindows

    'Loop through all of the open pages
    For Each myPageWindow In myPageWindows
        
        'If changes have been made to the page since last saved
        If myPageWindow.IsDirty Then
            
            'Create a variable for the result of message box
            Dim myResponse As VbMsgBoxResult

            'Activate the current page
            myPageWindow.Activate
            
            'Display a message asking if you'd like to save changes
            'to the page
            myResponse = MsgBox _
              ("Would you like to save changes to this page?", _
                vbYesNoCancel + vbExclamation)
                
            'Take action based upon which button is clicked 
            'in the message box
            Select Case myResponse
            
                Case vbYes  'Save Changes to Page
                    
                    'Execute the Save command on the file menu
                    CommandBars("File").Controls("&Save").Execute
                    
                Case vbNo
                
                    'Do nothing
                    
                Case vbCancel   'Cancel publishing
                
                    'By setting Cancel to true, publishing is stopped
                    Cancel = True
                    
            End Select
            
        End If
        
    Next myPageWindow
    
End Sub 

5. Create a new module by clicking Module on the Insert menu. This module can be named anything you like.



6. Insert the following code into the new module:




   'Set up memory for object from our Class Module
   'myClassModule is what we named our Class Module
   Public fpapp As myClassModule

   Sub PrepPublish()

       'Create new myClassModule object
       Set fpapp = New myClassModule
    
   End Sub
  

7. Run the PrepPublish macro.

Q232680 FP2000: How to Work with COM Add-ins in FrontPage 2000

Additional query words:

Keywords :
Version : WINDOWS:
Platform : WINDOWS
Issue type : kbhowto